📄 list.asp

📁 功能强大的bbs
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<%
Dim Page
Page=Request("Page")
If isNumeric(Page) = 0 or Page="" Then Page=1
Page=Clng(Page)
Dim BrowserType
Set BrowserType=New Cls_Browser
If BrowserType.IsSearch Then Response.redirect "List_show.asp?BoardID="&Dvbbs.BoardID&"&page="&page
Set BrowserType=Nothing

If Cint(Dvbbs.Board_Data(6,0)) > 0 Then
	Dvbbs.LoadTemplates("index")
Else
	Dvbbs.LoadTemplates("list")
End If
If Cint(Dvbbs.Board_Setting(43))=0 Then
	Dvbbs.Stats=Dvbbs.LanStr(7)
Else
	Dvbbs.Stats=Dvbbs.LanStr(8)
End If
Dvbbs.Nav()
Dvbbs.Head_var 1,Dvbbs.Board_Data(4,0),"",""
Dvbbs.Showerr()
Dim action
Dim TopicNum,n,SplitPageNum
Dim Forum_AllTopNum
Forum_AllTopNum = 0
If Dvbbs.boardmaster or Dvbbs.master or Dvbbs.superboardmaster Then
	action=Request("action")
ElseIf Dvbbs.GroupSetting(45)=1 Then
	action=Request("action")
Else
	action=""
End If
Page=Request("Page")
If isNumeric(Page) = 0 or Page="" Then Page=1
Page=Clng(Page)
'如果有下属版面，则显示
If Cint(Dvbbs.Board_Data(6,0)) > 0 Then
	GetChildBoardList
	Dvbbs.LoadTemplates("list")
End If
Dim BoardTopic,BoardTopicImg,BoardTopicMode,BoardTopicMode_a,iii,TopicMode,SelectBoardTopic
TopicMode=0
BoardTopic=Split(Dvbbs.Board_Setting(48),"$$")
BoardTopicImg=Split(Dvbbs.Board_Setting(49),"$$")
If Ubound(BoardTopic)>0 Then
	If Request("topicmode")<>"" and IsNumeric(Request("topicmode")) Then TopicMode=Cint(Request("topicmode"))
	For iii=0 to Ubound(BoardTopic)-1
		If BoardTopicImg(iii)<>"" and Instr(BoardTopicImg(iii),".gif") Then BoardTopicMode=BoardTopicMode+"<img src="&BoardTopicImg(iii)&" border=0  align=absmiddle>"
		BoardTopicMode=BoardTopicMode+"<a href=list.asp?boardid="&Dvbbs.boardid&"&topicmode="&iii+1&">["
		BoardTopicMode_a=BoardTopicMode_a+"<a href=list.asp?boardid="&Dvbbs.boardid&"&topicmode="&iii+1&">["
		If TopicMode=iii+1 Then
			BoardTopicMode=BoardTopicMode+"<font color="&Dvbbs.mainsetting(1)&">"&BoardTopic(iii)&"</font>"
			BoardTopicMode_a=BoardTopicMode_a+"<font color="&Dvbbs.mainsetting(1)&">"&BoardTopic(iii)&"</font>"
		Else 
			BoardTopicMode=BoardTopicMode+BoardTopic(iii)
			BoardTopicMode_a=BoardTopicMode_a+BoardTopic(iii)
		End If
		BoardTopicMode=BoardTopicMode+"]</a>"
		BoardTopicMode_a=BoardTopicMode_a+"]</a>"
		SelectBoardTopic=SelectBoardTopic+"<option value="&(iii+1)
		SelectBoardTopic=SelectBoardTopic+" >"&BoardTopic(iii)&"</option>"
		If iii<>(Ubound(BoardTopic)-1) Then
			BoardTopicMode=BoardTopicMode+ " | "
			BoardTopicMode_a=BoardTopicMode_a+ " | "
		End If
	Next
