admin_pinglunsave.asp

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

<!--#include file="../conn.asp"--><!-- #include file="session.asp" --><!--#include file="../inc/config.asp"-->
<%

page=replace(trim(request("page")),"'","")
id=request.QueryString("id")
act=request("act")

set rs=server.CreateObject("ADODB.RecordSet")
if act="goTop" then
sql="select IsTop from [Comment] where CommentID="&id
rs.open sql,conn,1,3
if not rs.eof then
		if rs("IsTop")=0 then
			rs("IsTop")=1
		else
			rs("IsTop")=0
		end if
		rs.update
	end if
	rs.close
elseif act="goGood" then
sql="select IsGood,UserName from [Comment] where CommentID="&id
rs.open sql,conn,1,3
if not rs.eof then
		if rs("IsGood")=0 then
			rs("IsGood")=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")+CommentPoint
		rsb.update
		end if
		rsb.close
		set rsb=nothing
		else
			rs("IsGood")=0
		end if
		rs.update
	end if
	rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.write ("<script>opener.location.reload();</script><script language=javascript>window.alert('操作成功!');javascript:window.close();</script>")
%>