rt.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:1k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <%set brs=Server.CreateObject("ADODB.Recordset")
  2.      ssql="select top 3 name,id,dgtm,ltid,yc from lttz where CStr(yc)=0 and ltid<>0 and ltid<>9999 order by dgtm desc"
  3.   brs.open ssql,conn,1,1
  4. if brs.eof then
  5.    Response.write "<b>暂无热门帖子</b>"
  6. Else
  7. For i=1 to 3
  8.     spmc=left(brs("name"),8)
  9.    if len(brs("name"))>8 then
  10.     spmc=spmc+"。。"
  11.    End if
  12.     Response.write ""&i&".<a href='bbs/lt_view.asp?tid=" & brs("id") & "&amp;cnscu="&cnscu&"'>" & ubb(spmc) & "</a><br/>"
  13.     brs.Movenext
  14.   if brs.EOF then Exit for
  15.     Next
  16.   End if
  17. brs.close
  18. set brs=nothing
  19. %><%
  20. '====================================================================
  21. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  22. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  23. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  24. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  25. '====================================================================
  26. %>