End If
'分版浮动广告
If Dvbbs.Forum_ads(2)="1" or Dvbbs.Forum_ads(13)="1" Then Response.Write "<script language=""javascript"" src=""inc/Dv_Adv.js""></script>"
If Cint(Dvbbs.Board_Setting(43))=0 Then
	News
	Board_Online
	Show_List_Top
	Show_List_TopTopic
	Show_List_Topic
	Show_List_Footer
Else
	Response.Write "<iframe width=""0"" height=""0"" src="""" name=""hiddenframe""></iframe>"
End If
Dvbbs.ActiveOnline()
Dvbbs.Footer()

Function news()
	Dim TempStr,SQL
	TempStr=Dvbbs.Board_Data(23,0)
	SQL=Split(TempStr,"|||")
	If UBound(SQL)< 2 Then
		Dvbbs.Name = "BoardInfo_" & Dvbbs.BoardID
		Dvbbs.LoadBoardNews_Paper Dvbbs.BoardID
		Dvbbs.Board_Data=Dvbbs.Value
		TempStr=Dvbbs.Board_Data(23,0)
		SQL=Split(TempStr,"|||")
	End If
	Dim tmpdata,nexhour
	TempStr=template.html(0)
	If Dvbbs.Board_Setting(21)="1" Then
		tmpdata=split(Dvbbs.Board_Setting(22),"|")
		nexhour=Hour(Now())+1
		nexhour=nexhour mod 24
		If tmpdata(nexhour)="0" And Minute(now())>40 Then
			sql(1)=sql(1)&"--本版将于"&(60-Minute(now()))&"分钟后暂停开放,敬请留意"
		End If
	End If
	TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
	TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	TempStr=Replace(TempStr,"{$news}",SQL(0)&"")
	TempStr=Replace(TempStr,"{$newstime}",SQL(1))
	Response.Write TempStr
	TempStr="":SQL=Null
End Function
Function Board_online()
	Dim TempStr
	TempStr=template.html(1)
	TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	TempStr=Replace(TempStr,"{$allonline}",MyBoardOnline.Forum_Online)
	TempStr=Replace(TempStr,"{$boardtype}",Dvbbs.Boardtype)
	TempStr=Replace(TempStr,"{$boardonline}",MyBoardOnline.Board_UserOnline)
	TempStr=Replace(TempStr,"{$boardguest}",MyBoardOnline.Board_GuestOnline)
	TempStr=Replace(TempStr,"{$todaynum}",Dvbbs.Board_Data(12,0))
	TempStr=Replace(TempStr,"{$alertcolor}",Dvbbs.mainsetting(1))
	Response.Write TempStr
	TempStr=""
	If Dvbbs.forum_setting(14)="1" Or Dvbbs.forum_setting(15)="1" Then 
		Response.Write "<iframe width=""0"" height=""0"" src=""Online.asp?action=1&Boardid="&Dvbbs.Boardid&""" name=""hiddenframe""></iframe>"
	Else
		Response.Write "<iframe width=""0"" height=""0"" src="""" name=""hiddenframe""></iframe>"
	End If
End Function

Function Show_List_Top()
	Dim TempStr,TempBoardMaster,BoardMaster,i
	If Dvbbs.BoardMaster="" Then
		BoardMaster=template.Strings(4)
	Else
		TempBoardMaster=Split(Dvbbs.BoardMasterList & "","|")
		For i=0 To Ubound(TempBoardMaster)
			BoardMaster = BoardMaster & "<a href=dispuser.asp?name="&TempBoardMaster(i)&">"&TempBoardMaster(i)&"</a>&nbsp;"
		Next
	End If
	If (Dvbbs.Board_Setting(43)="0" And Dvbbs.Board_Setting(0)="0") Or (Dvbbs.Board_Setting(43)="0" And Dvbbs.Board_Setting(0)="1" And (Dvbbs.Master Or Dvbbs.SuperBoardMaster Or Dvbbs.BoardMaster)) Then
		TempStr=template.html(3)
		TempStr=Replace(TempStr,"{$pic_postnew}",Dvbbs.mainpic(7))
		TempStr=Replace(TempStr,"{$pic_postvote}",Dvbbs.mainpic(8))
		TempStr=Replace(TempStr,"{$pic_postxzb}",Dvbbs.mainpic(9))
	Else
		If Dvbbs.Board_Setting(0)="1" Then TempStr=template.Strings(1)
	End If
	TempStr=Replace(template.html(2),"{$showpostinfo}",TempStr)
	TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	TempStr=Replace(TempStr,"{$page}",page)
	TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
	TempStr=Replace(TempStr,"{$alertcolor}",Dvbbs.mainsetting(1))
	TempStr=Replace(TempStr,"{$boardmasterlist}",BoardMaster)
	TempStr=Replace(TempStr,"{$smallpaper}",Split(Dvbbs.Board_Data(23,0),"|||")(2))
	If Dvbbs.Board_Setting(3)="1" Or Dvbbs.Board_Setting(57)="1" Then
		Dim allaudit,rs
		Set rs=dvbbs.execute("select count(*) from "&Dvbbs.Nowusebbs&" where boardid=777 and locktopic="&Dvbbs.BoardID)
		allaudit=rs(0)
		If IsNull(allaudit) Then allaudit=0
		Set Rs=Nothing
		TempStr=Replace(TempStr,"{$isaudit}","| <a href=AccessTopic.asp?boardid="&Dvbbs.BoardID&" title="&Replace(template.Strings(3),"{$auditnum}",allaudit)&">"&template.Strings(2)&"</a>(<font color="&Dvbbs.mainsetting(1)&">"&allaudit&"</font>)")
	Else
		TempStr=Replace(TempStr,"{$isaudit}","")
	End If
	If BoardTopicMode="" Then
		TempStr=Replace(TempStr,"{$topictype}","")
	Else
		TempStr=Replace(TempStr,"{$topictype}",template.html(14))
		TempStr=Replace(TempStr,"{$TopicMode}",BoardTopicMode)
	End If
	Response.Write TempStr
	TempStr=""
End Function

Function Show_List_Footer()
	Dim TempStr
	TempStr=template.html(5)
	TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
	TempStr=Replace(TempStr,"{$boardjump}",Dvbbs.BoardJumpList)
	TempStr=Replace(TempStr,"{$forumname}",Dvbbs.Forum_Info(0))
	TempStr=Replace(TempStr,"{$timestr}",Dvbbs.Forum_Info(9))
	TempStr=Replace(TempStr,"{$pic_toptopic}",Dvbbs.mainpic(1))
	TempStr=Replace(TempStr,"{$pic_atoptopic}",Dvbbs.mainpic(0))
	TempStr=Replace(TempStr,"{$pic_opentopic}",Dvbbs.mainpic(2))
	TempStr=Replace(TempStr,"{$pic_hottopic}",Dvbbs.mainpic(3))
	TempStr=Replace(TempStr,"{$pic_locktopic}",Dvbbs.mainpic(4))
	TempStr=Replace(TempStr,"{$pic_besttopic}",Dvbbs.mainpic(5))
	TempStr=Replace(TempStr,"{$pic_votetopic}",Dvbbs.mainpic(6))
	TempStr=Replace(TempStr,"{$pic_toptopic1}",Dvbbs.mainpic(19))
	Response.Write TempStr
	TempStr=""
	'广告代码
	Response.Write "<script language=""javascript"">"
	Response.Write Chr(10)
	If Dvbbs.Forum_ads(2)="1" Then
		 Response.Write "move_ad('"&Dvbbs.Forum_ads(3)&"','"&Dvbbs.Forum_ads(4)&"','"&Dvbbs.Forum_ads(5)&"','"&Dvbbs.Forum_ads(6)&"');"
	End If
	If Dvbbs.Forum_ads(13)="1" Then
		Response.Write "fix_up_ad('"& Dvbbs.Forum_ads(8) & "','" & Dvbbs.Forum_ads(10) & "','" & Dvbbs.Forum_ads(11) & "','" & Dvbbs.Forum_ads(9) & "');"		
	End If 
	Response.Write Chr(10)
	Response.Write "</script>"
End Function

Function Show_List_TopTopic()
	Response.Write "<Script Language=JavaScript>"
	Dim PostTime,ListMainTemplate
	ListMainTemplate=template.html(6)
	If Dvbbs.Board_Setting(60)="0" or Dvbbs.Board_Setting(60)="" Then
		ListMainTemplate=Replace(ListMainTemplate,"{$ShowNewPic}","")
	End If
	Response.Write chr(10)
	Response.Write Replace(Replace(template.html(11),"{$ShowNewPic}",Dvbbs.Board_Setting(60)),"{$IcoLimMinute}",Dvbbs.Board_Setting(61))
	Response.Write chr(10)
	Response.Write "var TempStr='"&Replace(Replace(Replace(Replace(ListMainTemplate,"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	Response.Write chr(10)
	Response.Write "var TempStr_Page='"&Replace(Replace(Replace(Replace(template.html(7),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	Response.Write chr(10)
	Response.Write "var TempStr_topicinfo='"&Replace(Replace(Replace(Replace(template.html(8),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	Response.Write chr(10)
	Response.Write "var TempStr_load='"&Replace(Replace(Replace(Replace(template.html(9),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	Response.Write chr(10)
	Response.Write "var topicpage='"&Dvbbs.Forum_Setting(44)&"';"
	Response.Write chr(10)
	Response.Write "var alertcolor='"&Dvbbs.mainsetting(1)&"';"
	Response.Write chr(10)
	Response.Write "var ztopic='"&Dvbbs.mainpic(0)&"';"
	Response.Write chr(10)
	Response.Write "var istopic='"&Dvbbs.mainpic(1)&"';"
	Response.Write chr(10)
	Response.Write "var opentopic='"&Dvbbs.mainpic(2)&"';"
	Response.Write chr(10)
	Response.Write "var hottopic='"&Dvbbs.mainpic(3)&"';"
	Response.Write chr(10)
	Response.Write "var ilocktopic='"&Dvbbs.mainpic(4)&"';"
	Response.Write chr(10)
	Response.Write "var besttopic='"&Dvbbs.mainpic(5)&"';"
	Response.Write chr(10)
	Response.Write "var votetopic='"&Dvbbs.mainpic(6)&"';"
	Response.Write chr(10)
	Response.Write "var picnofollow='"&Dvbbs.mainpic(10)&"';"
	Response.Write chr(10)
	Response.Write "var picfollow='"&Dvbbs.mainpic(11)&"';"
	Response.Write chr(10)
	If TopicMode>0 Then
		Set Rs=Dvbbs.Execute("Select count(Topicid) From Dv_topic Where Boardid="&Dvbbs.Boardid&" and mode="&TopicMode)
		TopicNum=Rs(0)
		Rs.close:Set Rs=Nothing
	Else
		TopicNum=Dvbbs.Board_Data(10,0)
	End If
	SplitPageNum=Dvbbs.Board_Setting(26)
	Response.Write "var TopicNum='"&TopicNum&"';"
	Response.Write Chr(10)
	Response.Write "var page='"&page&"';"
	Response.Write Chr(10)
	Response.Write "var Board_Setting26='"&SplitPageNum&"';"
	Response.Write Chr(10)
	Response.Write "var Board_Setting27='"&Dvbbs.Board_Setting(27)&"';"
	Response.Write Chr(10)
	Response.Write "var BoardTopicMode='"&BoardTopicMode_a&"';"
	Response.Write Chr(10)
	Response.Write "var TopicLimByte='"&Dvbbs.Board_Setting(25)&"';"
	Response.Write Chr(10)
	Response.Write "var MyAction='"&action&"';"
	Response.Write Chr(10)
	Response.Write "var GroupSetting45='"&Dvbbs.GroupSetting(45)&"';"
	Response.Write Chr(10)
	Response.Write "var ListTopicMode='"&TopicMode&"';"
	Response.Write Chr(10)
	Response.Write "var TrueBoardID="&Dvbbs.BoardID&";"
	Response.Write Chr(10)
	If TopicMode>0 Then Response.Write "var BoardTopicMode='';"
	Response.Write Chr(10)
	Response.Write "</Script>"
	Forum_AllTopNum=Dvbbs.CacheData(28,0)
	If Trim(Dvbbs.Board_Data(20,0))<>"" Then
		If Trim(Forum_AllTopNum)<>"" Then
			Forum_AllTopNum = Forum_AllTopNum & "," & Dvbbs.Board_Data(20,0)
		Else
			Forum_AllTopNum = Dvbbs.Board_Data(20,0)
		End If
	End If
	If Trim(Forum_AllTopNum)<>"" And Page=1 Then
		Dim Rs,SQL,i,TopicTempStr,Showtitle,postusername
		Set Rs=Dvbbs.Execute("Select TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode from dv_topic Where istop>0 and TopicID in ("&Forum_AllTopNum&") Order By istop desc, Lastposttime Desc")
		If Rs.Eof And Rs.Bof Then
		Forum_AllTopNum = 0
		Else
		SQL=Rs.GetRows(-1)
		Forum_AllTopNum = 0
		For i=0 To Ubound(SQL,2)
			Response.Write "<Script Language=JavaScript>"
			Response.Write Chr(10)
			Showtitle=SQL(2,i)
			Showtitle=Replace(Showtitle,"\","\\")
			Showtitle=Replace(Showtitle,"""","\""")
			Showtitle=Replace(Showtitle,"'","\'")
			Showtitle=Replace(Showtitle,"$","＄")
			If SQL(16,i)=1 Then
				If Dv_FilterJS(Showtitle) Then
					Showtitle=Replace(Showtitle,"<","&lt;")
					Showtitle = Replace(Showtitle,">","&gt;")
				End If
			Else
				Showtitle=Replace(Showtitle,"<","&lt;")
				Showtitle = Replace(Showtitle,">","&gt;")
			End If 
			postusername=SQL(3,i)
			postusername=Replace(postusername,"\","\\")
			postusername=Replace(postusername,"""","\""")
			postusername=Replace(postusername,"'","\'")			
			'TopicTempStr = ",'"&Replace(SQL(2,i),"'","")&"','"&Replace(SQL(3,i),"'","")&"','"&Replace(SQL(9,i),"'","")&"','"&Replace(SQL(15,i),"'","")&"',"
			TopicTempStr = ",'"&Showtitle&"','"&postusername&"','"&Replace(Replace(SQL(9,i),"\","\\"),"'","\'")&"','"& SQL(15,i) &"',"
			TopicTempStr = Replace(Replace(Replace(Dvbbs.ChkBadWords(TopicTempStr),VbCrLf,"\n"),chr(13),""),chr(10),"")
			If SQL(16,i)=1 Then 
				TopicTempStr = Replace(TopicTempStr,"<!--","&lt;!--")
			Else
				TopicTempStr = Replace(TopicTempStr,"<","&lt;")
				TopicTempStr = Replace(TopicTempStr,">","&gt;")
			End If
			PostTime=Split(SQL(9,i),"$")(2)		'最后跟帖时间
			Response.Write "document.write (dvbbs_topic_list(TempStr,'"
			Response.Write SQL(0,i)
			Response.Write "','"
			Response.Write SQL(1,i)
			Response.Write "'"
			Response.Write TopicTempStr
			Response.Write "'"
			Response.Write SQL(4,i)
			Response.Write "','"
			Response.Write SQL(5,i)
			Response.Write "','"
			Response.Write SQL(6,i)
			Response.Write "','"
			Response.Write SQL(7,i)
			Response.Write "','"
			Response.Write SQL(8,i)
			Response.Write "','"
			Response.Write SQL(10,i)
			Response.Write "','"
			Response.Write SQL(11,i)
			Response.Write "','"
			Response.Write SQL(12,i)
			Response.Write "','"
			Response.Write SQL(13,i)
			Response.Write "','"
12 下一页
💿 文件大小 6173 K
👤 上传用户 Butterflies
📂 所属分类源码/资料
🏷️ 相关标签

#bbs
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -