手机WAP编程

开发平台：

ASP/ASPX

xt.asp：源码内容

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

						