www.gusucode.com > 528人才招聘网整站源代码-蓝色经典 精简版 2.0源码程序 > admin/admin_guest.asp
<!--#include file="conn.asp"-->
<!--#include file="../unhtml.asp"-->
<!--#include file="../ubb.asp"-->
<%
if session("login")<>"yes" then
response.write "<script language=JavaScript>" & chr(13) & "alert('您还未登陆或者超时,请重登陆！');"&"window.location.href = '../'"&" </script>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css.css" type="text/css">
<title>网站分类管理</title>
<base target="_self">
</head>
<body bgcolor="#CAD7F7" vlink="#000000">
<table border="0" width="73%" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF" style="border:1px solid #000000; " height="238">
<tr>
<td background="images/admin_bg_1.gif" height="25">
<p align="center"><font size="2" color="#FFFFFF"><b>网站留言管理</b></font></td>
</tr>
<tr>
<td bgcolor="#F1F3F5" height="26" align="center">
<%
sql="select * from guest order by id desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
response.write "暂无留言！"&"<td><tr>"
else
rs.pagesize=6
if request("action")="n" then
session("page")=session("page")+1
else
if request("action")="p" then
session("page")=session("page")-1
else
if request("action")="f" then
session("page")=1
else
if request("action")="l" then
session("page")=rs.pagecount
else
if isnumeric(request("page1"))=true then
session("page")=clng(request("page1"))
else
session("page")=1
end if
end if
end if
end if
end if
if session("page")>rs.pagecount then session("page")=rs.pagecount
if session("page")<1 then session("page")=1
%>
<table border="0" width="650" cellspacing="0" cellpadding="0" height="25">
<tr>
<td width="104">
共有留言<font color="#FF0000"><%=rs.recordcount%></font>条</td>
<td width="112">
<p align="center">当前页码:<font color="#FF0000"><%=session("page")%></font>/<%=rs.pagecount%></td>
<td width="248">
<p align="center">< <a href="admin_guest.asp?action=f">
首页</a>
<a href="admin_guest.asp?action=p">上一页</a>
<a href="admin_guest.asp?action=n">下一页</a>
<a href="admin_guest.asp?action=l">尾页</a> ></td>
<td width="186">
<form method="POST" action="admin_guest.asp">
<p align="center">跳转到
<input type="text" name="page1" size="5" style="border: 1px solid #000000">
页
<input type="submit" value="提交" name="B1"></p>
</form>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="145" valign="top">
<%
rs.absolutepage=session("page")
for ii=1 to rs.pagesize
%>
<table border="0" width="767" cellspacing="0" cellpadding="0" height="106" style="border: 1px solid #000000">
<tr>
<td width="43" bgcolor="#CAD7F7" height="30">
<p align="center"><b>主题:</b></td>
<td width="57" bgcolor="#CAD7F7" height="30"><% =unHtml(rs("title")) %></td>
<td width="46" bgcolor="#CAD7F7" height="30">
<p align="center"><b>时间:</b></td>
<td width="100" bgcolor="#CAD7F7" height="30"><%=rs("addtime")%></td>
<td width="43" bgcolor="#CAD7F7" height="30">
<p align="center"><b>QQ:</b></td>
<td width="64" bgcolor="#CAD7F7" height="30"><%=rs("qq")%></td>
<td width="73" bgcolor="#CAD7F7" height="30">
<p align="center"><b>email:</b></td>
<td width="88" bgcolor="#CAD7F7" height="30"><%=rs("email")%></td>
<td width="57" bgcolor="#CAD7F7" height="30">
<p align="center"><b>主页：</b></td>
<td width="64" bgcolor="#CAD7F7" height="30"><a target="_blank" href="<%=rs("homepage")%>"><%=rs("homepage")%></a></td>
<td width="84" bgcolor="#CAD7F7" height="30">
<p align="center"><a href="admin_up_guest.asp?id=<%=rs("id")%>">修改/回复</a></td>
<td width="35" bgcolor="#CAD7F7" height="30">
<p align="center"><a onclick="{if(confirm('警告：此操作将删除留言〈<% =unHtml(rs("title")) %>〉的所有信息！继续吗？')){return true;}return false;}" href="del_guest.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<tr>
<td width="43" align="center" bgcolor="#F1F3F5" height="40" valign="top"><b>内容:</b></td>
<td width="722" colspan="11" bgcolor="#F1F3F5" height="40"><% =ubbcode(unHtml(rs("content"))) %><p> </td>
</tr>
<tr>
<td width="43" bgcolor="#FDFDDF" height="29" align="center" valign="top"><b>
回复:</b></td>
<td width="722" colspan="11" bgcolor="#FDFDDF" height="29"> <%
if rs("reply")<>"" then response.write "<font color='#BB0000'>"&unHtml(rs("reply"))&"</font>"
%>
</td>
</tr>
</table>
<p> </p>
<%
rs.movenext
if rs.eof then exit for
next
%>
</td>
</tr>
<tr>
<td height="32" align="center">
<table border="0" width="650" cellspacing="0" cellpadding="0" height="25">
<tr>
<td width="104">
共有留言<font color="#FF0000"><%=rs.recordcount%></font>条</td>
<td width="112">
<p align="center">当前页码:<font color="#FF0000"><%=session("page")%></font>/<%=rs.pagecount%></td>
<td width="248">
<p align="center">< <a href="admin_guest.asp?action=f">
首页</a>
<a href="admin_guest.asp?action=p">上一页</a>
<a href="admin_guest.asp?action=n">下一页</a>
<a href="admin_guest.asp?action=l">尾页</a> ></td>
<td width="186">
<form method="POST" action="admin_guest.asp">
<p align="center">跳转到
<input type="text" name="page2" size="5" style="border: 1px solid #000000">
页
<input type="submit" value="提交" name="B2"></p>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
set conn=nothing
end if
%>
</body>
</html>