把以下源码放到需要显示的地方即可


<!--#INCLUDE VIRTUAL="/bbs/showad/conn.asp"-->
<%
'----------显示小广播
 Set rsgb = Server.CreateObject("ADODB.Recordset")
 rsgb.open "SELECT top 1 id,snr,stime from  showad where yc = 0 and DATEDIFF('s', stime, now()) < 60*60 order by id desc",gbconn,1,1
if rsgb.eof then
else
 dim ttitlerr
    ttitlerr=left(rsgb("snr"),15)
   if len(rsgb("snr"))>15 then
    ttitlerr=ttitlerr+".."
   End if
      dim gdranNum2
   Randomize()  
gdranNum2 = int(rsgb.recordCount*rnd)+1 
rsgb.absoluteposition=gdranNum2
Response.write "<br/><img src='/img/gb.gif' alt='.'/><a href='../showad/index.asp?sid="&sid&"'>广播:</a>"
   Response.write "<a href='../showad/showadview.asp?id="&rsgb("id")&"&amp;sid="&sid&"'>"&ttitlerr&"</a><br/>"
end if
  rsgb.close
  set rsgb=Nothing
  gbconn.close
  set gbconn=Nothing
'----------显示小广播
%>

。地狱疯魔提供，欢迎共享！联系QQ379470430