vote.asp

来自「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」· ASP 代码 · 共 57 行

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="Channel_Config.asp"-->

<%
If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",0,"您需要登录后才可以进行此操作！")
Dim ID,TP,Vote,TPJG,Num,i,User,Title,rFlag
ID = WRMPS.CheckStr(Request("ID"),1)
TP = WRMPS.CheckStr(Request("TP"),1)
If ID = "" Or TP = "" Then
    Response.Write "<script>alert('操作错误');window.close();</script>"
    Response.End
End If
Call DBConnBegin()
'投票
If TP <> "" Then
  If IsEmpty(WRMPS.GetCookies("Vote_C_"&ID&"_"&TP)) = False Then 
    Response.Write "<script>alert('请不要重复投票');history.back();</script>"
    Response.End
  End If
  WRMPS.SCookies "Vote_C_"&ID&"_"&TP,"True",365
  Select Case Int(TP)
    Case 0 '推荐
	  Set Rs = Conn.Execute("Select WM_Post,WM_Title from WM_ClassAD Where WM_Commend=0 and WM_PostType <> 4 and WM_ID=" & ID)
        If Not Rs.eof Then
		  User = Rs(0)
		  Title = Rs(1)
	      If User <> "" or IsNull(User) = False Then
	         rFlag = WRDB.GetUserFlag(User)
	         Call WRDB.SaveConsume(0,User,0,Int(Split(Split(rFlag,"§")(3),"|")(15)),Int(Split(Split(rFlag,"§")(3),"|")(14)),WR_Faith(3),"用户推荐信息“"&Title&"”")
	      End If
	    End If
      Rs.Close
      Conn.Execute("Update WM_ClassAD Set WM_mCommend = WM_mCommend + 1 Where WM_ID = "&ID)
	Case 1
      Conn.Execute("Update WM_ClassAD Set WM_mSortErr = WM_mSortErr + 1 Where WM_ID = "&ID)
	Case 2 '投诉
	  Set Rs = Conn.Execute("Select WM_Post,WM_Title from WM_ClassAD Where WM_Commend=0 and WM_PostType <> 4 and WM_ID=" & ID)
      If Not Rs.EOF Then
		User = Rs(0)
		Title = Rs(1)
	    If User <> "" or IsNull(User) = False Then
	       rFlag = WRDB.GetUserFlag(User)
	       Call WRDB.SaveConsume(0,User,0,Int(Split(Split(rFlag,"§")(3),"|")(17)),Int(Split(Split(rFlag,"§")(3),"|")(16)),WR_Faith(4),"信息遭用户投诉“"&Title&"”")
	    End If
      End If
      Rs.Close
      Conn.Execute("Update WM_ClassAD Set WM_mTrash = WM_mTrash + 1 Where WM_ID = "&ID)
	Case 3
      Conn.Execute("Update WM_ClassAD Set WM_mAgency = WM_mAgency + 1 Where WM_ID = "&ID)
  End Select
End If
Call DBConnEnd()
Response.Write "<script>alert('操作成功，感谢您的参与');history.back();</script>"
Response.End
%>