📄 replymanage.asp
字号:
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'#################################################################
'# 晓宇听幽网站内容管理系统(xoYu CMS)
'#
'# 版权所有: 晓宇听幽工作室
'#
'# 制作人 : xoyu(晓宇)
'#
'# 主页地址: http://www.xoYu.com 晓宇听幽工作室
'# 论坛地址: http://www.xoYu.com/bbs/ 晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。
'#################################################################
set rs=Server.CreateObject("adodb.recordset")
sql="select * from Reply"
rs.open sql,conn,1,1
if rs.EOF then
response.write "暂时没有评论被添加！"
end if
if request.form("result")="del" then
Num=request.form("ID").count
for x=1 to Num
conn.execute("delete from Reply where id="&request("id")(x)&"")
next
end if
if request.form("result")="check" then
f="1"
Numc=request.form("ID").count
for xc=1 to Numc
conn.execute("update Reply set check="&f&" where id="&request("id")(xc)&"")
next
end if
if request.form("result")="uncheck" then
f="0"
Numuc=request.form("ID").count
for xuc=1 to Numuc
conn.execute("update Reply set check="&f&" where id="&request("id")(xuc)&"")
next
end if
page=request.querystring("page")
if page<=1 or page="" then page=1
rs.pagesize=15
for i=1 to rs.pagesize*(page-1)
if not rs.eof then
rs.movenext
end if
next
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<title>■管理中心 - 晓宇听幽 网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<body>
<%if rs.EOF then
response.write "暂时没有评论被添加！"
else %>
<form method=post action="" name="xoYuStudioH">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function Isvalidity(val,name){
if (val.value!='' && (isNaN(val.value) || val.value<=0))
{alert(name+"应填有效数字！");
val.value="";
val.focus();}
}
</script>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr valign="middle" align="center">
<th height="2" colspan="3" background="images/BLogo.gif">
<b><img border="0" src="images/t_log.gif"><font color="#FF0000"> </font>文章评论管理</b></th></tr>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<td class=forumHeaderBackgroundAlternate height=20 width="5%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
ID</td>
<td class=forumHeaderBackgroundAlternate height=20 width="8%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
所属文章ID</td>
<td class=forumHeaderBackgroundAlternate height=20 width="50%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
内容</td>
<td class=forumHeaderBackgroundAlternate height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
发表人</td>
<td class=forumHeaderBackgroundAlternate height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
状态</td>
<td class=forumHeaderBackgroundAlternate height=20 width="7%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
选择</td>
</tr>
<% for i=1 to rs.pagesize
if rs.eof then exit for
fileming=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
%>
<tr>
<td class=forumrow height=20 width="5%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand' onMouseOut=this.style.backgroundColor=''; align="center"><%=rs("id")%></td>
<td class=forumrow height=20 width="8%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand' onMouseOut=this.style.backgroundColor=''; align="center"><a target="_blank" href="../html/<%=fileming%>-1.html"><%=rs("InfoID")%></a></td>
<td class=forumrow height=20 width="50%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("content")%></td>
<td class=forumrow height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("username")%></td>
<td class=forumrow height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><% if rs("check")="1" then response.write "已审核" else response.write "未审核"%></td>
<td class=forumrow height=20 width="7%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><input type="checkbox" name=ID value=<%=rs("ID")%>></td>
</tr>
<%
rs.movenext
next
end if%>
<tr>
<td class=forumrow height=20 width="100%" colspan=6 align=right onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<font color="#FF0000">注意</font>：在对评论作相应的操作之后请在文章页面对相应ID的文章进行<font color="#FF0000">“生成”</font>的操作！
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中所有
<font color="#FF0000">相关操作：</font>
<select size="1" name="result">
<option selected value="del">删除评论</option>
<option value="check">通过审核</option>
<option value="uncheck">取消审核</option>
</select>
<input type=submit value=执行 onclick="return Del()">
</td>
</tr>
<tr>
<td class=forumHeaderBackgroundAlternate height=20 width="100%" colspan=6 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
for i=1 to rs.PageCount
response.write("<a href=Replymanage.asp?Page="&i&"><b> "&i&" </a></b>")
next
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -