?? guest_list.asp
字號(hào):
?<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
'====================================================================
' 請(qǐng)你保留這段說(shuō)明，這并不會(huì)影響你的速度,
' 程序制作：橫云 掌上校園版權(quán)所有，請(qǐng)勿破解
' 完成時(shí)間： 2007-09-27 主頁(yè)地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com QQ:554904632
'====================================================================
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?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">
<!--#INCLUDE FILE="conn.asp"-->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='main' title='留言列表'>
<p><%
Set rs=server.createobject("ADODB.RECORDSET")
sql="SELECT * FROM guest ORDER BY ID DESC"
rs.open sql,conn,3,3
if rs.eof and rs.bof then
response.write "还没有任何留言!<br/>"
else
If Request("page") ="" or Request("page")<=0 then
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize =5
total = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize
%>
共<%=total%>条留言
<% dim i
i=1
do while not rs.eof and i<=mypagesize %>
<br/>------------
<br/><%=untow(rs("UserName"))%>：<%=UBBCode(rs("Ly_str"))%>(<%=rs("bookdate")%>)
<br/>联系方法:<%=untow(rs("LzHf"))%>
<%if rs("Content")<>"" then%>
<br/>------------
<br/>回复:<%=untow(rs("Content"))%>(<%=untow(rs("reply"))%>)
<br/>时间:<%=rs("cstr")%><% end if %>
<% if session("flag")<>"" then %>
<% if session("flag")<3 then %>
<br/><a href='guest_del.asp?PageNo=<%=PageNo%>&ID=<%=rs("ID")%>'>[删除]</a>
<a href='guest_reply.asp?PageNo=<%=PageNo%>&ID=<%=rs("ID")%>'>[回复]</a>
<%end if%><%else%><%end if%>
<%
i=i+1
rs.movenext
loop
%>
<br/><%
if page>1 then%>
<a href='guest_list.asp?page=<%=page-1%>'>上页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='guest_list.asp?page=<%=page+1%>'>下页</a>
<%
end if
%>
(<%=page%>/<%=rs.pagecount%>)<%end if%>
<br/>------------
<br/><a href='#card2'>按页搜索</a>
<br/><a href='guest_input.asp'>填写留言</a>
<br/><a href='guest_my.asp'>我的留言</a>
<br/><a href='../index.asp'>网站首页</a></p>
<% session.Timeout=1200
session("page")=page %>
</card>
<card id='card2' title='指定页面'>
<p>
跳到第：<input name='pages' type='text' format="*N" emptyok='false' value='<%=session("page")%>' maxlength="20"/><br/><anchor>页，跳吧<go href='guest_list.asp?page=$pages'></go></anchor>
</p>
</card>
</wml>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -