editvote.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<!--#include file="Inc.asp"-->
<%
Dim ID
ID=BBS94KK.Checknum(request.querystring("ID"))
If Not BBS94KK.Founduser then BBS94KK.GoToerr(10)
BBS94KK.CheckBoard()
BBS94KK.Head("管理投票")
IF BBS94KK.MyAdmin<>1 And BBS94KK.MyAdmin<>2 And Not BBS94KK.IsBoardAdmin Then BBS94KK.GoToErr(60)
Select Case Request.querystring("Action")
Case"SaveEdit"
	SaveEdit()	
Case Else
	Main()
End Select
BBS94KK.Footer()
Set BBS94KK=Nothing



Sub Main()
	Dim Caption,Content,rs,Vote,VoteType,VoteNum,i
	Set Rs=BBS94KK.execute("Select Top 1 TopicID,Vote,VoteNum,VoteType,OutTime from [KK_TopicVote] where TopicID="&ID)
	IF Not rs.eof Then
		Caption="投票帖子的标题："&BBS94KK.execute("Select Caption from [KK_Topic] where TopicID="&ID)(0)
		Vote=split(Rs(1),"|")
		VoteNum=Split(Rs(2),"|")
		For I = 1 To UBound(Vote)
			Content=Content&"<tr height=25><td class=td_down>&nbsp;"&i&"</td><td>&nbsp;<input size=80 name='Votes"&i&"' type='text' value='"&Vote(i)&"'> 投票数：<input size=3 name='VoteNum"&i&"' type='text' value='"&VoteNum(i)&"'></td></tr>"
		Next
		If Rs(3)=2 then VoteType=" checked"
		
		Content="<form action='?Action=SaveEdit&TB="&BBS94KK.TB&"&BoardID="&BBS94KK.BoardID&"&ID="&ID&"' method='post'><input name='AutoValue' type='hidden' value='"&UBound(Vote)+1&"'>"&Content&"<tr height=25><td colspan=6>&nbsp;是否多选：<input name='VoteType' type='checkbox' value=2 "&voteType&"> &nbsp; 过期时间：<input size=20 name='OutTime' type='text' value='"&Rs(4)&"'> &nbsp; <input type='submit' value='确定修改'></td></tr></form>"
	Else
		Caption="错误信息":Content="不存在投票记录！"
	End IF
	Rs.Close
	Call BBS94KK.ShowTable(Caption,Content)
End Sub

Sub SaveEdit()
	Dim VoteValue,VoteType,Votes,VoteNum,OutTime,i,Temp
	VoteType=BBS94KK.CheckNum(request.Form("VoteType"))
	If VoteType<>2 Then VoteType=1
	VoteValue=BBS94KK.CheckNum(request.Form("AutoValue"))
	OutTime=BBS94KK.Fun.GetStr("OutTime")
	If Not IsDate(OutTime) Then OutTime="2030-10-1 07:30:00"
	For i=1 to VoteValue
	Temp=Left(BBS94KK.Fun.Checkbad(Trim(BBS94KK.Fun.GetStr("Votes"&I))),250)
	IF Temp>"" Then
		Votes=Votes&"|"&Temp
		If Not BBS94KK.Fun.isInteger(BBS94KK.Fun.GetStr("VoteNum"&I)) Then BBS94KK.GoToErr(61)
		VoteNum=VoteNum&"|"&BBS94KK.Fun.GetStr("VoteNum"&I)
	End If
	Next
	If Votes<>"" Then
		BBS94KK.Execute("Update [KK_TopicVote] Set VoteType="&VoteType&",Vote='"&Votes&"',VoteNum='"&VoteNum&"',OutTime='"&OutTime&"' where TopicID="&ID)
		Temp="<li><a href='Show.asp?TB="&BBS94KK.TB&"&BoardID="&BBS94KK.BoardID&"&ID="&ID&"'>回到投票帖子</a><li><a href='EditVote.asp?TB="&BBS94KK.TB&"&BoardID="&BBS94KK.BoardID&"&ID="&ID&"'>继续修改投票内容</a>"
	Else
		BBS94KK.Execute("Delete From[KK_TopicVote] where TopicID="&ID)
		BBS94KK.Execute("Delete From[KK_TopicVoteUser] where TopicID="&ID)
		BBS94KK.Execute("Update [KK_Topic] Set IsVote=False where TopicID="&ID)
		Temp="<li>已经成功删除的投票内容！<li><a href='Show.asp?TB="&BBS94KK.TB&"&BoardID="&BBS94KK.BoardID&"&ID="&ID&"'>回到主题帖子</a>"
	End IF
	Call BBS94KK.ShowTable("操作成功","<div style='margin:15;line-height: 150%'>"&Temp&"</div>")
End Sub
%>