<!--代码开始-->
   <DIV id=demo_ style="OVERFLOW: hidden; HEIGHT: 196px"><DIV id=demo1_>
     <table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr><td><script language=javascript src=Include/sca.asp?aid=3&bid=99999&cid=22&did=1&eid=1&fid=1></script></td></tr></table></DIV>
   <DIV id=demo2_></DIV></DIV>
<SCRIPT>
<!--
  var speed  = 10;//滚动速度
  var rows  = 200;//每行高度
  var stim  = 60; //停留时间倍数 * speed
  var stop  = 0; //初始化值，不管
  demo2_.innerHTML = demo1_.innerHTML
  function Marquee_(){
    if(demo_.scrollTop%rows==0 && stop<=stim){
      stop++;
      return;
    }
    stop = 0;
    if(demo2_.offsetTop-demo_.scrollTop<=0)
      demo_.scrollTop-=demo1_.offsetHeight
    else{
      demo_.scrollTop++
    }
  }
  var MyMar_ = setInterval(Marquee_,speed)
  demo_.onmouseover = function() {clearInterval(MyMar_)}
  demo_.onmouseout  = function() {MyMar_=setInterval(Marquee_,speed)}
-->
</SCRIPT>
   <!---代码结束---->

<DIV id=demo_ style="OVERFLOW: hidden; HEIGHT: 196px"><DIV id=demo1_>
     <table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr><td><script language=javascript src=Include/sca.asp?aid=3&bid=99999&cid=22&did=1&eid=1&fid=1></script></td></tr></table></DIV>
   <DIV id=demo2_></DIV></DIV>
<SCRIPT>
<!--
  var speed  = 10;//滚动速度
  var rows  = 200;//每行高度
  var stim  = 60; //停留时间倍数 * speed
  var stop  = 0; //初始化值，不管
  demo2_.innerHTML = demo1_.innerHTML
  function Marquee(){
    if(demo_.scrollTop%rows==0 && stop<=stim){
      stop++;
      return;
    }
    stop = 0;
    if(demo2_.offsetTop-demo_.scrollTop<=0)
      demo_.scrollTop-=demo1_.offsetHeight
    else{
      demo_.scrollTop++
    }
  }
  var MyMar_ = setInterval(Marquee,speed)
  demo_.onmouseover = function() {clearInterval(MyMar_)}
  demo_.onmouseout  = function() {MyMar_=setInterval(Marquee,speed)}
-->
</SCRIPT>

Sub Jmail(Email,Topic,Mailbody)
On Error Resume Next
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312"
If Not(Web_Const(64) = "" Or Web_Const(65) = "") Then
JMail.MailServerUserName = Web_Const(64)
JMail.MailServerPassword = Web_Const(65)
End If
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.From = Web_Const(66)
JMail.FromName = Web_Const(67)
JMail.AddRecipient Email
JMail.subject = Topic
JMail.Body = Mailbody
JMail.Send (Web_Const(63))
Set JMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub

Sub Cdonts(Email,Topic,Mailbody)
On Error Resume Next
Dim ObjCDOMail
Set ObjCDOMail = Server.CreateObject("CDONTS.NewMail")
ObjCDOMail.From = Web_Const(66)
ObjCDOMail.To = Email
ObjCDOMail.subject = Topic
ObjCDOMail.BodyFormat = 0
ObjCDOMail.MailFormat = 0
ObjCDOMail.Body = Mailbody
ObjCDOMail.Send
Set ObjCDOMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub

Sub Aspemail(Email,Topic,Mailbody)
On Error Resume Next
Dim Mailer
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Charset = "gb2312"
Mailer.IsHTML = True
Mailer.username = Web_Const(64)
Mailer.password = Web_Const(65)
Mailer.Priority = 1
Mailer.Host = Web_Const(63)
Mailer.Port = 25
Mailer.From = Web_Const(66)
Mailer.FromName = Web_Const(67)
Mailer.AddAddress Email = Email
Mailer.subject = Topic
Mailer.Body = Mailbody
Mailer.Send
Set Mailer=Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub

Dim SendMail
Sub SendEmail(Mailto,subject,HtmlCode,SendMode)
IF SendMode="Jmail" THEN
Jmail MailTo,subject,HtmlCode
ElseIF SendMode="Cdonts" THEN
Cdonts MailTo,subject,HtmlCode
ElseIF SendMode="Aspemail" THEN
Aspemail MailTo,subject,HtmlCode
End IF
End Sub

Left(newID(),8)
随机生成8位有效值

基础知识

GUID代表全球唯一识别符。正如名字所表示的，这些数字从统计上来说是唯一的，这就意味着在全世界不会有两个GUID完全相同。这是为什么呢？

一个 GUID是一个128位的数字，通常用一个32位的十六进制字符串来表示，就象这样：3e4dab67-ac0b-47cc-b1cf-40f93324350f

两个GUID相等的几率是 1/2128 ，几乎为0。

由于它们的唯一性，GUID可以被用在需要唯一关键字的应用程序中，但是这种情况下的关键字是不能组合起来生成一个关键字。

举例来说，你想跟踪站点的访问者。如果不向访问者询问一些问题，就不可能生成含有他们行动信息的表格关键字。只有当你拥有了他们的识别信息，如电话号码等，才能做到。在没有这些信息的情况下，你可以使用一个唯一数字，如计数器，作为关键字。要想使这个 ID不可复制，就可以使用GUID。 用计数器的话，会有数字被复制的可能，比如复位了计数器，但是使用GUID，就没有这种可能。

在ASP.NET创建GUID

在ASP时代，要生成GUID必须要依靠一个外部COM 组件或SQL Server。现在，.NET框架中提供了创建GUID必要的类，使生成GUID变得容易。System名称空间中包含了声称GUID的GUID类，这个类包含 NewGUID()方法，当它被调用时，就返回一个带有新值的GUID对象。现在，就让我们来看看生成一个新GUID的简单例子：

<html>
<body>

<%=System.GUID.NewGUID()%>

</body>
</html>

点击这里演示。

刷新演示页面，你就会发现每次都会显示一个新的GUID。

以下是对上面代码进行了"修饰"的版本，点击"Create GUID"按钮就会触发创建一个新的GUID：

<html>

<script language="vb" runat="server">
' 当点击"Create GUID"按钮时，调用下面的防范
Sub displayNewGUID (Sender As Object, E As EventArgs)
' 设置label内容为新GUID数值
guidLabel.Text = System.GUID.NewGuid().ToString()
End Sub
</script>

<head>
<title>Demo: Generating GUIDs</title>
</head>

<body>

<form runat="server">

<asp:Button id="guidButton" text="Create GUID" runat="server" onclick="displayNewGUID" />
<br>

<asp:Label id="guidLabel" runat="server" />

</form>

</body>
</html>

点击这里演示。

由于上述方法使用了.NET的基本类之一，因此它可以被任何.NET应用程序使用，而不仅仅局限于ASP.NET中。