手机WAP编程

开发平台：

ASP/ASPX

ltlt.asp：源码内容

							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<!--#include file="conn.inc"-->
<!--#include file="cnscucsb.asp"-->
<wml><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="<%=ltname%>">
<p>
<%
bb=request("bb")
if bb="" then bb="1"
if bb="1" then fl="rc"
if bb="2" then fl="tm"
if bb<>"1" or bb<>"2" then bb="1"
%>
<%if cnscu="youke" or cnscu="" then%>
<a href="/sc/cnscu_grdl.asp">登陆/注册</a><br/>
<%end if%>
<%
if len(ltlogo)>7 then
response.write("<img src='" & ltlogo & "' alt='手机购物，买我喜欢'/><br/>")
end if
%>
<%set brsg=Server.CreateObject("ADODB.Recordset")
     ssqlg="select top 1 * from cnscu_gg order by tm desc"
  brsg.open ssqlg,conn,1,1
    Response.write "广播："
if brsg.eof then
   Response.write "暂无公告<br/>"
Else
For i=1 to 5
    spmc=left(brsg("name"),8)
   if len(brsg("name"))>8 then
    spmc=spmc+"。。"
   End if
    Response.write "<a href='/sc/gg_view.asp?id=" & brsg("id") & "&amp;cnscu="&cnscu&"'>" & ubb(spmc) & "</a><br/>"
    brsg.Movenext
  if brsg.EOF then Exit for
    Next
  End if
brsg.close
set brsg=nothing
%>
<%if cnscu<>"youke" and cnscu<>"" then%>
<!--#include file="xxts.asp"-->
欢迎您：<b><%=myni%></b><br/>
<a href="xx_list.asp?cnscu=<%=cnscu%>">消息列表</a>*<a href="tb_hylb.asp?cnscu=<%=cnscu%>">好友列表</a><br/>
<%end if%>
<%
set rsqllt=Server.CreateObject("ADODB.Recordset")
rssptlt="select * from ltlb order by pid asc"
rsqllt.open rssptlt,conn,1,2
if rsqllt.eof then 
response.write("暂无聊天室，请登陆后台添加")
   else
rsqllt.Move(0)
dim l
l=1
do while ((not rsqllt.EOF) and l <=5000)
%>
<a href='lt_list.asp?ltid=<%=rsqllt("id")%>&amp;cnscu=<%=cnscu%>'><%=ubb(rsqllt("name"))%></a>
<%if rsqllt("brr")=1 then%><br/><%end if%>
<%
rsqllt.MoveNext
l=l+1
loop
end if
rsqllt.close
set rsqllt=nothing
%>
<img src='/sc/img/ltfjx.gif' alt='************'/><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>

						