< %
 dim dsconn
 dim dsconnstr
 dim db
 db="news/wenzhang.mdb"
 Set dsconn = Server.CreateObject("ADODB.connection")
 dsconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
 dsconn.Open dsconnstr

% >

< %
set rs=server.createobject("adodb.recordset")
rs.open "select top 5 * from wenzhang where langmuid=1 and langmu2id=2 order by id desc",dsconn,1,3
if rs.eof or rs.bof then
response.write"没有公告"
else
i=-1
% >
< %
response.write"<script>"
response.write"var marqueeContent=new Array(); "  ''滚动新闻
while not rs.eof
i=i+1
title=rs("title")
id=rs("id")
time1=rs("now")
response.write"marqueeContent["&i&"]='<a href=http://www.lyta.com.cn/news/list.asp?id="&id&" target=_blank title="&title&">"&left(title,14)&"...</a><font color=#cccccc> "&left(time1,10)&"</font>';"
rs.movenext
wend
response.write"var marqueeInterval=new Array(); " ''定义一些常用而且要经常用到的变量
response.write"var marqueeId=0;"
response.write"var marqueeDelay=3000;"
response.write"var marqueeHeight=18;"
''接下来的是定义一些要使用到的函数
response.write"function initMarquee() {"
response.write" var str=marqueeContent[0];"
response.write" document.write('<div id=marqueeBox style=""overflow:hidden;height:'+marqueeHeight+'px"" onmouseover=""clearInterval(marqueeInterval[0])"" onmouseout=""marqueeInterval[0]=setInterval(\'startMarquee()\',marqueeDelay)""><div>'+str+'</div></div>');"
response.write" marqueeId++;"
response.write" marqueeInterval[0]=setInterval(""startMarquee()"",marqueeDelay);"
response.write" }"
response.write"function startMarquee() {"
response.write" var str=marqueeContent[marqueeId];"
response.write"  marqueeId++;"
response.write" if(marqueeId>=marqueeContent.length) marqueeId=0;"
response.write" if(marqueeBox.childNodes.length==1) {"
response.write"  var nextLine=document.createElement('DIV');"
response.write"  nextLine.innerHTML=str;"
response.write"  marqueeBox.appendChild(nextLine);"
response.write"     }"
response.write" else {"
response.write"  marqueeBox.childNodes[0].innerHTML=str;"
response.write"  marqueeBox.appendChild(marqueeBox.childNodes[0]);"
response.write"  marqueeBox.scrollTop=0;"
response.write"  }"
response.write" clearInterval(marqueeInterval[1]);"
response.write" marqueeInterval[1]=setInterval(""scrollMarquee()"",40);"
response.write" }"
response.write"function scrollMarquee() {"
response.write" marqueeBox.scrollTop++;"
response.write" if(marqueeBox.scrollTop%marqueeHeight==(marqueeHeight-1)){"
response.write"  clearInterval(marqueeInterval[1]);"
response.write"  }"
response.write" }"
response.write"initMarquee();"
response.write"</script> "
rs.close
set rs=nothing
 dsconn.close
 set dsconn=nothing
end if% >