mylist.asp

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

<!--#include file="Inc.asp"-->
<!--#include file="Inc/page_Cls.asp"-->
<%Dim TextInfo,Action,PageUrl,SqlWhere,Caption,Content,strPageInfo
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
If BBS94KK.BoardID>0 Then
	BBS94KK.CheckBoard()
	SqlWhere="BoardID="&BBS94KK.BoardID&" And IsDel=False And "
	TextInfo="查看"&BBS94KK.BoardName
Else
	SqlWhere="IsDel=False And "
	BBS94KK.Position=BBS94KK.Position&" → <a href=UserInfo.asp>用户控制面版<a>"
	TextInfo="查看"
End If
Action=Lcase(Request.querystring("Action"))
Select Case Action
Case"mysay"
	Call BBS94KK.Head(TextInfo&"本人帖子列表")
	SqlWhere=SqlWhere&"Name='"&BBS94KK.MyName&"'"
Case"myreply"
	Call BBS94KK.Head(TextInfo&"本人回复列表")
	SqlWhere=SqlWhere&"Name<>'"&BBS94KK.MyName&"' and (TopicID in (select ReplyTopicID from [KK_bbs"&BBS94KK.TB&"] where name='"&BBS94KK.MyName&"' And IsDel=False))"
Case"mygood"
	Call BBS94KK.Head(TextInfo&"本人精华帖子列表")
	SqlWhere=SqlWhere&"name='"&BBS94KK.MyName&"' and IsGood"
Case Else
	BBS94KK.GotoErr(1)
End Select
If BBS94KK.BoardID=0 Then
	MyManager()
	PageUrl="?Action="&Action&"&BoardID="&BBS94KK.BoardID
Else
 	PageUrl="?Action="&Action
End If
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
	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
	pages.strPageVar = "page"
	'pages.intRefresh = 0
	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)
	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
	Next
	End If
	ShowTopic=TopicS
End Function

Sub MyManager()
	Response.Write BBS94KK.Template.ReadTemplate("用户控制面版")
End Sub
%>