say.asp

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

<!--#include file="inc.asp"--><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT src="inc/Fun.js"></SCRIPT>
<%
Dim Caption,Action,Submiturl,bbsCaption,IsTitle,BbsContent,Quote,Page,bbsVote,ID
If Not BBS94KK.Founduser then BBS94KK.GoToerr(10)
BBS94KK.CheckBoard()
ID=BBS94KK.CheckNum(request.querystring("ID"))
Page=BBS94KK.CheckNum(request.querystring("page"))
IsTitle=True
Action=lcase(request.querystring("action"))
Select Case Action
	Case"vote"
		Vote()
	Case"reply"
		Reply()
	Case"edit"
		Edit()
	Case Else
		BBS94KK.Stats="发表新帖"
		Caption=BBS94KK.Stats
		bbsCaption="<input name='caption' type='text' style='width:80%' maxlength=200>"
		Submiturl="saysave.asp?BoardID="&BBS94KK.BoardID&""
End Select
BBS94KK.Head(BBS94KK.Stats)
ShowMain()
BBS94KK.Footer()
Set BBS94KK=Nothing

Sub Vote()
	Dim Temp,i
	Temp=BBS94KK.BbsCache(28)
	bbsVote="<tr><td valign=top><br><b>&nbsp;投票选项：<b></td><td>&nbsp;请选择投票项目数：<SELECT align=absmiddle name=VoteNum id=VoteNum onchange=SetNum(this)>"
	for i = 2 to int(Temp)
		bbsVote=bbsVote&"<option value='"&I&"'>"&I&"</option>"
	Next
	bbsVote=bbsVote&"</SELECT> 允许多选 <input type='checkbox' name='VoteType' value='2'> 过期时间：<select size='1' name='OutTime' ><option value='1'>一天</option><option value='3'>三天</option><option value='7'>一周</option><option value='15'>半个月</option><option value='31'>一个月</option><option value='93'>三个月</option><option value='365'>一年</option><option value='10000' selected>不过期</option></select><hr size=1 width='98%'><span id=optionid><table cellpadding=0 cellspacing=3 width='100%' border=0><tr><td>选项1：</td><td><input type='text' name='Votes1' style='width:300'></td></tr><tr><td>选项2：</td><td><input type='text' name='Votes2' style='width:300'><INPUT TYPE='hidden' name='AutoValue' value='2'></td></tr></table></span></td></tr>"
	BBS94KK.Stats="发表新投票"
	Caption="发表新投票"
	bbsCaption="<input name='caption' type=text style='width:80%' maxlength=200>"
	Submiturl="SaySave.asp?BoardID="&BBS94KK.BoardID
End Sub
Sub Reply()
	Dim Rs,BbsID,TopicCaption
	if Id=0 Then BBS94KK.GoToErr(1)
	Caption="回复帖子"
	BBS94KK.Stats=Caption
	IsTitle=False
	Set Rs=BBS94KK.Execute("Select Caption,SqlTableID,IsLock,IsDel From [KK_Topic] where TopicID="&ID&" And IsDel=False")
	If Rs.Eof Then
		BBS94KK.GoToErr(11)
	ElseIf Rs(2) Then
		BBS94KK.GoToErr(12)
	Else
		TopicCaption=Rs(0)
		BBS94KK.TB=Rs(1)
	End If
	Set Rs=Nothing
	bbsCaption=" <input type=hidden name='caption' value='Re:"&TopicCaption&"'>回复主题："&TopicCaption
	Submiturl="Saysave.asp?Action=Reply&BoardID="&BBS94KK.BoardID&"&TB="&BBS94KK.TB&"&ID="&ID&"&page="&page&""
	BbsID=BBS94KK.CheckNum(Request.querystring("BbsID"))
	If BbsID<>"" Then
	'2005-8-1修复引用屏敝的bug(2005-8-1)修改开始
		Set Rs=BBS94KK.Execute("select top 1 B.ReplyTopicID,B.TopicID,B.Name,B.AddTime,B.Content,B.BoardID,U.IsShow from [KK_Bbs"&BBS94KK.TB&"] As B inner join [KK_User] As U on B.Name=U.Name where B.BbsID="&BbsID&" And B.IsDel=False")
			If Not Rs.Eof Then
				If Rs(1)<>ID And Rs(0)<> ID Then BBS94KK.GoToErr(1)
				If Rs(6) Then
					BbsCaption=BbsCaption &"<Font Color=Red>屏蔽内容不能引用</Font>"
				Else
					BbsCaption=BbsCaption &" <Font Color=Red>引用 "&RS(2)&" 的发言</Font>"
					Quote="<tr><td>&nbsp;<b>引用的内容：<input name='QuoteName' type='hidden' value='[quote]以下是引用 [color=0000FF][B]"&RS(2)&"[/B][/color] 在([i]"&Rs(3)&"[/i])的发言："&chr(10)&chr(10)&"'></b><br>&nbsp;可以编辑要引用的内容</td><td width='76%'>&nbsp;<TEXTAREA name='Quote'  cols=90 rows='5' style='WIDTH: 95%;'>"&BBS94KK.Fun.StrLeft(QuoteCode(Rs(4)),500)&"</textarea></td>"
				End If
			End if
	'修改结束
		Set Rs=Nothing
	End If
End Sub
Sub Edit()
	Dim Rs,BbsID,TopicIsLock,TopicRs,IsTop
	BbsID=BBS94KK.CheckNum(request.querystring("BbsID"))
	IF BbsID=0 Or ID=0 Then BBS94KK.GoToErr(1)
	Set Rs=BBS94KK.Execute("Select BoardID,TopType,SqlTableID,IsLock From [KK_Topic] where IsDel=False And TopicID="&ID)
	If Rs.Eof Then
		BBS94KK.GoToErr(11)
	Else
		TopicRs=Rs.GetRows(-1)
	End If
	Rs.Close
	Set Rs=BBS94KK.Execute("select BoardID,Name,AddTime,TopicID,Caption,Content,IsDel From [KK_Bbs"&TopicRs(2,0)&"] where IsDel=False And BbsID="&BbsID&"")
	If Rs.eof  Then
		BBS94KK.GoToErr(11)
	Else
	'如果是总顶或区顶
	If TopicRs(1,0)=5 or TopicRs(1,0)=4 Then
		If lcase(BBS94KK.MyName)<>lcase(rs("name")) Then
			If TopicRs(0,0)=BBS94KK.BoardID Then
				If BBS94KK.MyAdmin<>1 And BBS94KK.MyAdmin<>2 And Not BBS94KK.IsBoardAdmin Then BBS94KK.GoToErr(13)
			Else
				If BBS94KK.MyAdmin<>1 And BBS94KK.MyAdmin<>2  Then BBS94KK.GoToErr(13)
			End If
		End If
	Else
		If TopicRs(0,0)<>BBS94KK.BoardID Then BBS94KK.GotoErr(1)
	End If
		If BBS94KK.MyAdmin<>1 And BBS94KK.MyAdmin<>2 And Not BBS94KK.IsBoardAdmin  And lcase(BBS94KK.MyName)<>lcase(rs("name")) Then BBS94KK.GoToErr(13)
		If BBS94KK.MyAdmin<>1 And BBS94KK.MyAdmin<>2 And Not BBS94KK.IsBoardAdmin Then
			If BBS94KK.BbsCache(36)<>0 Then If lcase(BBS94KK.MyName)=lcase(rs("name")) And DateDiff("s",Rs("AddTime")+BBS94KK.BbsCache(36)/1440,BBS94KK.NowBbsTime)>0 Then BBS94KK.GoToErr(14)