property.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_Const.asp"-->
<%
Dim Action,IsAjax,GuestID,ReplyID
Action		= Trim(Request("Action"))
IsAjax		= Cl.GetClng(Request.Form("Ajax"))
GuestID		= Cl.GetClng(Request.Form("GuestID"))
ReplyID		= Cl.GetClng(Request.Form("ReplyID"))
If (GuestID<1 And ReplyID<1) Or IsAjax<>1 Then Cl.WriteAjax("Error") : Response.end
If Cl.UserID=0 Or Cl.UserGroupID<>1 Then Cl.WriteAjax("Error") : Response.End

Select Case Action
Case "pass"
	Call SetPass()
Case "nopass"
	Call SetNoPass()
Case "del"
	Call DelGuest()
Case Else
	Cl.WriteAjax("Error")
End Select

Sub SetPass()
	If ReplyID>0 Then
		Cl.Execute("update Cl_GuestReply Set Status=1 Where ReplyID="&ReplyID&"")
	ElseIf GuestID>0 Then
		Cl.Execute("update Cl_Guest Set Status=1 Where GuestID="&GuestID&"")
	Else
		Response.End
	End if
	Cl.WriteAjax("OK")
End Sub

Sub SetNoPass()
	If ReplyID>0 Then
		Cl.Execute("update Cl_GuestReply Set Status=0 Where ReplyID="&ReplyID&"")
	ElseIf GuestID>0 Then
		Cl.Execute("update Cl_Guest Set Status=0 Where GuestID="&GuestID&"")
	Else
		Response.End
	End if
	Cl.WriteAjax("OK")
End Sub

'删除留言
Sub DelGuest()
	If ReplyID>0 Then
		Cl.Execute("delete from Cl_GuestReply Where ReplyID="&ReplyID&"")
	ElseIf GuestID>0 Then
		Cl.Execute("delete from Cl_GuestReply Where GuestID="&GuestID&"")
		Cl.Execute("delete from Cl_Guest Where GuestID="&GuestID&"")
	Else
		Response.End
	End if
	Cl.WriteAjax("OK")
End Sub
%>