admin_pinglunsave.asp

小说站源代码文件

<!--#include file="../conn.asp"-->
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<%
Select Case request.querystring("info")
	Case "topgood"
		Call topgood()
	Case "listDel"
		Call listDel()
	Case "cll"
		Call cll()
	Case "del"
		Call del()
end select 

Sub topgood()
page=request.QueryString("page")
id=request.QueryString("id")
act=request.QueryString("act")

set rs=server.CreateObject("ADODB.RecordSet")
if act="goTop" then
	sql="select IsTop from Comment where CommentID="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("IsTop")=0 then
			conn.execute ("update Comment set IsTop=1 where CommentID="&id)
		else
			conn.execute ("update Comment set IsTop=0 where CommentID="&id)
		end if
	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
			conn.execute ("update Comment set IsGood=1 where CommentID="&id)
			UserName=rs("UserName")
			set rsb=server.createobject("adodb.recordset")
			sqlb="select UserPoint from userinfo where NAME='"&UserName&"'"
			rsb.open sqlb,conn,1,1
			if not rsb.eof then
				conn.execute ("update userinfo set UserPoint=UserPoint+"&CommentPoint&" where NAME='"&UserName&"'")
			end if
			rsb.close
			set rsb=nothing
		else
			conn.execute ("update Comment set IsGood=0 where CommentID="&id)
		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>"
Call ShowAdminSuccessMsg("<li>操作成功！</li><br>","javascript:window.close()")
End Sub

Sub cll()
id=request.QueryString("id")
type_id=request.QueryString("type_id")
cndb=request.QueryString("cndb")
page=request.QueryString("page")
conn.execute "delete from Comment where CommentID = "&id&""
if makeJS=1 then
tempinglun(newplNum)
end if

Call ShowAdminSuccessMsg("<li>清除评论成功！</li><br>","admin_pinglun.asp?info="&cndb&"&id="&type_id&"&page="&page&"")
End Sub

Sub del()
id=request.QueryString("id")
type_id=request.QueryString("type_id")
cndb=request.QueryString("cndb")
page=request.QueryString("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
			conn.execute ("update userinfo set UserPoint=UserPoint-"&CommentdelPoint&" where NAME='"&UserName&"'")
		end if
		rsb.close
		set rsb=nothing
rs.close
set rs=nothing
conn.execute "delete from Comment where CommentID = "&id&""
if makeJS=1 then
tempinglun(newplNum)
end if
Call ShowAdminSuccessMsg("<li>删除评论成功！</li><br>","admin_pinglun.asp?info="&cndb&"&id="&type_id&"&page="&page&"")
End Sub

Sub listDel()
id=trim(request("checked"))
If ID="" Then
	Response.Write ("<SCRIPT language=JavaScript>alert('错误!\n\n您至少需要选择一个');javascript:window.close();</SCRIPT>")
	Response.end
End If
viewArray=Split(ID, ",")
Num = UBound(viewArray)
For i=0 To Num
conn.execute "delete from Comment where CommentID = "&viewArray(i)&" "
Next
response.write "<script>opener.location.reload();</script>"
Call ShowAdminSuccessMsg("<li>删除评论成功！</li><br>","javascript:window.close()")
End Sub
%>