📄 index.asp

📁 采用三级目录
💻 ASP
字号:
<!--#include file="conn.asp"--><%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"> 
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card id="gbook" title="留言列表">
<p>
<%
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from book order by id desc"
	rs.open sql,conn,1
	if not(rs.eof and rs.bof) then 
Page=Int(Abs(Request("page")))
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1
rs.pagesize = 5 '每页显示记录数
total = rs.RecordCount
mp = rs.pagesize
rs.absolutepage = page
i=0:k=0

do while not rs.eof and mp>0:k=k+1
%>
<%=i+1+((rs.pagesize)*(page-1))%>.<a href='show.asp?id=<%=rs("id")%>&amp;shouji=<%=request("shouji")%>&amp;pass=<%=request("pass")%>'><%=rs("title")%></a><br/>
作者：<%=rs("user")%><br/>
时间：<%=rs("ftime")%><br/>
回复：<% if rs("hui")=0 then response.write "未回复" else response.write "已回复" %><br/>
<%
i=i+1
mp=mp-1
rs.movenext
loop
if page>rs.pagecount then Response.redirect("index.asp?page="&rs.pagecount&"&amp;shouji="&request("shouji")&"&amp;pass="&request("pass"))
if page>1 then
response.Write("<a href='index.asp?page=1&amp;shouji="&request("shouji")&"&amp;pass="&request("pass")&"'>&#x9996;&#x9875;</a>")
response.Write(" <a href='index.asp?page="&page-1&"&amp;shouji="&request("shouji")&"&amp;pass="&request("pass")&"'>&#x4E0A;&#x4E00;&#x9875;</a> ")
end if


if page<rs.pagecount then
response.Write("<a href='index.asp?page="&page+1&"&amp;shouji="&request("shouji")&"&amp;pass="&request("pass")&"'>&#x4E0B;&#x4E00;&#x9875;</a>")
response.Write(" <a href='index.asp?page="&rs.pagecount&"&amp;shouji="&request("shouji")&"&amp;pass="&request("pass")&"'>&#x5C3E;&#x9875;</a>")
end if
response.Write(" <br/>&#x5171;"&total&"条留言 ")

%>
</p><p><a href='add.asp'>发表留言</a><br/>
<a href='login.asp'>管理留言</a><br/>
------------<br/>
<a href='../index.asp'>网站首页</a></p>
<% else
%>暂无内容<br/>-------------<br/>
<%
		response.Write "<a href='add.asp'>发表留言</a><br/>"
		response.Write "<a href='../index.asp'>网站首页</a></p>"
	end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -