admin_pinglun_del.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<!-- #include file="../conn.asp" -->
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<%
id=replace(trim(request("id")),"'","")
info=request("info")
page=replace(trim(request("page")),"'","")
set rs=server.CreateObject("ADODB.RecordSet")
sql="select UserName from [Comment] where CommentID="&id
rs.open sql,conn,1,1
UserName=rs("UserName")
		set rsb=server.createobject("adodb.recordset")
		sqlb="select UserPoint from [userinfo] where NAME='"&UserName&"'"
		rsb.open sqlb,conn,1,3
		if not rsb.eof then
		rsb("UserPoint")=rsb("UserPoint")-CommentdelPoint
		rsb.update
		end if
		rsb.close
		set rsb=nothing
rs.close
set rs=nothing
conn.execute "delete from [Comment] where CommentID in ("&id&") "
if makeJS=1 then
makepinglun(newplNum)
end if
	response.write ("<script language=javascript>window.alert('删除评论成功！');location.href='admin_pinglun.asp?info="&info&"&page="&page&"';</script>")
%>