www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\postagree.asp
<!-- #include file="conn.asp" --> <!-- #include file="inc/const.asp" --> <!--#include file="inc/dv_clsother.asp"--> <% If Mybbs.IsReadonly() And Not Mybbs.Master Then Response.redirect "showerr.asp?action=readonly&boardid="&Mybbs.boardID&"" Dim rootid,isagree,Annisagree TotalUseTable=CheckBoardInfo TotalUseTable="" Dim getmoney,TotalUseTable '设置投票所用金钱 getmoney=Cint(Mybbs.GroupSetting(47)) Mybbs.stats="帖子投票" Mybbs.ShowErr() If Mybbs.Userid=0 Then Mybbs.AddErrCode(6) End If If CInt(Mybbs.GroupSetting(6))=0 Then Mybbs.AddErrCode(63) End If If request("id")="" Then Mybbs.AddErrCode(43) ElseIf Not Isnumeric(request("id")) Then Mybbs.AddErrCode(30) Else rootid=Clng(request("id")) End If Mybbs.ShowErr() if Isnumeric(session("postagree")) then If Clng(session("postagree"))=Clng(rootid) Then Mybbs.AddErrCode(46) End If End If If request("isagree")="" Then Mybbs.AddErrCode(42) ElseIf not Isnumeric(request("isagree")) Then Mybbs.AddErrCode(35) Else isagree=request("isagree") End If Mybbs.ShowErr() Main sub main() Dim Rs,sql set rs=Mybbs.execute("select userWealth from [Dv_user] where userid="&Mybbs.userid) If Rs(0)<getmoney Then Mybbs.AddErrCode(47) Mybbs.ShowErr() Else Mybbs.execute("update [Dv_user] set userWealth=userWealth-"&getmoney&" where userid="&Mybbs.userid) Set Rs=Mybbs.execute("select PostTable from Dv_topic where topicid="&Clng(rootid)) TotalUseTable=rs(0) rs.close sql="select top 1 isagree from "&TotalUseTable&" where rootid="&rootid&" order by Announceid" Set Rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 Mybbs.SqlQueryNum=Mybbs.SqlQueryNum+1 If rs.eof and rs.bof Then Mybbs.AddErrCode(30) Else If Not isnull(rs(0)) and rs(0)<>"" Then If InStr(rs(0),"[isubb]") > 0 Then If Replace(Rs(0),"[isubb]","")<>"" Then Annisagree=split(Replace(Rs(0),"[isubb]",""),"|") If Cint(isagree)=1 Then isagree=Annisagree(0)+1 rs("isagree")="[isubb]"&isagree & "|" & Annisagree(1) Else isagree=Annisagree(1)+1 rs("isagree")="[isubb]"&Annisagree(0) & "|" & isagree End If Else If Cint(isagree)=1 Then rs("isagree")="[isubb]1|0" Else rs("isagree")="[isubb]0|1" End If End If Else Annisagree=split(rs(0),"|") If Cint(isagree)=1 Then isagree=Annisagree(0)+1 rs("isagree")=isagree & "|" & Annisagree(1) Else isagree=Annisagree(1)+1 rs("isagree")=Annisagree(0) & "|" & isagree End If End If rs.Update Else If Cint(isagree)=1 Then rs("isagree")="1|0" Else rs("isagree")="0|1" End If rs.Update End If End If Rs.Close Set Rs=Nothing End If If Mybbs.ErrCodes<>"" Then Mybbs.Nav() Mybbs.ShowErr() End If session("postagree")=rootid response.redirect "dispbbs.asp?boardid="&request("boardid")&"&id="&rootid End Sub %>