📄 usermsg.asp
字号:
<!--#include file="tra.asp"-->
<!--#include file="cconst.asp"-->
<!--#include file="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"%>
<% if session("name")="" then response.redirect("error.asp")
action=request.querystring("action")
%>
<?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="查看留言" title="查看留言">
<%
if action="find" then
fname=request.querystring("fname")
set rs=server.createobject("adodb.recordset")
sql="select * from ec where sname='"&fname&"'"
rs.open sql,conn,1,3
if rs.eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
session("error")=6
response.redirect("error.asp")
end if
while not rs.eof
name=rs("sname")
userid=rs("userid")
%>
<p><a href="viewmember.asp?userid=<%=userid%>"><%=name%></a><anchor title="send">(<%=tra(csendnote)%>)<go href="sendnote.asp" method="post"><postfield name="sname" value="<%=name%>"/></go></anchor></p>
<%
rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("<p align='center'><anchor title='Back'>"&tra(cback)&"<go href='usermsg.asp'/></anchor></p>")
else
dim startpos
startpos=cint(request.querystring("page"))
if startpos<=0 then
startpos=1
end if
set rs=server.createobject("adodb.recordset")
rs.PageSize=5
rs.open "select * from ec order by userid desc",conn,1,1
%>
<p align="center"><%=tra(cmember)%>(<%=rs.recordcount%>)</p>
<%
if startpos > rs.PageCount then
startpos=rs.PageCount
end if
rs.AbsolutePage=startpos
for ipage=1 to rs.pagesize
studentid=rs("studentid")
sname=rs("sname")
userid=rs("userid")
%>
<p><a href="viewmember.asp?userid=<%=userid%>"><%=sname%></a><anchor title="send">(<%=tra(csendnote)%>)<go href="sendnote.asp" method="post"><postfield name="sname" value="<%=sname%>"/></go></anchor></p>
<%
rs.movenext
if rs.eof then exit for
next
startpos=startpos+1
if (not rs.eof ) then
txt="'usermsg.asp?page="&cstr(startpos)&"'"
%>
<p><a href="#find"><%=tra(cfinduser)%></a></p>
<p><a href=<%=txt%>><%=tra(cnext)%></a></p>
<p><%=tra(cgoto)%><input name="goto" title="goto" value="0" format="*N"/><%=startpos-1%>/<%=rs.pagecount%>页</p>
<p>
<anchor title="gotopage">Goto
<go href="usermsg.asp" method="get">
<postfield name="page" value="$(goto)"/>
</go>
</anchor>
</p>
<p><a href="main.asp"><%=tra(cback)%></a></p>
<%
else
response.write("<p align='center'>"&tra(cend)&"</p>")
response.write("<p align='center'><anchor title='Back'>"&tra(cback)&"<go href='main.asp'/></anchor></p>")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
</card>
<card id="find" title="find">
<p><%=tra(cmsg)%><input name="fname" title="find"/></p>
<p>
<anchor title="Find"><%=tra(cfind)%>
<go href="usermsg.asp" method="get">
<postfield name="action" value="find"/>
<postfield name="fname" value="$(fname)"/>
</go>
</anchor>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -