show.asp

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

<!--#include file="Inc.asp"-->
<!--#include file="inc/ubb_Cls.asp"-->
<!--#include file="inc/page_Cls.asp"-->
<script language='JavaScript' src='inc/Fun.js'></SCRIPT>
<%
Dim TopicCaption,TopicUserName,TopicTopType,TopicIsGood,TopicIsLock,TopicIsVote,TopicHits,TopicReplyNum
Dim BBS94KK_ubb,Page,PageString,PageInfo,ID,UserName,BBSID
ID=BBS94KK.CheckNum(request.querystring("ID"))
IF BBS94KK.BoardID=0 or Id=0 or BBS94KK.TB=0 then BBS94KK.GoToErr(1)
BBS94KK.CheckBoard()
GetTopicInfo()
ShowListTop()
If TopicIsVote Then ShowVote()
Set BBS94KK_ubb=New BBS94KKubb_Cls
ShowBBS()
Set BBS94KK_ubb=Nothing
ShowListBottom()
FastReply()
BBS94KK.Footer()
BBS94KK.Execute("UPDATE [KK_Topic] SET Hits=Hits+1 WHERE TopicID="&ID&"")
Set BBS94KK=Nothing
	
Sub GetTopicInfo()
	Dim Rs,Arr_Rs
	Set Rs=BBS94KK.Execute("Select TopicID,Caption,Name,TopType,IsGood,IsLock,isVote,Hits,ReplyNum,Face,AddTime From [KK_Topic] where TopicID="&ID&" And (BoardID="&BBS94KK.BoardID&" or TopType=4 or TopType=5) and IsDel=False")
	IF Rs.eof then BBS94KK.GoToErr(11)
	Arr_Rs=Rs.GetRows(1)
	Rs.Close
	Set Rs=Nothing
	TopicCaption =BBS94KK.Fun.HtmlCode(Arr_Rs(1,0))
	TopicUserName=Arr_Rs(2,0)
	TopicTopType =Arr_Rs(3,0)
	TopicIsGood  =Arr_Rs(4,0)
	TopicIsLock  =Arr_Rs(5,0)
	TopicIsVote  =Arr_Rs(6,0)
	TopicHits    =Arr_Rs(7,0)
	TopicReplyNum=Arr_Rs(8,0)
	IF BBS94KK.BoardType=3 or BBS94KK.Boardtype=4 Then
		BBS94KK.Head("浏览帖子")'屏蔽信息
	Else
		BBS94KK.Head("浏览："&BBS94KK.Fun.StrLeft(Arr_Rs(1,0),25))
	End IF
	IF TopicIsGood Then If BBS94KK.BbsCache(39)="1" And Not BBS94KK.FoundUser Then BBS94KK.GoToErr(43)
End Sub
Function TopicMood()
	Dim Temp,TopicImg
	TopicImg=Split(BBS94KK.Template.ReadTemplate("帖子状态图片"),"|")
	IF TopicIsGood Then Temp="<td>"&TopicImg(3)&" <font color=red>精华帖子</font></td>"
	IF TopicIsVote then Temp=Temp&"<td>"&TopicImg(4)&" <font color=red>投票帖子</font></td>"
	IF TopicIsLock then Temp=Temp&"<td>"&TopicImg(7)&" <font color=red>此帖被锁</font></td>"
	IF TopicTopType=3 then Temp=Temp&"<td>"&TopicImg(2)&" <font color=red>置顶帖子</font></td>"
	IF TopicTopType=4 then Temp=Temp&"<td>"&TopicImg(1)&" <font color=red>区置顶帖子</font></td>"
	IF TopicTopType=5 then Temp=Temp&"<td>"&TopicImg(0)&" <font color=red>总置顶帖子</font></td>"
	IF Temp<>"" Then Temp="<Div  align='right'><table border=1 style='border-collapse: collapse' cellpadding='5' cellspacing='0' bordercolor=red bgcolor=ffffff><tr>"&Temp&"</tr></table></div>"
	TopicMood=Temp
