<%Dim Action,ID MNBoard.CheckMake If not MNBoard.FoundUser Then MNBoard.GoToErr(10) ID=MNBoard.CheckNum(request.querystring("Id")) Action=Lcase(Request.querystring("Action")) If len(Action)>13 then MNBoard.GoToErr(1) If Action="vote" Then SubmitVote() Else SubmitBuyer() End If Set MNBoard =Nothing Response.redirect(Request.ServerVariables("HTTP_REFERER")) Sub SubmitVote() Dim Temp,Rs,i,VoteType,Vote,VoteNum,TempVote,MyOpt,OutTime,AllVoteNum IF ID=0 Then MNBoard.GoToErr(1) VoteType=MNBoard.checknum(request.querystring("type")) Set Rs=MNBoard.execute("select Vote,VoteNum,VoteType,OutTime From[i_TopicVote] where TopicID="&ID&"") IF Not Rs.Eof Then Vote=split(Rs("vote"),"|") VoteNum=split(Rs("voteNum"),"|") OutTime=Rs("OutTime") IF VoteType<>Int(Rs("VoteType")) Then MNBoard.GoToErr(1) TempVote=Vote if VoteType=1 then Temp=MNBoard.CheckNum(Request.form("opt")) MyOpt=Temp For i=1 to ubound(Vote) If i=Temp then VoteNum(i)=VoteNum(i)+1 AllVoteNum=AllVoteNum&"|"&VoteNum(i) Next ElseIf VoteType=2 Then Temp=0 TempVote=Vote For i=1 to ubound(Vote) TempVote(i)=MNBoard.Checknum(Request.form("opt"&i&"")) Temp=TempVote(i)+Temp IF TempVote(i)=0 Then TempVote(i)=VoteNum(i) IF TempVote(i)=i Then TempVote(i)=Votenum(i)+1 MyOpt=MyOpt&","&i End if AllVoteNum=AllVoteNum&"|"&TempVote(i) Next Else MNBoard.GoToErr(1) End if If Temp=0 Then MNBoard.alert"您还没有选择投票项目!","back" IF Temp<>0 And MNBoard.execute("select User From [i_TopicVoteUser] where User='"&MNBoard.MyName&"' and TopicID="&ID&"").Eof Then If DateDiff("s",MNBoard.NowBbsTime,OutTime)>0 then MNBoard.execute("update [i_TopicVote] Set VoteNum='"&AllvoteNum&"' where TopicID="&ID&"") MNBoard.execute("update [i_Topic] Set LastTime='"&MNBoard.NowBbsTime&"' where TopicID="&ID&"") MNBoard.execute("update [i_bbs"&MNBoard.TB&"] Set LastTime='"&MNBoard.NowBbsTime&"' where TopicID="&ID&"") MNBoard.execute("Insert into [i_TopicVoteUser](TopicID,[User],VoteNum)VALUES("&ID&",'"&MNBoard.MyName&"','"&MyOpt&"')") End If End If End if Rs.Close Set Rs=nothing End Sub Sub SubmitBuyer() If ID=0 Then MNBoard.GoToErr(1) Dim Temp,Rs,Rss,Buyer,re,str Set Rs=MNBoard.execute("Select Content,Name From[i_bbs"&MNBoard.TB&"] where BbsID="&ID&"") IF Rs.eof Then MNBoard.GoToErr(1) Rss=Rs.GetRows(1) Rs.Close Temp=Replace(Rss(0,0),chr(10),"") Temp=Replace(Temp,chr(10),"") Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(^.*)(\[BUYPOST=*([0-9]*)\])(.*)(\[\/BUYPOST\])(.*)" Str=re.Replace(Temp,"$3") Set re=Nothing If isnumeric(Str) Then Str=int(Str) Else Str=0 End if If Lcase(Rss(1,0))=Lcase(MNBoard.MyName) Then MNBoard.alert"您不能向自己购买!","back" If Int(SESSION(CACHENAME & "MyInfo")(7))0 Then MNBoard.alert"您已经购买过了呀?","back" Temp=Rs(1)&"|"&MNBoard.MyName MNBoard.execute("Update [i_Buyer] Set UserName='"&Trim(Temp)&"' Where BbsID="&ID) Else MNBoard.Execute("insert into[i_Buyer](BBSID,UserName)values("&ID&",'"&MNBoard.MyName&"')") End IF MNBoard.execute("update [i_user] set Coin=Coin-"&Str&" where name='"&MNBoard.MyName&"'") MNBoard.execute("update [i_user] set Coin=Coin+"&Str&" where name='"&Rss(1,0)&"'") Session(CacheName & "MyInfo") = Empty End Sub %>