admin_pinglunsave.asp

本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。

<!--#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=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>"
Call ShowAdminSuccessMsg("<li>操作成功！</li><br>","javascript:window.close()")
End Sub

Sub cll()
id=replace(trim(request("id")),"'","")
cndb=request("cndb")
page=replace(trim(request("page")),"'","")
conn.execute "delete from Comment where CommentID = "&id&""
if makeJS=1 then
makepinglun(newplNum)
end if

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

Sub del()
id=replace(trim(request("id")),"'","")
cndb=request("cndb")
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 = "&id&""
if makeJS=1 then
makepinglun(newplNum)
end if
Call ShowAdminSuccessMsg("<li>删除评论成功！</li><br>","admin_pinglun.asp?info="&cndb&"&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
%>