手机WAP编程

开发平台：
ASP/ASPX

xx_view.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"-->
<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="查看消息">
<p>
<!--#include file="cnscucsb.asp"-->
<%
dim id
id=request("id")
if id="" then id="0"
bbbid=request("id")
if bbbid="" then bbbid="0"
set objgbrr=Server.CreateObject("ADODB.Recordset")
  ssql="select id,fnr,fid,sid,tou,ftm from tbxx where cstr(id)="&id&" and cstr(sid)="&myid
  objgbrr.open ssql,conn,1,1
if objgbrr.eof then%>
没有本信息<br/>
<%else
js=objgbrr("fnr")
ffid=objgbrr("fid")
fftm=objgbrr("ftm")
tou=objgbrr("tou")
objgbrr.close
set objgbrr=nothing
set oprs=Server.CreateObject("ADODB.Recordset")
  sqll="select id,nini from cnscu_gr where cstr(id)="&ffid
  oprs.open sqll,conn,1,1
if oprs.eof then
zuoze="1"
Else
zuoze=oprs("nini")
oprs.close
set oprs=nothing
end if
sql="update tbxx set fzt=1 where cstr(id)="&id
  conn.Execute(sql)
%>
内容：<%if tou<>"1" then%><img src="<%=tou%>" alt="加载表情"/><%end if%><%=ubb2(js)%><br/>
作者：
<%if zuoze<>"1" then%>
<a href="gr_zl.asp?id=<%=ffid%>&amp;cnscu=<%=cnscu%>"><%=ubb(zuoze)%></a>(ID:<%=ffid%>)
<br/>
时间：<%=fftm%><br/>
快速回复：<br/>
<input name="text" title="内容" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
<anchor>确定发送
    <go href="addcl.asp?cnscu=<%=cnscu%>" method="post" accept-charset="utf-8">
        <postfield name="txt" value="$(text)"/>
        <postfield name="lid" value="<%=ubb(ffid)%>"/>
        <postfield name="myid" value="<%=ubb(myid)%>"/>
    </go>
</anchor><br/>
<%end if%>
<%if zuoze="1" then%>
系统消息<br/>
<%end if%>
<a href="xx_scbt.asp?id=<%=id%>&amp;cnscu=<%=cnscu%>">删除当前信息</a><br/>
**最近消息**<br/>
<%set oprss=Server.CreateObject("ADODB.Recordset")
  sqlls="select top 6 * from tbxx where cstr(sid)="&myid&" and cstr(fid)="&ffid&" and cstr(id)<>"&bbbid&" order by ftm desc"
  oprss.open sqlls,conn,1,1
if oprss.eof then
mmxx="没有了"
else
For i=1 to 6%>
<%=i%><%=zuoze%>：<%=ubb(oprss("fnr"))%><%=ubb(oprss("ftm"))%><br/>
<%oprss.Movenext
if oprss.EOF then Exit for
Next
end if
oprss.close
set oprss=nothing%>
<%end if%>
<a href="xx_list.asp?cnscu=<%=cnscu%>">回到消息中心</a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>

						