votepost.asp

5237 论坛.rar

<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Set.asp" -->
<%
Response.Buffer=True 
If Session("SLevel")<3 Then
LockUsers=Split(Forum_LockVote,"|")
LockUsersNum=UBound(LockUsers)
For I=0 To LockUsersNum
If Session("SNickName")=LockUsers(I) Then Response.Redirect "Error.asp?Error=18"
Next
End If
'写入投票
        Set rsVote = Server.CreateObject("ADODB.Recordset")
        Sql = "Select *  From tVoteManage Where rIntBbsID="&Cint(Request("I"))
        rsVote.Open Sql,ConnY,3,3
        
		Dim PostVote(10)
		Dim VoteNumlen
		Dim VoteNum_1
		Dim Sum
		Dim VoteNum
		Dim LiannVoteNumSum

        VoteNum=Split(rsVote("rVoteNum"),"|")
		If rsVote("rVoteType")=2 Then
		For i = 0 to Ubound(VoteNum)
			PostVote(i)=Request("PostVote_"&i&"")
		Next
		End If
		For j = 0 to Ubound(VoteNum)
		If rsVote("rVoteType")=1 Then
			If Cint(Request("PostVote"))=j Then
				VoteNum(j)=VoteNum(j)+1
			End If
			VoteNum_1=""&VoteNum_1&""&VoteNum(j)&"|"
		Else
			If PostVote(j)<>"" Then
				If cint(PostVote(j))=j Then
					VoteNum(j)=VoteNum(j)+1
				End If
			End If
			VoteNum_1=""&VoteNum_1&""&VoteNum(j)&"|"
		End If
		Next
		VoteNumlen=len(VoteNum_1)
		VoteNum_1=left(VoteNum_1,VoteNumlen-1)
		rsVote("rVoteUser")=""&rsVote("rVoteUser")& "|"&Session("SNickName")&""
		rsVote("rVoteNum")=VoteNum_1
		rsVote.Update
		
		LiannVoteNumSum=Split(rsVote("rVoteNum"),"|")
        Sum=0
        For t=0 To UBound(LiannVoteNumSum)
        Sum=Sum+LiannVoteNumSum(t)
        Next
        rsVote("rVoteTimes")=Sum
		rsVote.Update
		
'文章回复次数+1,更新最新回复时间,更新最新回复者.
Set rsReplyU = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tArticleManage Where rID="&Cint(Request("I"))
rsReplyU.Open Sql,ConnY,3,3
rsReplyU("rReplyNum")=rsReplyU("rReplyNum")+1
rsReplyU("rLastReplyTime")=Now()
rsReplyU("rLastReplyUser")=Session("SNickName")
rsReplyU("rVoteNum")=rsVote("rVoteTimes")
rsReplyU.Update

'投票者回复文章数加1,经验值+3,财产更新+5
Set rsReplyUserU = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rUserID='"&Session("SUserID")&"'"
rsReplyUserU.Open Sql,ConnY,3,3
rsReplyUserU("rReplyNum")=rsReplyUserU("rReplyNum")+1
rsReplyUserU("rAssets")=rsReplyUserU("rAssets")+Forum_RA
rsReplyUserU("rExp")=rsReplyUserU("rExp")+Forum_RE
rsReplyUserU("rGlamour")=rsReplyUserU("rGlamour")+Forum_RG
rsReplyUserU.Update
rsReplyUserU.Close

'原贴者被回复文章数+1,魅力值+3,经验值+1
If Session("SUserID")<>rsReplyU("rPoster") Then
Set rsReplied = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rUserID='"&rsReplyU("rPoster")&"'"
rsReplied.Open Sql,ConnY,3,3
rsReplied("rRepliedNum")=rsReplied("rRepliedNum")+1
rsReplied("rExp")=rsReplied("rExp")+Forum_BE
rsReplied("rAssets")=rsReplied("rAssets")+Forum_BA
rsReplied("rGlamour")=rsReplied("rGlamour")+Forum_BG
rsReplied.Update
rsReplied.Close
End If
rsReplyU.Close
rsVote.Close

'操作后转向	
Response.Redirect "View.asp?S="&Forum_ID&"&I="&Cstr(Request("I"))
%>