📄 glly.asp
字号:
<%Response.Expires =0%>
<%
'on error resume next
if session("lymanager")="" or isempty(session("lymanager")) or session("lymanager")=0 or session("lysiteid")="" then
response.write("<script language=""javascript"">")
response.write("alert(""对不起请先登录！"");")
response.write("history.go(-1);")
response.write("</script>")
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
id=request("id")
siteid=request("siteid")
if session("lysiteid")<>siteid then
response.write("<script language=""javascript"">")
response.write("alert(""对不起，您不能管理该站点的留言！"");")
response.write("history.go(-1);")
response.write("</script>")
response.end
end if
set rs=server.CreateObject("adodb.recordset")
if id>0 then
rs.open "select * from user_letter_table where id="&id,conn,3,2
if not rs.eof and not rs.bof then
conn.execute("delete from user_letter_table where hfid="&id)
rs.delete
end if
rs.close
conn.close
response.redirect "glly.asp?siteid="&siteid&"&id=0&page="&request("page")
end if
rs.Open "select * from user_letter_table where siteid="&siteid&" order by rq desc,sj desc",conn,1,1
if rs.recordcount<=0 then
rs.close
conn.close
response.write("<font color=#ff0000 size=+1><center>现在还没有留言！</center></font>")
response.end
end if
%>
<html>
<head>
<title>管理留言</title>
<meta http-equiv="expires" content="no-cache">
<meta http-equiv="expires" content="wed,26 feb 1997 08:21:57 gmt">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
</head>
<body bgcolor="#ffffff" leftmargin="2" topmargin="2" marginwidth="2" marginheight="2">
<div align="center">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<td width="562"><br>
<p align="center"><img src="../qqpic/ly.gif" WIDTH="36" HEIGHT="36"> <font size="3" color="#ff0000"><b>管理留言</b></font></p>
</td>
<tr>
<td width="562" valign="top" align="right">
<table width="562" border="0" cellspacing="0" cellpadding="0" height="1">
<tr>
<td width="622" colspan="3" height="16">
<table border="0" cellpadding="0" cellspacing="0" width="560">
<tr>
<%
pagenum=cint(request("page"))
if rs.RecordCount <=10 then
pagesums=1
elseif (rs.recordcount mod 10)=0 then
pagesums=rs.recordcount/10
else
pagesums=int(rs.RecordCount/10)+1
end if
if pagenum<1 then
pagenum=1
end if
if pagenum>pagesums then
pagenum=pagesums
end if
if pagenum>1 then
rs.movefirst
num=(pagenum-1)*10
rs.move num
end if
if (rs.recordcount-(pagenum-1)*10)>=10 then
movenum=10
else
movenum=rs.recordcount-(pagenum-1)*10
end if
%>
<td width="556">--第<font color="#0000ff"><%=pagenum%></font>页，共<font color="#0000ff"><%=rs.RecordCount%></font>条留言，共<font color="#0000ff"><%=pagesums%></font>页，每页10条--
<%
if pagesums>1 then
if pagenum>1 then
%>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=1">首 页</a>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagenum-1%>">上一页</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagenum+1%>">下一页</a>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagesums%>">尾 页</a>
<%
end if
end if
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="22" height="1">
<img height="16" src="../qqpic/td_left_top.gif"></td>
<td width="576" background="../qqpic/td_bg_top.gif" height="1"> </td>
<td width="21" height="1">
<img height="16" src="../qqpic/td_right_top.gif"></td>
</tr>
<tr>
<td width="22" background="../qqpic/td_bg_left.gif" height="58"> </td>
<td width="576" valign="top" height="58">
<table border="0" cellpadding="2" cellspacing="2" width="600">
<%
i=1
do while i<=movenum
if i mod 2=0 then
color="#eeeeee"
else
color="#f0f0f0"
end if
%>
<tr>
<td width="50" bgcolor="<%=color%>"><%=i%>
<%if rs("rq")=date() then%>
<img src="../qqpic/newm.gif" WIDTH="28" HEIGHT="11">
<%end if%>
</td>
<td width="174" bgcolor="<%=color%>">姓名：<%=server.HTMLEncode(rs("xm"))%><img src="<%="../qqpic/bq/bq"&rs("bq")&".gif"%>">
<td width="148" bgcolor="<%=color%>">日期：<%=rs("rq")&" "&rs("sj")%></td>
<td width="56" bgcolor="<%=color%>">
<p align="center"><a href="glly.asp?siteid=<%=siteid%>&id=<%=rs("id")%>&page=<%=request("page")%>"><font color="#0000ff">删除留言</font></a></td>
</tr>
<tr>
<td width="70" bgcolor="<%=color%>">标题：</td>
<td width="442" colspan="3" bgcolor="<%=color%>"><%=server.HTMLEncode(rs("bt"))%></td>
</tr>
<tr>
<td width="70" bgcolor="<%=color%>">内容：</td>
<%if trim(rs("lr"))<>"" then%>
<td width="442" colspan="3" bgcolor="<%=color%>"><%=server.htmlencode(rs("lr"))%></td>
<%else%>
<td width="442" colspan="3" bgcolor="<%=color%>">无</td>
<%end if%>
</tr>
<tr>
<td width="576" colspan="5" height="20" background="../qqpic/td_bg_top.gif"></td>
</tr>
<%
rs.movenext
i=i+1
loop
rs.close
conn.close
%>
</table>
</td>
<td width="21" background="../qqpic/td_bg_right.gif" height="58"> </td>
</tr>
<tr>
<td width="22" height="1">
<img height="21" src="../qqpic/td_left_bottom.gif" width="20"></td>
<td width="576" background="../qqpic/td_bg_bottom.gif" height="1"> </td>
<td width="21" height="1">
<img height="21" src="../qqpic/td_right_bottom.gif" width="18"></td>
</tr>
<tr>
<td width="625" colspan="3" height="14">
<p align="right"><%
if pagesums>1 then
if pagenum>1 then
%>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=1">首 页</a>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagenum-1%>">上一页</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagenum+1%>">下一页</a>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagesums%>">尾 页</a>
<%
end if
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -