📄 user_message_list.asp
字号:
<!--#include file="inc/cconst.asp"-->
<!--#include file="inc/conn.asp"-->
<%
response.ContentType="text/vnd.wap.wml;charset=utf-8"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"%>
<%
Function HtmlUNEncode(str)
dim tempstr
tempstr=str
If Trim(tempstr)="" Or IsNull(tempstr) Then Exit Function
tempstr=Replace(tempstr,"<br>",Chr(10))
tempstr=Replace(tempstr,"<p></p>",Chr(10) & Chr(10) )
tempstr=Replace(tempstr,"",Chr(13))
tempstr=Replace(tempstr,"'",Chr(39))
tempstr=Replace(tempstr,""",Chr(34))
tempstr=Replace(tempstr," ",Chr(9))
tempstr=Replace(tempstr," ",Chr(32))
' tempstr=Replace(tempstr,"<","<")
' tempstr=Replace(tempstr,">",">")
HtmlUNEncode=tempstr
End Function
%>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml><head><meta http-equiv="Cache-Control" content="max-age=0"/></head>
<card id="readnote" title="短消息">
<%
if session("name")="" then
response.redirect("error.asp")
end if
studentid=request.querystring("studentid")
set rs=server.createobject("adodb.recordset")
sql="select * from permsg where towho='"&studentid&"'and isread=0 order by id desc"
rs.open sql,conn,1,3
while (not rs.eof)
title=rs("title")
notedate=rs("adddate")
sender=getmasterusername(rs("username"))
%>
<p><%=tra(cnotetitle)%><a href="User_Message_View.asp?id=<%=rs("id")%>"><%=wap_81238_net(title)%></a></p>
<p><%=tra(cnotetime)%><%=wap_81238_net(notedate)%></p>
<p><%=tra(csender)%><%=wap_81238_net(sender)%></p>
<p>------</p>
<%
rs.movenext
wend
response.write("<p align='center'>"&tra(cend)&"</p>")
response.write("<p align='center'><anchor title='Back'>"&tra(cback)&"<go href='main.asp'/></anchor></p>")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -