📄 admin_reviewmanage.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
page=request.querystring("page")
if page<=1 or page="" then page=1
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from Review where FileName='"&request.querystring("FileName")&"' order by ID desc "
rs.open sql,conn,1,1
rs.pagesize=20
for i=1 to rs.pagesize*(page-1)
if not rs.eof then
rs.movenext
end if
next
%>
<body bgcolor="#FFFFFF">
<form name=form method=post action=admin_ReviewSave.asp>
<table width="95%" border="0" cellspacing="1" cellpadding="0" align="center">
<tr bgcolor="#FFFFFF" valign="middle" align="center">
<td width="300%" height="2" colspan="3"> <table width="99%" border="0" cellspacing="1" cellpadding="0" bgcolor="#97C893">
<%
if rs.eof and rs.bof then
%>
<tr bgcolor="#F7FFF4">
<td colspan="2" align="center"><font color=red>暂时没有此新闻的评论</font></td>
</tr>
<%
response.end
end if
%>
<tr bgcolor="#F7FFF4">
<td width="9%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>删除</td>
<td width="23%" height=20 align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>姓名</td>
<td width="41%" height=20 align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>内容</td>
<td width="18%" height=20 align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>时间</td>
<td width="9%" height=20 align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>IP</td>
</tr>
<%
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr bgcolor="#F7FFF4">
<td width="9%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
<input type="checkbox" name=DelId value=<%=rs("ID")%>></td>
<td width="23%" height=20 align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rs("name")%></td>
<td width="41%" height=20 onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rs("Content")%></td>
<td width="18%" height=20 align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rs("Date")%></td>
<td height=20 align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rs("IP")%></td>
</tr>
<%
rs.movenext
next
%>
<tr bgcolor="#F7FFF4">
<td height=20 colspan=5 align=right onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
<input type=hidden name=FileName value=<%=request.querystring("FileName")%>>
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)">
选中所有
<input type=submit value=删除 onclick="return Del()"> </td>
</tr>
<tr bgcolor="#F7FFF4">
<td height=20 colspan=5 onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
<%
for i=1 to rs.PageCount
response.write("<a href=admin_ReviewManage.asp?Page="&i&"&FileName="&request.querystring("FileName")&"> "&i&" </a>")
next
rs.close
set rs=nothing
%>
<!--#include file = name.asp-->
</td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -