📄 guestbookmanage.asp
字号:
<!--#include file="CheckAdminLogined.asp"-->
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<%
if request("cur_action")="delete" then
sql_delete="delete from tGuestBook where ID="&request("EditID")
conn.execute sql_delete
response.write "<script>location.replace('?PageNo="&request("pageno")&"');</script>"
response.end
end if
PERPAGE =7
pageno=request("pageno")
set rs=server.createobject("ADODB.recordset")
sql="select * from tGuestBook order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂时没有数据!"
else
if request("pageno")="" or isNumeric(request("pageno"))=0 or request("pageno")<"1" then
curpage = 1
else
curpage = cint(request("pageno"))
end if
rs.pagesize = PERPAGE
if curpage>rs.pagecount then curpage=rs.pagecount
rs.absolutepage = curpage
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/AdminCss.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function check_dele(id,pageno){
if(confirm("你确定删除该条留言吗，删除后数据不能恢复！")){
location.href="?cur_action=delete&EditID="+id+"&PageNo="+pageno
}
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td width="926" height="10"></td>
</tr>
<tr>
<td>我的位置：后台管理系统._综合功能管理._留言薄管理</td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle"><strong>留言薄管理
</strong> </td>
<td align="right" background="images/title2.gif"> </td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top"><br>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#f6f6f6">
<tr>
<td width="37%"> 页次:<%=curpage%>/<%=rs.pagecount %> 总共有<%=rs.recordcount %>条留言</td>
<td width="63%" align="right"> <%
if curpage = 1 then
response.write " 首页 | 上一页 | "
else
response.write "<a href='?pageno=1'>首页</a> | <a href='?pageno="&curpage-1&"'>上一页</a> | "
end if
if curpage = rs.pagecount then
response.write "下一页 | 尾页"
else
response.write "<a href='?pageno="&curpage+1&"'>下一页</a> | <a href='?pageno="&rs.pagecount&"'>尾页</a>"
end if
%> 转到：
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<% for i=1 to rs.pagecount
if curpage=i then
response.write "<option value='?pageno="&i&"' selected>第"&i&"页"
else
response.write "<option value='?pageno="&i&"'>第"&i&"页"
end if
next
%>
</select> </td>
</tr>
</table>
<% for i = 1 to rs.pagesize %>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td width="79%"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="21%" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" bgcolor="efefef"><strong>NO.<%=rs("ID")%></strong></td>
</tr>
<tr>
<td height="4" align="center"></td>
</tr>
<tr>
<td align="center"><img src="/Service/Head/<%=rs("Head")%>.gif"></td>
</tr>
<tr>
<td height="4" align="center"> </td>
</tr>
<tr>
<td align="center"><%=rs("TrueName")&"["&rs("ComeFrom")&"]"%></td>
</tr>
</table></td>
<td width="79%" bgcolor="#FFFFFF" class="font"><table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td><%="<img src=/Service/face/"&rs("Face")&".gif> "&chtml(rs("content"))%></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#EFF3E7">
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23" align="center"><a href="<%=rs("Url")%>" target="_blank"><img src="../Service/Images/homepage.gif" alt="主頁" width="16" height="16" border="0"></a></td>
<td width="23" align="center"><a href="mailto:<%=rs("Email")%>"><img src="../Service/Images/email.gif" alt="電子郵箱" width="16" height="16" border="0"></a></td>
<td width="23" align="center">
<% if request.Cookies("AdminUser")<>"" then
response.write "<a href='GuestBookManageReturn.asp?EditID="&rs("ID")&"&PageNo="&PageNo&"'>"
else
response.write "<a href=javascript:alert('你没有这个权限')>"
end if%>
<img src="../Service/Images/return.gif" alt="回復" width="16" height="16" border="0"></td>
<td width="23" align="center">
<% if request.Cookies("AdminUser")<>"" then
response.write "<a href=javascript:check_dele('"&rs("ID")&"','"&PageNo&"')>"
else
response.write "<a href=javascript:alert('你没有这个权限')>"
end if
%>
<img src="../Service/Images/delete.gif" alt="刪除" width="16" height="16" border="0"></td>
<td height="20" align="right">留言于：<%=rs("AddTime")%> </td>
</tr>
</table></td>
</tr>
<%if rs("Answer")<>"" then%>
<tr bgcolor="#FFFFFF">
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%" align="center"><img src="../Service/Images/vickey.gif" width="82" height="25"></td>
<td width="5%" align="center"><img src="/Service/Face/<%=rs("AnswerFace")%>.gif"></td>
<td width="80%" class="font1"> <%=chtml(rs("Answer"))&" ["&rs("AnswerTime")&"]"%></td>
</tr>
</table></td>
</tr><%end if%>
</table></td>
</tr>
</table>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next
%>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#f6f6f6">
<tr>
<td width="37%"> 页次:<%=curpage%>/<%=rs.pagecount %> 总共有<%=rs.recordcount %>条留言</td>
<td width="63%" align="right">
<%
if curpage = 1 then
response.write " 首页 | 上一页 | "
else
response.write "<a href='?pageno=1'>首页</a> | <a href='?pageno="&curpage-1&"'>上一页</a> | "
end if
if curpage = rs.pagecount then
response.write "下一页 | 尾页"
else
response.write "<a href='?pageno="&curpage+1&"'>下一页</a> | <a href='?pageno="&rs.pagecount&"'>尾页</a>"
end if
%>
转到：
<select name="menu1" onChange="MM_jumpMenu('parent.frames[\'right\']',this,0)">
<% for i=1 to rs.pagecount
if curpage=i then
response.write "<option value='?pageno="&i&"' selected>第"&i&"页"
else
response.write "<option value='?pageno="&i&"'>第"&i&"页"
end if
next
%>
</select>
</td>
</tr>
</table><%end if%><br></td>
</tr>
</table>
<br>
</td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -