📄 guestbook.asp
字号:
<%
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"-->
<!-- #include file="../include/convert.asp"-->
<%
dim rs,sql
dim page,maxPerPage
maxPerPage=10 '每页显示的记录数
page=Request("page")
if (page="" or isempty(page)) then page=1
thisUrl="guestbook.asp?true=1"
session("adminOldUrl")=thisUrl&"&page="&page
sql="select * from guestbook order by id desc"
set rs=server.createObject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=MaxPerPage
%>
<html>
<head>
<title>留言管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=Javascript>
<!--
function jumpTo(i){
if(i==1){
this.document.location="<%=thisUrl%>";}
if(i==2){
this.document.location="<%=thisUrl%>&page=<%=page-1%>";}
if(i==3){
this.document.location="<%=thisUrl%>&page=<%=page+1%>";}
if(i==4){
this.document.location="<%=thisUrl%>&page=<%=rs.pageCount%>";}
}
function deleteMe(i){
if (confirm("确定要删除该留言?")==1){
window.location="saveGuestbookDel.asp?id="+i
}
}
//-->
</script>
<link href=css.css rel=STYLESHEET type=text/css>
</head>
<body bgcolor="#9CC7EF" text="#000000">
<div align="center">留言管理</div>
<%
i=1
if not (rs.eof or err) then rs.move (page-1)*maxPerPage
do while not (rs.eof or err)
%>
<table width="98%" border="1" bordercolordark=#9CC7EF bordercolorlight=#145AA0 cellspacing="0" cellpadding="1" align="center">
<tr bgcolor="#6CADE8">
<td width="9%">
<div align="center">作者</div>
</td>
<td width="91%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=replace(rs("userName"),"<","<")%> 于 <%=rs("createDate")%></td>
<td>
<div align="right"><a href="guestbookMod.asp?id=<%=rs("id")%>">修改</a>
<a href="Javascript:deleteMe(<%=rs("id")%>)">删除</a> </div>
</td>
</tr>
</table>
</td>
</tr>
<%
email=replace(rs("email"),"<","<")
if email<>"" then
%>
<tr>
<td width="9%">
<div align="center">邮箱</div>
</td>
<td width="91%"><a href='mailto:<%=email%>'><%=email%></a> </td>
</tr>
<%
end if
homepage=replace(rs("homepage"),"<","<")
homepage="http://"&replace(homepage,"http://","")
if homepage<>"http://" then
%>
<tr>
<td width="9%">
<div align="center">主页</div>
</td>
<td width="91%"><a href='<%=homepage%>' target=_blank><%=homepage%></a> </td>
</tr>
<%end if %>
<tr>
<td width="9%" height="22">
<div align="center">主题</div>
</td>
<td width="91%" height="22"><%=replace(rs("title"),"<","<")%> </td>
</tr>
<tr>
<td width="9%">
<div align="center">内容</div>
</td>
<td width="91%"><%=convert(rs("content"))%> </td>
</tr>
<%
revert=rs("revert")
if revert<>"" then
%>
<tr>
<td width="9%">
<div align="center">回复</div>
</td>
<td width="91%"><%=revert%> </td>
</tr>
<%end if %>
</table>
<%
i=i+1
if i>maxPerPage then exit do
rs.moveNext
loop
%>
<div align="right"><%=rs.recordCount%> 项 第<%=page%>/<%=rs.pageCount%>
页
<%if page>1 then%>
<input type="button" name="Submit3" value="首页" onClick="Javascript:jumpTo(1)">
<input type="submit" name="Submit4" value="上页" onClick="Javascript:jumpTo(2)">
<%else%>
<input type="button" name="Submit32" value="首页" disabled>
<input type="submit" name="Submit4" value="上页" disabled>
<%end if
if rs.recordCount>page*maxPerPage then%>
<input type="submit" name="Submit5" value="下页" onClick="Javascript:jumpTo(3)">
<input type="submit" name="Submit6" value="末页" onClick="Javascript:jumpTo(4)">
<%else%>
<input type="submit" name="Submit5" value="下页" disabled>
<input type="submit" name="Submit6" value="末页" disabled>
<%end if%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -