list_show.asp

动网论坛源代码

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<%
If Dvbbs.BoardID = 0 Then
	Response.Write "参数错误"
	Response.End 
End If
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 Page
Dim action
Dim TopicNum,n,SplitPageNum
Dim Forum_AllTopNum
Forum_AllTopNum = 0
action=Request("action")
If Not(Dvbbs.boardmaster or Dvbbs.master or Dvbbs.superboardmaster) Then action=""
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=?boardid="&Dvbbs.boardid&"&topicmode="&iii+1&">["
		BoardTopicMode_a=BoardTopicMode_a+"<a href=?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 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
	TempStr=template.html(0)
	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 Cint(Dvbbs.Board_Setting(3))=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=""
End Function

Function Show_List_TopTopic()
	
	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)
	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
	Dim tmpstr
	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)
			tmpstr=template.html(15)
			postusername=SQL(3,i)
			postusername=Dvbbs.htmlEncode(postusername)
			tmpstr=Replace(tmpstr,"{$userid}",SQL(4,i))
			tmpstr=Replace(tmpstr,"{$username}",postusername)
			tmpstr=Replace(tmpstr,"{$boardid}",SQL(1,i))
			Showtitle=SQL(2,i)
			Showtitle=killhtml(Showtitle)
			Showtitle=Dvbbs.htmlEncode(Showtitle)
			tmpstr=Replace(tmpstr,"{$topic}",Showtitle)
			tmpstr=Replace(tmpstr,"{$linkinfo}","&ID="&SQL(0,i)&"&page="&page&"")
			tmpstr=Replace(tmpstr,"{$lastposttime}",SQL(10,i))
			tmpstr=Replace(tmpstr,"{$hits}",SQL(7,i))
			tmpstr=Replace(tmpstr,"{$child}",SQL(6,i))
			If CLng(SQL(11,i))=2 Then 
				tmpstr=Replace(tmpstr,"{$stats}","区固")
			Else
				tmpstr=Replace(tmpstr,"{$stats}","总固")
			End If
			Response.Write tmpstr		
			Forum_AllTopNum = Forum_AllTopNum + 1
		Next
		SQL=Null
		End If
		Rs.Close
		Set Rs=Nothing
	Else
		Forum_AllTopNum = 0
	End If
End Function

Function Show_List_Topic()
	Dim Cmd,limitime,SQL,Rs,i,TempStr,ti,TopicTempStr,tmpstr
	If IsSqlDataBase=1 And IsBuss=1 Then
		Set Cmd = Server.CreateObject("ADODB.Command")
		Set Cmd.ActiveConnection=conn
		Cmd.CommandText="dv_list"
		Cmd.CommandType=4
		Cmd.Parameters.Append cmd.CreateParameter("@boardid",3)
		Cmd.Parameters.Append cmd.CreateParameter("@pagenow",3)
		Cmd.Parameters.Append cmd.CreateParameter("@pagesize",3)
		Cmd.Parameters.Append cmd.CreateParameter("@tl",3)
		Cmd.Parameters.Append cmd.CreateParameter("@topicmode",3)
		Cmd.Parameters.Append cmd.CreateParameter("@totalrec",3,2)
		Cmd("@boardid")=Dvbbs.BoardID
		Cmd("@pagenow")=page
		Cmd("@pagesize")=Cint(Dvbbs.Board_Setting(26))
		Cmd("@topicmode")=TopicMode
		If limitime="" Then
			Cmd("@tl")=0
		Else