手机WAP编程

开发平台：

ASP/ASPX

lyview.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"--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <%
id=request.QueryString("id")
page=request.QueryString("page")
num=request.serverVariables("HTTP_X_UP_CALLING_LINE_ID")
num=right(num,11)
%>
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="阅读留言">
<p>
<%
Function c2u(sGBStr)
Dim i,c
if sGBStr<> "" then
For i = 1 to Len(sGBStr)
c = Mid(sGBStr,i,1)
if c=chr(13) then 
c2u = c2u & "<br/>"
else
c2u = c2u & "&#x" & Hex(AscW(c)) & ";"
end if
Next
end if
End Function
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [gbook] where [ID]=" & ID
rs.open rsstr,conn,1,2
set rsn=Server.CreateObject("ADODB.Recordset")
rsstrn="select * from [gbook] where [ID]<"& ID &" order by [ID] desc"
rsn.open rsstrn,conn,1,2
set rspr=Server.CreateObject("ADODB.Recordset")
rsstrpr="select * from [gbook] where [ID]>"& ID &" order by [ID] asc"
rspr.open rsstrpr,conn,1,2
if rs.recordcount=0 then 
response.write("无此留言！<br/>")
else
response.write(ubb(rs("title")) & "<br/>")
%>
<% 
pass=request("pass")
%>
<%
if rs("num")=num or pass=rs("num") then
response.write(ubb2(rs("text")) & "<br/><br/>")
else
	if rs("open") then
	response.write("(加密，仅管理员能查看！)<br/>")
	%>
<input name='pass' type="password" maxlength="11" /><br/>
<a href='lyview.asp?lhc=<%=lhc%>&amp;ID=<%=rs("ID")%>&amp;page=<%=page%>&amp;pass=$(pass)'>输入联系方式查看</a><br/><br/>
<%
	else
	response.write("----------<br/>内容："&ubb2(rs("text")) & "<br/>")
	end if
	end if
response.write("作者：" & ubb(rs("name")) & "<br/>")
response.write("时间：" & rs("time") & "")
%>
<br/>---------<br/>
<%if rs("num")=num or pass=rs("num") then%>
站长:<%=ubb2(rs("retext"))%><br/>
时间:<%=ubb2(rs("retime"))%><br/>
<%else%>
<%if rs("open") then
response.write("(秘密回复，仅留言者本人能查看！)<br/>")
else
response.write("站长:"&ubb2(rs("retext")) & "<br/>")
response.write("时间"&ubb2(rs("retime")) & "<br/>")
end if%>
<% end if%>
<% end if%>
<a href="ly.asp?lhc=<%=lhc%>&amp;page=<%=page%>">留言黑板</a>|<a href="index.asp">网站首页</a>
</p>
</card>
</wml> 
<%
conn.close
set conn=nothing
%>

						