[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
Dim BoardHide
'=========================================================
' File: dispbbs.asp
' Version:6.1.0
' Date: 2003-7-13
' Script Written by satan
'=========================================================
' Copyright (C) 2001,2003 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: info@aspsky.net,eway@aspsky.net
'=========================================================
Dvbbs.Stats="论坛首页"
Dvbbs.Myaction="进入论坛"
Dvbbs.Nav
Dvbbs_Index_Top
Dvbbs.ActiveOnline
Dvbbs.ScriptStart()
Response.Write "Dvbbs.userip='"
Response.Write Dvbbs.UserTrueIP
Response.Write "';"
GetBbsList()
GetBbsLink()
GetOnlineNum()
Index_Group_List
Response.Write "showbbslist();"
Response.Write "showbbslink();"
Response.Write "showuserinfo();"
Response.Write "isindex=true;"
Dvbbs.ScriptEnd()
Dvbbs.Footer
Function Dvbbs_Index_Top
	Dim Maxonline,LastPostTime,SQL,RS,TmpStr
	Dvbbs.ScriptSrc(Dvbbs.Templateurl&"js/Dvindex.js")
	Dvbbs.ScriptStart()
	If Dvbbs.Forum_CacheSetting(0) > 0 And Dvbbs.Forum_CacheSetting(1)=1 Then
		myCache.name="Dvbbs_announcements" & Dvbbs.BoardID
		If myCache.valid Then
			Response.Write "Dvbbs.News='" & myCache.value & "';"
			Response.Write "dvbbs_index_top();"
			Dvbbs.ScriptEnd()
			Exit Function
		End If
	End If
	sql="select top 1 title,addtime from bbsnews where boardid=0 order by id desc"
	Set Rs=conn.Execute(sql)
	If rs.bof and rs.eof Then
		TmpStr="当前没有公告|||("& now() &")"
		Response.Write "Dvbbs.News='"
		Response.Write TmpStr	
		Response.Write "';"					
	Else	
		TmpStr=Dvbbs.SimEncodeJs(rs(0)) &"|||("& rs(1) &")"
		Response.Write "Dvbbs.News='"
		Response.Write TmpStr	
		Response.Write "';"
	End If
	If Dvbbs.Forum_CacheSetting(0) > 0 And Dvbbs.Forum_CacheSetting(1)=1 Then
		myCache.add TmpStr,dateadd("D",Dvbbs.Forum_CacheSetting(0),Date()) 
	End If
	Set Rs=Nothing
	Response.Write "dvbbs_index_top();"
	Dvbbs.ScriptEnd()
End Function

Sub GetBbsLink()
	Dim Rs,SQl
	Dim TmpStr
	If Dvbbs.Forum_CacheSetting(0) > 0 And Dvbbs.Forum_CacheSetting(1)=1 Then
		myCache.name="Dvbbs_ForumLink"
		If myCache.valid Then
			Response.Write "Dvbbs.GetForumLink='" & myCache.value & "';"
			Exit Sub
		End If
	End If
	SQL="select boardname,readme,url,logo,islogo from bbslink order by id"'Order by islogo desc,id
	Set Rs=conn.Execute(SQL)
	If Not rs.eof Then
		TmpStr=rs.GetString (,,"!@#%|","$?&!@","")
		Response.Write "Dvbbs.GetForumLink='" & Dvbbs.SimEncodeJs(TmpStr) & "';"
		If Dvbbs.Forum_CacheSetting(0) > 0 And Dvbbs.Forum_CacheSetting(1)=1 Then
			myCache.add Dvbbs.SimEncodeJs(TmpStr),dateadd("D",Dvbbs.Forum_CacheSetting(0),Date()) 
		End If
	Else
		Response.Write "Dvbbs.GetForumLink='';"
	End If
	Rs.Close
	Set Rs=Nothing
End Sub
Sub GetOnlineNum()
	If CInt(Dvbbs.Forum_Setting(15))=0 And  CInt(Dvbbs.Forum_Setting(14))=0 Then
		Response.Write "Dvbbs.guestnum="
		Response.Write Dvbbs.Guest
		Response.Write ";"
		Response.Write "Dvbbs.onlinenum="
		Response.Write Dvbbs.online
		Response.Write ";"
		Response.Write "Dvbbs.allonline="				
		Response.Write Dvbbs.AllOnline		
		Response.Write ";"	
	End If
End Sub

Function LoadHideBBS()
	LoadHideBBS=True
	If CInt(BoardHide)=1  And CInt(Dvbbs.GroupSetting(37))<>1 Then
		LoadHideBBS=False
	End If
End Function

Sub GetBbsList()
	Dim Rs,Sql,TmpStr
	Dim i,l,k,t,isshow,Board_Setting
	Dim BoardListAll,BoardListNum,myBoardID
	MyCache.name="DvbbsBoardListAll"
	If myCache.valid Then
		If isArray(myCache.value)=True Then
			BoardListAll=myCache.value
		Else
			ReloadBoardListAll
			BoardListAll=myCache.value
		End If
	Else
		ReloadBoardListAll
		BoardListAll=myCache.value
	End If
	If not myCache.valid Then Exit Sub
	BoardListNum=Ubound(BoardListAll,2)
	l=-1
	For i=0 To BoardListNum
		If BoardListAll(2,i)<=CInt(Dvbbs.Forum_Setting(5)) Then
		myBoardID=BoardListAll(0,i)
		MyCache.name="DvbbsBoardInfo" & myBoardID
		If myCache.valid Then
			If isArray(myCache.value)=True Then
				Rs=myCache.value
			Else
				ReloadBoardInfo(myBoardID)
				Rs=myCache.value
			End If
		Else
			ReloadBoardInfo(myBoardID)
			Rs=myCache.value
		End If

		If Rs(0,0)=0  Then
			l=l+1
			k=0
			Response.Write "Dvbbs.list["&l&"]=new bbslist("""
			Response.Write rs(2,0)
			Response.Write """);"
			Response.Write vbnewline
			Response.Write "Dvbbs.list["&l&"].cid='" & Rs(1,0) & "';"
			Response.Write "Dvbbs.list["&l&"].board_setting='" & Split(Rs(11,0),",")(41) & "';"
			Select Case request.cookies("List")("list"&l)
			Case "0"
				Response.Write "Dvbbs.list["
				Response.Write l
				Response.Write "].IsShow='0';"
				Response.Write chr(10)	
			Case ""	
				Board_Setting=Split(Rs(11,0),",")
				isshow=Board_Setting(39)
				If CInt(isshow)=0 Then
					Board_Setting=1
				Else
					Board_Setting=0
				End If
				Response.Write "Dvbbs.list["
				Response.Write l
				Response.Write "].IsShow='"
				Response.Write Board_Setting		
				Response.Write "';"
				Response.Write chr(10)
			Case "1"
				Response.Write "Dvbbs.list["
				Response.Write l
				Response.Write "].IsShow='1';"
				Response.Write chr(10)
			End Select
			
		Else
			BoardHide=Split(Rs(11,0),",")(1)
			If LoadHideBBS Then
				tmpstr=rs(3,0)
				tmpstr=Split(tmpstr,"$")
				t=tmpstr(2)
				If IsDate(t) Then
					t=datediff("h",Dvbbs.Lastlogin,t) 
				Else
					t=1
				End If
				If t<>0 Then t=1
				Response.Write "Dvbbs.list["&l&"].HaveNew["& k &"]=" & t & ";"
				Response.Write "Dvbbs.list["&l&"].boardid["& k &"]='" & rs(1,0) & "';"
				Response.Write "Dvbbs.list["&l&"].BoardType["& k &"]='" & rs(2,0) & "';"
				Response.Write "Dvbbs.list["&l&"].LastPost["& k &"]='" & rs(3,0) & "';"
				Response.Write "Dvbbs.list["&l&"].readme["& k &"]='" & rs(4,0) & "';"
				Response.Write "Dvbbs.list["&l&"].BoardMaster["& k &"]='" & rs(5,0) & "';"
				Response.Write "Dvbbs.list["&l&"].lastbbsnum["& k &"]='" & rs(6,0) & "';"
				Response.Write "Dvbbs.list["&l&"].lasttopicnum["& k &"]='" & rs(7,0) & "';"
				Response.Write "Dvbbs.list["&l&"].indexIMG["& k &"]='" & rs(8,0) & "';"
				Response.Write "Dvbbs.list["&l&"].todayNum["& k &"]='" & rs(9,0) & "';"
				Response.Write "Dvbbs.list["&l&"].Child["& k &"]='" & rs(10,0) & "';"
				Response.Write "Dvbbs.list["&l&"].Board_Setting["& k &"]='" & rs(11,0) & "';"
				k=k+1
			End If
		End If
		End If
	Next
End Sub

Function Index_Group_List()
	Dim GroupList,i,GroupListID,k
	MyCache.name="DvbbsGropuSettingAll"
	If Not myCache.valid Then ReloadGroupSettingAll
	GroupList=myCache.value
	k=0
	For i=0 to Ubound(GroupList,2)
		If GroupList(4,i)=1 Then
			Response.Write "Dvbbs.GroupList["&k&"]='<img src="&GroupList(2,i)&" alt="&GroupList(1,i)&" > "&GroupList(1,i)&"';"
			k=k+1
			If k=2 and Dvbbs.Forum_ChanSetting(0)=1 Then
			Response.Write "Dvbbs.GroupList["&k&"]='<img src='+Dvbbs.Forum_Info[7]+Dvbbs.Forum_pic[0]+' alt=阳光会员  > 阳光会员';"
			k=k+1
			End If
		End If
	Next
	Response.Write "Dvbbs.GroupListNum="&k&";"
End Function
%>