classlist.asp

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

<!--#include file="Inc.asp"-->
<!--#include file="Inc/page_Cls.asp"-->
<%Dim TextInfo,Action,PageUrl,SqlWhere,Caption,Content,strPageInfo
Action=Lcase(request.querystring("action"))
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
If BBS94KK.BoardID>0 Then 
	BBS94KK.CheckBoard()
	SqlWhere="BoardID="&BBS94KK.BoardID&" And IsDel=False "
	TextInfo="查看"&BBS94KK.BoardName
	PageUrl="?Action="&Action&"&BoardID="&BBS94KK.BoardID
Else
	SqlWhere="IsDel=False "
	BBS94KK.Position=BBS94KK.Position&" → <a href=UserInfo.asp>用户控制面版<a>"
	TextInfo="查看所有的"
	PageUrl="?Action="&Action
End If
Select Case Action
Case"good"
	Call BBS94KK.Head(TextInfo&"精华主题")
	SqlWhere =SqlWhere& "And IsGood"
Case"new"
	Call BBS94KK.Head(TextInfo&"今日新帖")
	SqlWhere =SqlWhere& "And DATEDIFF('d',[LastTime],'"&BBS94KK.NowBbsTime&"')<1"
Case"48h"
	Call BBS94KK.Head(TextInfo&"48小时内新帖")
	SqlWhere =SqlWhere& "And DATEDIFF('d',[LastTime],'"&BBS94KK.NowBbsTime&"')<2"
Case"week"
	Call BBS94KK.Head(TextInfo&"一周内新帖")
	SqlWhere =SqlWhere& "And DATEDIFF('d',[LastTime],'"&BBS94KK.NowBbsTime&"')<7"
Case"hot"
	Call BBS94KK.Head(TextInfo&"最旺人气帖")
	SqlWhere =SqlWhere& "And Hits>100"
Case"reply"
	Call BBS94KK.Head(TextInfo&"最旺回复主题")
	SqlWhere =SqlWhere& "And ReplyNum>9"
Case"last"
	Call BBS94KK.Head(TextInfo&"上次访后新帖")
	SqlWhere =SqlWhere& "And Datediff('s',LastTime,'"&Session(BBS94KK.CacheName & "LastTime")&"')<0"
Case Else
	Call BBS94KK.Head(TextInfo&"主题")
End Select
Response.Write ShowTopic()&ShowListBottom()
BBS94KK.Footer()
Set BBS94KK=Nothing


Function ShowListBottom()
	Dim Temp
	Temp=BBS94KK.Template.ReadTemplate("各项列表底部")
	Temp=Replace(Temp,"{分页}",strPageInfo)
	ShowListBottom=Temp
End Function