End Function

Function ShowListTop()
	Dim Temp
	Temp=BBS94KK.Template.ReadTemplate("帖子顶部")
	Temp=Replace(Temp,"{发帖按钮}",SayBar())
	Temp=Replace(Temp,"{点击数}",TopicHits+1)
	Temp=Replace(Temp,"{标题}",TopicCaption)
	Response.Write(Temp)
End Function
Function ShowListBottom()
	Dim Temp
	Temp=BBS94KK.Template.ReadTemplate("帖子底部")
	Temp=Replace(Temp,"{分页}",PageInfo)
	Temp=Replace(Temp,"{主题管理}",SetTopic())
	Response.Write(Temp)
End Function
Function SayBar()
	Dim Temp
	If BBS94KK.BoardType<>2 or BBS94KK.MyAdmin=1 or BBS94KK.MyAdmin=2 or (BBS94KK.MyAdmin=3 And BBS94KK.IsBoardAdmin) Then
		Temp="<a href='Say.asp?BoardID="&BBS94KK.BoardID&"'>"&Trim(Replace(BBS94KK.Template.ReadTemplate("发帖图片"),VbCrlf,""))&"</a> <a href='Say.asp?action=vote&BoardID="&BBS94KK.BoardID&"'>"&Trim(Replace(BBS94KK.Template.ReadTemplate("发投票图片"),VbCrlf,""))&"</a>"
		If Not TopicIsLock or BBS94KK.MyAdmin=1 Then
			Temp=Temp&" <a href='Say.asp?Action=Reply&BoardID="&BBS94KK.BoardID&"&ID="&ID&"'>"&Trim(Replace(BBS94KK.Template.ReadTemplate("回帖图片"),VbCrlf,""))&"</a>"
		End If
	End If
	SayBar=Temp
End Function
Function ShowVote()
	Dim Temp,Rs,Arr_Rs,Vote,VoteNum,AllvoteNum,VotePicW,Opt,ClueTxt,CanVote,ii,VoteShow,i
	Set Rs=BBS94KK.Execute("Select TopicID,Vote,VoteNum,VoteType,OutTime From [KK_TopicVote] where TopicID="&ID&"")
	If Rs.Eof then Exit Function
	Arr_Rs=Rs.GetRows(1)
	Rs.Close:Set Rs=Nothing
	Vote=Split(Arr_Rs(1,0),"|")
	VoteNum=split(Arr_Rs(2,0),"|")
	CanVote=True
	If Not BBS94KK.FoundUser Then
		ClueTxt="你还没有登陆，不能进行投票。"
		CanVote=False
	Else
		IF not BBS94KK.Execute("Select User From [KK_TopicVoteUser] where User='"&BBS94KK.MyName&"' and TopicID="&ID&"").eof then
			ClueTxt="你已经投过票了，不能再投票了。[<a style='cursor:hand;color:red;' onclick=javascript:window.open('See.asp?Action=Vote&Id="&Arr_Rs(0,0)&"','open','width=550,height=400,resizable=1,scrollbars=yes,menubar=no,status=yes')>详情</a>]"
			CanVote=False
		End If
	End If
	For i=1 to ubound(Vote)
		AllvoteNum=Int(AllvoteNum+VoteNum(i))
	Next
	IF AllVoteNum=0 then AllvoteNum=1
	For i=1 To ubound(Vote)
		ii=ii+1
		VotePicW=VoteNum(i)/AllvoteNum*85
		If CanVote Then
			IF Int(Arr_Rs(3,0))=1 then Opt="<input type=radio value='"&i&"' name='opt'>" Else Opt="<input type=checkbox name='opt"&i&"' value='"&i&"'>"
		End If
		IF ii>6 Then ii=1
		VoteShow=VoteShow&"<tr><td width='5%' height=25 >&nbsp;"&i&"</td><td width='40%'>&nbsp;"&Opt&""&BBS94KK.Fun.HtmlCode(Vote(i))&"</td><td width='35%' >&nbsp;<img border=0 height=8 width=2 src=Images/line.gif><img border=0 height=8 width='"&VotePicW&"%' src='Images/hr"&ii&".gif'> <b>"&VoteNum(i)&"</b> 票</td></tr>"
	Next
	If DateDiff("s",BBS94KK.NowBbsTime,Arr_Rs(4,0))<0 then
		ClueTxt="该投票已经过期，不能进行投票。"
		CanVote=False
	End If
	IF CanVote then
		ClueTxt="<input type='submit' value='投 票 (投票后方能看详尽结果)'>"
	End IF
	ClueTxt=ClueTxt&" [ 截止时间："&Arr_Rs(4,0)&" ]"
	If BBS94KK.MyAdmin=1 or BBS94KK.MyAdmin=2 or (BBS94KK.MyAdmin=3 and  BBS94KK.IsBoardAdmin) Then
	ClueTxt=ClueTxt&" 【<a href=EditVote.asp?TB="&BBS94KK.TB&"&BoardID="&BBS94KK.BoardID&"&ID="&ID&">修改投票</a>】"
	End If
	Temp=BBS94KK.Template.ReadTemplate("显示投票")
	Temp=Replace(Temp,"{投票选项}","<form style='margin:0' method=POST action=Submit.asp?Action=Vote&id="&ID&"&type="&Arr_Rs(3,0)&">"&VoteShow)
	Temp=Replace(Temp,"{投票信息}",ClueTxt&"</form>")
	Response.Write(Temp)
