最新文章在首页调用实现左右滚动的代码

最新文章在首页调用实现左右滚动的代码
'=================================================
'过程名：ShowAnnounce1
'作  用：显示最新文章
'参  数：ShowType ------显示方式，1为纵向，2为横向
'        AnnounceNum  ----最多显示多少条公告
'=================================================
sub ShowAnnounce1(ShowType1,AnnounceNum1)
 dim sqlAnnounce1,rsAnnounce1
 if AnnounceNum1>0 and AnnounceNum1<=10 then
  sqlAnnounce1="select top " & AnnounceNum1
 else
  sqlAnnounce1="select top 10"
 end if
 sqlAnnounce1=sqlAnnounce1 & " * from Article order by ArticleID Desc"
 Set rsAnnounce1= Server.CreateObject("ADODB.Recordset")
 rsAnnounce1.open sqlAnnounce1,conn,1,1
 if rsAnnounce1.bof and rsAnnounce1.eof then 
  AnnounceCount1=0
  response.write "<p>没有最新文章</p>" 
 else 
  AnnounceCount=rsAnnounce1.recordcount
  if ShowType1=2 then
   do while not rsAnnounce1.eof   
    response.Write "<a href='ShowArticle.asp?ArticleID=" & rsAnnounce1("ArticleID") &"' title='" & rsAnnounce1("title") & "' target=_Blank>" & rsAnnounce1("title") & "</div><div align='right'>" & rsAnnounce1("Author") & "" & FormatDateTime(rsAnnounce1("UpdateTime"),1) & "</a>"
    rsAnnounce1.movenext
   loop
  else
   do while not rsAnnounce1.eof   
    response.Write "<a href='ShowArticle.asp?ArticleID=" & rsAnnounce1("ArticleID") &"' title='" & rsAnnounce1("title") & "' target=_Blank>" & rsAnnounce1("title") & "[" & rsAnnounce1("Author") & "" & FormatDateTime(rsAnnounce1("UpdateTime"),1) & "]</a>"
    rsAnnounce1.movenext    
   loop
        end if 
 end if  
 rsAnnounce1.close
 set rsAnnounce1=nothing
end sub

将上面代码加入到syscode.asp中，在需要调用的地方添加一个 <marquee scrollamount="2" onmouseover=stop() onmouseout=start() scrolldelay="10" width="674"><% call ShowAnnounce1(1,10) %></marquee>就可以实现最新文章首页调用左右滚动。还有不全面的地方请大家在使用的时候自己修改一下。