Function ShowTopic()
	Dim intPageNow,arr_Rs,i,Pages,TopicImg,Conut,page
	Dim Temp,TopicS,Caption,Facepic,Moodpic,LastRe,RePageUrl,UploadType,RePage,leftn,ii,NoShow
	NoShow=BBS94KK.NoShowTopic()
	Temp=BBS94KK.Template.ReadTemplate("各项列表顶部")
	TopicS=Replace(Temp,"{标题}",BBS94KK.Stats )
	intPageNow = Request.QueryString("page")
	Set Pages = New Cls_PageView
	Pages.strTableName = "[KK_Topic]"
	Pages.strPageUrl = PageUrl
	Pages.strFieldsList = "Top 200 TopicID,Face,Caption,Name,TopType,IsGood,AddTime,BoardID,LastTime,Hits,LastReply,UploadType,IsVote,ReplyNum,SqlTableID,IsLock"
	Pages.strCondiction = SqlWhere
	Pages.strOrderList = "TopType desc,LastTime desc"
	Pages.strPrimaryKey = "TopicID"
	Pages.intPageSize = Int(BBS94KK.BbsCache(31))
	Pages.intPageNow = intPageNow
	Pages.strCookiesName = "BBSList"&Action&BBS94KK.BoardID'客户端记录总数
	Pages.Reloadtime=3'每三分钟更新Cookies
	Pages.strPageVar = "page"
	Pages.InitClass
	Arr_Rs = Pages.arrRecordInfo
	strPageInfo = Pages.strPageInfo
	Set Pages = nothing
	If IsArray(Arr_Rs) Then
	TopicImg=Split(BBS94KK.Template.ReadTemplate("帖子状态图片"),"|")
	For i = 0 to UBound(Arr_Rs, 2)
	If InStr(NoShow,","&Arr_Rs(7,I)&",")=0 Then
	Facepic="<img src='pic/face/"&Arr_Rs(1,i)&".gIf'>"
	Moodpic=TopicImg(6)
	If Arr_Rs(13,i) > Int(BBS94KK.BbsCache(29)) Then Moodpic=TopicImg(5)
	If Arr_Rs(5,i) Then Moodpic=TopicImg(3)'精华
	If Arr_Rs(15,i) Then Moodpic=TopicImg(7)'锁定
	If Arr_Rs(12,i) Then Moodpic=TopicImg(4)'投票
	If Arr_Rs(4,i)=5 Then Moodpic=TopicImg(0)'总顶
	If Arr_Rs(4,i)=4 Then Moodpic=TopicImg(1)'区顶
	If Arr_Rs(4,i)=3 Then Moodpic=TopicImg(2)'顶
	UploadType=""
	If Arr_Rs(11,i)<>"" Then Uploadtype="<img src='pic/FileType/"&Arr_Rs(11,i)&".gif' border=0> "
	LastRe=split(Arr_Rs(10,i),"|")
	RePage=(Arr_Rs(13,i)+1)\10
	If RePage<(Arr_Rs(13,i)+1)/10 Then RePage=RePage+1
	RePageUrl="Show.asp?id="&Arr_Rs(0,i)&"&BoardID="&Arr_Rs(7,i)&"&TB="&Arr_Rs(14,i)&""
	leftn=50
	If RePage>4 Then leftn=36
	If Repage>10 Then leftn=30
	Caption=UploadType
	Caption=Caption&"<a href="&Repageurl&" title='主题发布时间："&Arr_Rs(6,i)&"<br>最后回复内容："&BBS94KK.Fun.StrLeft(LastRe(1),20)&"'>"&BBS94KK.Fun.StrLeft(Arr_Rs(2,i),leftn)&"</a>"
	If Repage>1 Then
	Caption=Caption&" [<img src='Images/gopage.gif' width=10 height=12> "
	If RePage<=5 Then
		For ii=2 To RePage
			Caption=Caption&"<a href='"&RePageurl&"&page="&ii&"'>"&ii&"</a> "
		Next
	Else
		For ii=2 To 4
			Caption=Caption&"<a href='"&RePageurl&"&page="&ii&"'>"&ii&"</a> "
		Next
			Caption=Caption&"... <a href='"&RePageurl&"&page="&RePage&"'>"&RePage&"</a> "
	End If
	Caption=Caption&" ]"
	End If
	If Datediff("n",Arr_Rs(8,i),BBS94KK.NowbbsTime)<=180 Then Caption=Caption&TopicImg(8)
	Temp=BBS94KK.Template.ReadTemplate("主题列表")
	Temp=Replace(Temp,"{状态}",Moodpic)
	Temp=Replace(Temp,"{主题}",Caption)
	Temp=Replace(Temp,"{表情}",Facepic)
	Temp=Replace(Temp,"{用户名称}","<a href='UserInfo.asp?name="&Arr_Rs(3,i)&"' title='查看 "&Arr_Rs(3,i)&" 的资料'>"&Arr_Rs(3,i)&"</a>")
	Temp=Replace(Temp,"{回复数}",Arr_Rs(13,i))
	Temp=Replace(Temp,"{点击数}",Arr_Rs(9,i))
	Temp=Replace(Temp,"{最后时间}","<font title='时间："&FORMATDATETIME(Arr_Rs(8,i),3)&"'>"&FORMATDATETIME(Arr_Rs(8,i),1)&"</font>")
	Temp=Replace(Temp,"{回复用户名称}",LastRe(0))
	TopicS=TopicS&Temp
	End If
	Next
	End If
	ShowTopic=TopicS
End Function

%>