list.asp

品泡女人香XI8.NET文章管理系统的源码

<!--#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 Dvbbs.Board_Setting(43)="0" Then
	Call News
	Call Board_Online
	Call Show_List_Top
	Call Show_List_TopTopic
	Call Show_List_Topic
	Call 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"">"
	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 "</script>"
End Function

Function Show_List_TopTopic()
With 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
	.Write Replace(Replace(template.html(11),"{$ShowNewPic}",Dvbbs.Board_Setting(60)),"{$IcoLimMinute}",Dvbbs.Board_Setting(61))
	.Write "var TempStr='"&Replace(Replace(Replace(Replace(ListMainTemplate,"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	.Write "var TempStr_Page='"&Replace(Replace(Replace(Replace(template.html(7),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	.Write "var TempStr_topicinfo='"&Replace(Replace(Replace(Replace(template.html(8),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	.Write "var TempStr_load='"&Replace(Replace(Replace(Replace(template.html(9),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	.Write "var topicpage='"&Dvbbs.Forum_Setting(44)&"';"
	.Write "var alertcolor='"&Dvbbs.mainsetting(1)&"';"
	.Write "var ztopic='"&Dvbbs.mainpic(0)&"';"
	.Write "var istopic='"&Dvbbs.mainpic(1)&"';"
	.Write "var opentopic='"&Dvbbs.mainpic(2)&"';"
	.Write "var hottopic='"&Dvbbs.mainpic(3)&"';"
	.Write "var ilocktopic='"&Dvbbs.mainpic(4)&"';"
	.Write "var besttopic='"&Dvbbs.mainpic(5)&"';"
	.Write "var votetopic='"&Dvbbs.mainpic(6)&"';"
	.Write "var picnofollow='"&Dvbbs.mainpic(10)&"';"
	.Write "var picfollow='"&Dvbbs.mainpic(11)&"';"
	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)
	.Write "var TopicNum='"&TopicNum&"';"
	.Write "var page='"&page&"';"
	.Write "var Board_Setting26='"&SplitPageNum&"';"
	.Write "var Board_Setting27='"&Dvbbs.Board_Setting(27)&"';"
	.Write "var BoardTopicMode='"&BoardTopicMode_a&"';"
	.Write "var TopicLimByte='"&Dvbbs.Board_Setting(25)&"';"
	.Write "var MyAction='"&action&"';"
	.Write "var GroupSetting45='"&Dvbbs.GroupSetting(45)&"';"
	.Write "var ListTopicMode='"&TopicMode&"';"
	.Write "var TrueBoardID="&Dvbbs.BoardID&";"
	If TopicMode>0 Then .Write "var BoardTopicMode='';"
	.Write "</Script>"
	If Page=1 Then
		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)<>"" 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)
					.Write "<Script Language=JavaScript>"
					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 = ",'"&Showtitle&"','"&postusername&"','"&Replace(Replace(Replace(SQL(9,i),"\","\\"),"'","\'"),"<","&lt;")&"','"& 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
					If Dvbbs.Board_Setting(38) = "0" Then
						PostTime = Split(SQL(9,i),"$")(2)		'最后跟帖时间
					Else
						PostTime = SQL(5,i)		'帖子发表时间
					End If
					.Write "document.write (dvbbs_topic_list(TempStr,'"
					.Write SQL(0,i)
					.Write "','"
					.Write SQL(1,i)
					.Write "'"
					.Write TopicTempStr
					.Write "'"
					.Write SQL(4,i)
					.Write "','"
					.Write SQL(5,i)
					.Write "','"
					.Write SQL(6,i)
					.Write "','"
					.Write SQL(7,i)
					.Write "','"
					.Write SQL(8,i)
					.Write "','"
					.Write SQL(10,i)
					.Write "','"
					.Write SQL(11,i)
					.Write "','"
					.Write SQL(12,i)
					.Write "','"
					.Write SQL(13,i)
					.Write "','"
					.Write SQL(14,i)
					.Write "','"
					.Write SQL(16,i)
					.Write "','"
					.Write SQL(17,i)
					.Write "','"
					If IsDate(PostTime) Then
						.Write DateDiff("n",PostTime,now)+cint(Dvbbs.Forum_setting(0))
					End If
					.Write "'));"
					.Write "hiddentr('follow"
					.Write SQL(0,i)
					.Write "');"
					.Write "</Script>"