📄 mod_info_pl.asp
字号:
<!--#include file="config.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="mod_config.asp" -->
<!--#include file="sub_change.asp" -->
<!--#include file="sub_turnpage.asp" -->
<%
if siteread="yes" then response.redirect "error.asp?v=siteread" end if
Dim RowCount
RowCount = 2 '每页显示的记录条数
dim id,del,messageinfo
id=trim(request.QueryString("id"))
if len(id)=0 or IsNumeric(id)=flase then response.redirect "error.asp?v=infomore_error" end if
del=left(trim(request.QueryString("del")),2)
set rs_info=server.CreateObject("adodb.recordset")
rs_info.open "select * from 资讯 where 审核=1 and 编号="&id,conn,1,1
if rs_info.eof or rs_info.bof or rs_info.recordcount<>1 then response.redirect "error.asp?v=infomore_no" end if
if del="ok" then
dim password
password=strchange(trim(request.form("password")))
if len(password)=0 then messageinfo="管理密码不能为空！<br>" end if
if len(guolv(password))>0 then messageinfo=messageinfo&"管理密码中数据“"&guolv(password)&"”被系统过滤！<br>" end if
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
if len(messageinfo)=0 then
if rs_info("管理密码")<>password or isnull(rs_info("管理密码")) then
messageinfo=messageinfo&"密码错！您无权修改此信息，请确认您的身份！如果您确实是此资讯负责人请和系统管理员联系QQ："&adminqq
else
dim deldata,delbox,i,rs_del
delbox=trim(request.form("delbox"))
set rs_del=server.CreateObject("adodb.recordset")
deldata = split(delbox,", ")
For i=0 To Ubound(deldata)
rs_del.open"select * from 资讯评论 where 编号="&deldata(i),conn,3,3
If rs_del.recordcount=1 Then
rs_del("审核")=0
rs_del.update
End If
rs_del.close
Next
set rs_del=nothing
if Ubound(deldata)+1=0 then
messageinfo="你没有选择删除任何评论！"
else
messageinfo="删除成功！共删除资讯" &Ubound(deldata)+1&"条"
set rsbeian=server.CreateObject("adodb.recordset")
rsbeian.open "select * from 管理备案",conn,3,3
rsbeian.addnew
rsbeian("业务类型")="资讯"
rsbeian("业务编号")=id
rsbeian("业务信息")="评论删除"
rsbeian("原数据")=delbox
rsbeian("操作者")="该资讯负责人"
rsbeian("时间")=now()
rsbeian("ip")=userip
rsbeian.update
rsbeian.close
set rsbeian=nothing
end if
end if
end if
end if
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from 资讯评论 where 审核=1 and 资讯编号="&id,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="<%=sitekeywords%>">
<meta name="description" content="<%=sitedescription%>">
<title>删除资讯评论 - <%=sitename%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<link href="skin/style_<%=trim(request.cookies("skin_color"))%>.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="2">
<noscript><iframe src="*.htm"></iframe></noscript>
<script language=Javascript>
function checkall(all)//用于判断全选记录的函数
{
var a = document.getElementsByName("delbox");
for (var i=0; i<a.length; i++) a[i].checked = all.checked;
}
</script>
<div align="<%=sitealign%>">
<!--#include file="title.asp" -->
<!--#include file="mod_menu.asp" -->
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="760" height="90">
<tr>
<td class="addmenu" align="center" width="200" style="font-size: 24pt; font-family:黑体; line-height:24pt">删除资讯评论</td>
<td class=t1 align="center" width="60"> </td>
<td align="left" width="500"><%=msg_mod_info_pl%></td>
</tr>
</table>
<table border="0" cellpadding="10" cellspacing="0" style="border-collapse: collapse" width="760">
<tr>
<td align="left" style="color: #FF0000; font-size: 10pt"><%=messageinfo%></td>
</tr>
</table>
<table width="720" border="0" cellpadding="3" cellspacing="1" bgcolor="#DFEAF2">
<tr bgcolor="#0099FF">
<td height="30" style="color: #FFFFFF" colspan="2"><b>目前 <a style="color: #FFFF00; text-decoration: underline" href="mod_info.asp?id=<%=rs_info("编号")%>"><%=rs_info("名称")%></a> 共有评论：<%=rs.recordcount%>条</b></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="30">
<tr>
<td style="color: #FF0000">密码：<input type="password" name="password" size="22"> 请输入该资讯密码确认删除</td>
<td width=340 bgcolor="#EAEAEA"><%Call TurnPage(Rs,RowCount)%></td>
</tr>
</table>
</td>
</tr>
<form method="POST" action="mod_info_pl.asp?id=<%=id%>&del=ok" name="mod_infopl">
<%Do while Not rs.eof and not rs.bof and RowCount>0%>
<tr bgcolor="#FFFFFF" onMouseOver='this.style.backgroundColor="#E7F4F8"' onMouseOut='this.style.backgroundColor=""'>
<td width="40"> <input type="checkbox" name="delbox" value="<%=rs("编号")%>" ID="Checkbox1"></td>
<td width="680">
<%response.write ("<font color=#FF0000>·</font>" &rs("发言内容")& "<br><font color=#999999>" &rs("发言者姓名")&" | "&rs("发言者联系方式")&" | "&rs("发言时间")&"</font>")%>
</td>
</tr>
<%
RowCount = RowCount - 1
rs.movenext
Loop%>
<tr bgcolor="#0099FF">
<td colspan="2" height="30"> <input type="checkbox" name="chkall" value="on" onclick="checkall(this)" ID="Checkbox2"><b><font color="#FFFFFF"> 全选所有</font></b></td>
</tr>
<tr>
<td height="50" colspan="2" align="center"><input type="submit" value=" 删 除 " name="mod"> <input type="reset" value=" 重 置 " name="B2"></td>
</tr>
</form>
</table>
<!--#include file="copyright.asp" -->
<br><br>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
rs_info.close
set rs_info=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -