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
%>