property.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Setting.asp"-->
<%
Dim IsAjax
IsAjax		= Cl.GetClng(Request.Form("Ajax"))
CommentID	= Cl.GetClng(Request.Form("CommentID"))

If CommentID<1 Or IsAjax<>1 Then Response.end

Select Case Action
Case "agree"
	Call SetAgrees()
Case "disagree"
	Call SetDisagrees()
Case "middle"
	Call SetMiddles()
Case Else
	Cl.WriteAjax("Error")
End Select

Sub SetAgrees()
	Cl.Execute("update Cl_Comment Set Agrees=Agrees+1 Where CommentID="&CommentID&"")
	Cl.WriteAjax("OK")
End Sub

Sub SetDisagrees()
	Cl.Execute("update Cl_Comment Set Disagrees=Disagrees+1 Where CommentID="&CommentID&"")
	Cl.WriteAjax("OK")
End Sub

Sub SetMiddles()
	Cl.Execute("update Cl_Comment Set Middles=Middles+1 Where CommentID="&CommentID&"")
	Cl.WriteAjax("OK")
End Sub
%>