End Function

Function ShowBBS()
	Dim arr_Rs,i,pages
	Dim Template,Temp,TempStr,Lou,Sign,Fontsize,ShowCaption,ShowMood,AppraiseInfo
	Fontsize=Request.Cookies(BBS94kk.CookiesName)("FontSize")
	IF Fontsize<>"9" and Fontsize<>"10" and Fontsize<>"12" then Fontsize="9"
	Page = Request.QueryString("page")
	Set pages = New Cls_PageView
	pages.strTableName = "[KK_Bbs"&BBS94KK.TB&"] As B inner join [KK_User] As U on B.Name=U.Name"
	pages.strPageUrl = "?BoardID="&BBS94KK.BoardID&"&ID="&ID&"&TB="&BBS94KK.TB
	pages.strFieldsList = "B.BbsID,B.TopicID,B.Face,B.Caption,B.Content,B.Name,B.AddTime,B.BoardID,B.UbbString,B.IP,U.Id,U.Name,U.IsQQpic,U.QQ,U.Pic,U.Picw,U.Pich,U.Grade,U.EssayNum,U.Mail,U.Home,U.Sex,U.Mark,U.Coin,U.Sign,U.Regtime,U.IsShow,U.IsDel,U.IsSign,U.IsVip,U.RegIp,U.LoginNum,U.Honor,U.Faction,B.IsAppraise"
	pages.strCondiction = "B.isDel=False and (B.TopicID="&ID&" or B.ReplyTopicID="&ID&")"
	pages.strOrderList = "B.BbsID"
	pages.strPrimaryKey = "BbsID"
	Pages.CountSQL=TopicReplyNum+1
	'Pages.CountSQL=BBS94KK.Execute("SELECT Count(ID) FROM [KK_Bbs"&BBS94KK.TB&"] where (TopicID="&ID&" or ReplyTopicID="&ID&") and isDel=False")(0)
	pages.intPageSize = 10
	pages.intPageNow = Page
	pages.strCookiesName = "Show_"&ID
	pages.Reloadtime=2
	pages.strPageVar = "page"
	pages.InitClass
	Arr_Rs = pages.arrRecordInfo
	PageInfo = pages.strPageInfo
	page=pages.intPageNow