📄 gbook.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!--#include file="conn.asp" -->
<!--#include file="function.asp"-->
<?xml version="1.0" encoding="utf-8"?>
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="留言|<%=webtitle%>">
<a href="index.asp"><img src="<%=weblogo%>" width="88" height="31" border="0"/></a><br/>
【<a href="gbook.asp">察看留言</a>】<br/>
〖<a href="gbwrite.asp">签写留言</a>〗<br/>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from gbook where key=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
当前还没有留言，我要<a href='gbwrite.asp'>签写留言</a>！！！<br/>
<%
else
Rs.pagesize=10
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
For i = 1 to rs.PageSize
if rs.eof then
Exit For
end if
%>
【<%=rs("name")%>】的留言<br/>
内容：<%=th(rs("content"))%><br/>
(Time:<%=rs("lytime")%>)<br/>
<%if rs("reply")<>"" then%>
<font color="red">管理员回复内容：</font><br/>
<%=th(rs("reply"))%><br/>
(Time:<%=rs("hftime")%>)<br/>
<%end if%><br/>
<%
rs.movenext
next
%>
<%if page=1 then%><%else%>
<a href=gbook.asp?page=1>首页</a> <a href=gbook.asp?page=<%=page-1%>>上页</a>
<%end if%> <%if Rs.pagecount-page <> 0 then%>
<a href=gbook.asp?page=<%=page+1%>>下页</a>
<a href=gbook.asp?page=<%=Rs.pagecount%>>尾页</a>
<%else%><%end if%><br/>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
<br/><%=copyright%>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -