index.asp

前台及后台用户名密码都是：gz35gz35.com

			PostTime = Split(DataArray(9,i),"$")(2)		'最后跟帖时间
		Else
			PostTime = DataArray(5,i)		'帖子发表时间
		End If

		Set Cnode=ListNodeObject.cloneNode(True)
		Cnode.attributes.getNamedItem("title").Text=Dvbbs.ChkBadWords(DataArray(2,i)&"")
		Cnode.attributes.getNamedItem("istop").text=DataArray(11,i)
		Cnode.attributes.getNamedItem("isvote").text=DataArray(12,i)
		Cnode.attributes.getNamedItem("isbest").text=DataArray(13,i)
		Cnode.attributes.getNamedItem("locktopic").text=DataArray(14,i)
		Cnode.attributes.getNamedItem("child").text=DataArray(6,i)
		Cnode.attributes.getNamedItem("hits").text=DataArray(7,i)
		Cnode.attributes.getNamedItem("postusername").text=Dvbbs.ChkBadWords(DataArray(3,i))
		Cnode.attributes.getNamedItem("postuserid").text=DataArray(4,i)
		Cnode.attributes.getNamedItem("boardid").text=DataArray(1,i)
		Cnode.attributes.getNamedItem("TopicID").text=DataArray(0,i)
		Cnode.attributes.getNamedItem("IsSmsTopic").text=DataArray(21,i)
		Cnode.attributes.getNamedItem("dateandtime").text=DataArray(5,i)
		Cnode.attributes.getNamedItem("Expression").text=Expression(UBound(Expression))
		If UBound(Expression)>0 Then
			Cnode.attributes.getNamedItem("topicmagicface").text=Expression(0)
		End If
		Cnode.attributes.getNamedItem("TopicMode").text=DataArray(16,i)
		Cnode.attributes.getNamedItem("votetotal").text=DataArray(8,i)
		Cnode.attributes.getNamedItem("DateDiffTime").text=DateDiff("n",Posttime,Now)+Cint(Dvbbs.Forum_Setting(0))
		'专题
		If TopicMode=0 and BoardTopicMode_a <> "" Then
			If DataArray(17,i) - 1 >= 0  And Dvbbs.BoardID = DataArray(1,i) Then
				Cnode.attributes.getNamedItem("Mode").text=Board_TopicModeStr(DataArray(17,i)-1)
			End If
		End If
		Cnode.attributes.getNamedItem("LastPostUser").text=LastPostInfo(0)
		Cnode.attributes.getNamedItem("LastPostID").text=LastPostInfo(1)
		Cnode.attributes.getNamedItem("LastPostTime").text=LastPostInfo(2)
		Cnode.attributes.getNamedItem("LastPostBody").text=LastPostInfo(3)
		Cnode.attributes.getNamedItem("LastPostPic").text=LastPostInfo(4)
		Cnode.attributes.getNamedItem("LastPostUserID").text=LastPostInfo(5)
		Cnode.attributes.getNamedItem("GetMoney").text=DataArray(18,i)&""
		Cnode.attributes.getNamedItem("GetMoneyType").text=DataArray(19,i)&""
		If Dvbbs.Forum_Setting(90)="1" Then
			If DataArray(20,i) = "" or IsNull(DataArray(20,i)) Then
				UseTools = "0"
			Else
				UseTools = Split(DataArray(20,i),",")(0)
				If Not IsNumeric(UseTools) Then UseTools = 0
			End If
			Cnode.attributes.getNamedItem("UseTools").text=UseTools
		End If
		XMLDOM.documentElement.appendChild(Cnode)
		'固顶帖子数量
		If MyIsTop = 1 Then
			If TopicMode>0 Then
				If DataArray(1,i)=Dvbbs.BoardID And DataArray(17,i)=TopicMode Then Forum_AllTopNum=Forum_AllTopNum+1
			Else
				If DataArray(1,i)=Dvbbs.BoardID Then Forum_AllTopNum=Forum_AllTopNum+1
			End If
		End If
	Next
	Set Cnode=Nothing
End Sub
Sub Show_Index_Main()
	Dim TempArray
	Dvbbs.Stats=template.Strings(0)
	Dvbbs.Nav()
	GetForumTextAd(0)
	Dvbbs.ActiveOnline()
	TempArray = Split(template.html(3),"||")
	Show_Index_Top
	Show_Index_BoardList
	If Dvbbs.Forum_setting(29)="1" Then Show_Index_BirthUser()
	If Dvbbs.Forum_ads(2)="1" or Dvbbs.Forum_ads(13)="1"  Then Response.Write "<script language=""javascript"" src=""inc/Dv_Adv.js""></script>"
	Show_Index_Footer
End Sub
Sub Show_Index_Main1()
	Dim TempArray
	Dvbbs.Stats=template.Strings(0)
	Dvbbs.Nav()
	GetForumTextAd(0)
	Dvbbs.ActiveOnline()
	TempArray = Split(template.html(3),"||")
	Show_Index_Top
	If Dvbbs.Forum_setting(29)="1" Then Show_Index_BirthUser()
	show_index_link()
	show_index_footer

End Sub
Sub Show_Index_Top
	Dim newsstr,TempStr,TopArray
	Dvbbs.Name="news"&Dvbbs.BoardID
	newsstr = Split(Dvbbs.Value,"|||")
	If newsstr(1)="" Or Not IsDate(newsstr(1)) Then newsstr(1)=Now()
	TempStr = template.html(0)
	TopArray = Split(template.html(2),"||")
	Dim tmpdata,nexhour
	If Dvbbs.Forum_Setting(69)="1" Then
		tmpdata=Split(Dvbbs.Forum_Setting(70),"|")
		nexhour=Hour(Now())+1
		nexhour=nexhour mod 24
		If tmpdata(nexhour)="0" And Minute(now())>40 Then newsstr(1)=newsstr(1)&Replace(template.Strings(11),"{$LeaveTime}",(60-Minute(now())))
	End If
	TempStr=Replace(TempStr,"{$news}",newsstr(0))
	TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
	TempStr=Replace(TempStr,"{$lastUser}",Dvbbs.CacheData(14,0))
	If Dvbbs.UserID=0 Then
		TempStr=Replace(TempStr,"{$myinfo}",Replace(TopArray(0),"{$forumname}",Dvbbs.Forum_Info(0)))
		If Dvbbs.Forum_ChanSetting(0)="1" Then TempStr=Replace(TempStr,"{$isray}",TopArray(1))
		TempStr=Replace(TempStr,"{$isray}","")
		If Dvbbs.forum_setting(79)="0" Then
			TempStr=Replace(TempStr,"{$getcode}","")
		Else
			TempStr=Replace(TempStr,"{$getcode}",template.Strings(12)&Dvbbs.GetCode())
		End If
	Else
		TopArray = Split(Dvbbs.mainhtml(12),"||")
		Dim UserMsg
		If Clng(Dvbbs.SendMsgNum)>0 Then
			UserMsg = TopArray(0)
			If Dvbbs.Forum_Setting(10)="1" Then
				UserMsg = UserMsg & TopArray(1) & TopArray(2)
			Else
				UserMsg = UserMsg & TopArray(2)
			End If
			UserMsg = Replace(UserMsg,"{$smsid}",Dvbbs.sendmsgid)
			UserMsg = Replace(UserMsg,"{$sender}",Dvbbs.sendmsguser)
			UserMsg = Replace(UserMsg,"{$newmsgnum}",Dvbbs.sendmsgnum)
		Else
			UserMsg = TopArray(3)
		End If
		Dim i,UserGroupList,iGroupName
		If Dvbbs.UserGroupParent = 4 Then
			UserMsg = UserMsg & TopArray(4)
			For i = 0 To Ubound(Dvbbs.UserGroupParentID)
				Dvbbs.Name = "GroupSetting_" & Dvbbs.UserGroupParentID(i)
				iGroupName = Split(Dvbbs.value,"§§§")(3)
				If i = 0 Then
					UserGroupList = "<a href=cookies.asp?action=ReGroup&GroupID="&Dvbbs.UserGroupParentID(i)&">"&iGroupName&"</a><BR>"
				Else
					UserGroupList = UserGroupList & "<a href=cookies.asp?action=ReGroup&GroupID="&Dvbbs.UserGroupParentID(i)&">"&iGroupName&"</a>"
				End If
			Next
			UserMsg = Replace(UserMsg,"{$UserGroupList}",UserGroupList)
		ElseIf Cint(Dvbbs.MyUserInfo(42)) > 0 Then
			UserMsg = UserMsg & TopArray(4)
			Dvbbs.Name = "GroupSetting_" & Dvbbs.MyUserInfo(42)
			iGroupName = Split(Dvbbs.value,"§§§")(3)
			UserGroupList = "<a href=cookies.asp?action=ReGroup&GroupID="&Dvbbs.MyUserInfo(43)&">"&iGroupName&"</a><BR>"
			UserMsg = Replace(UserMsg,"{$UserGroupList}",UserGroupList)
		End If
		If Dvbbs.Forum_Setting(43)="1" Then
			UserMsg = Dvbbs.lanstr(10) & UserMsg
		End If
		template.html(1) = Replace(template.html(1),"{$umsg}",UserMsg)
		TempStr=Replace(TempStr,"{$myinfo}",template.html(1))
		TempStr=Replace(TempStr,"{$UserID}",Dvbbs.Userid)
		TempStr=Replace(TempStr,"username",Dvbbs.Membername)
		If IsNumeric(Dvbbs.MyUserInfo(12)) And IsNumeric(Dvbbs.MyUserInfo(13)) And Dvbbs.MyUserInfo(13)<>"" And Dvbbs.MyUserInfo(12)<>"" Then
			If Clng(Dvbbs.MyUserInfo(13))=Clng(Dvbbs.Forum_Setting(39)) And Clng(Dvbbs.MyUserInfo(12))=Clng(Dvbbs.Forum_Setting(38)) Then
			TempStr=Replace(TempStr,"{$userlogo}","<img src="&Dvbbs.MyUserInfo(11)&">")
			Else
			TempStr=Replace(TempStr,"{$userlogo}","<img src="&Dvbbs.MyUserInfo(11)&" width=60 height=60>")
			End If
		Else
			TempStr=Replace(TempStr,"{$userlogo}","<img src=images/logo_2.gif>")
		End If
	End If
	If Dvbbs.Forum_ChanSetting(2)="0" Or Dvbbs.Forum_ChanSetting(1)="1" Then
		TempStr=Replace(TempStr,"{$xmlandwap}",Split(Dvbbs.mainhtml(19),"||")(0))
		If Dvbbs.Forum_ChanSetting(2)="0" Then
			TempStr=Replace(TempStr,"{$isxml}",Split(Dvbbs.mainhtml(19),"||")(1))
			TempStr=Replace(TempStr,"{$isboard}","")
		Else
			TempStr=Replace(TempStr,"{$isxml}","")
		End If
		If Dvbbs.Forum_ChanSetting(1)="1" Then
			TempStr=Replace(TempStr,"{$iswap}",Split(Dvbbs.mainhtml(19),"||")(2))
		Else
			TempStr=Replace(TempStr,"{$iswap}","")
		End If
	Else
		TempStr=Replace(TempStr,"{$xmlandwap}","")
	End If
	Response.Write Chr(10) & Replace(TempStr,"{$boardid}",Dvbbs.Boardid)
	Response.Write Chr(10) & "<SCRIPT LANGUAGE=""JavaScript"">" & Chr(10)
	Response.Write "<!--" & Chr(10)
	Response.Write Chr(9) & "var config = new Object();" & Chr(10)
	Response.Write Chr(9) & "config.Index_Top_Value = ["""&newsstr(1)&""","""&Dvbbs.CacheData(10,0)&""","""&Dvbbs.CacheData(7,0)&""","""&Dvbbs.CacheData(8,0)&""","""&Dvbbs.CacheData(9,0)&""","""&Dvbbs.CacheData(11,0)&""","""&Dvbbs.CacheData(12,0)&""","""&Dvbbs.CacheData(13,0)&"""];" & Chr(10)
	Response.Write Chr(9) & "var sa = [""Index_Top""]" & Chr(10)
	Response.Write Chr(9) & "BoardData(sa,config)" & Chr(10)
	Response.Write "//-->" & Chr(10)
	Response.Write "</SCRIPT>" & Chr(10)
End Sub
Sub Show_Index_BoardList()
	Dim Node,Nodelist,Newnode,Board_Data,LastPost,i,HaveNew,Forum_Boards,CNode,Setings,ShowMod
	If Dvbbs.BoardID=0 Then
		Set XMLDOM=Application(Dvbbs.CacheName&"_Boradlist").cloneNode(True)
		XMLDOM.validateOnParse = False
		XMLDOM.resolveExternals = False
		'XMLDOM.preserveWhiteSpace = False
		XMLDOM.documentElement.attributes.getNamedItem("boardid").text=Dvbbs.BoardID
	Else
		Set XMLDOM=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
		XMLDOM.validateOnParse = False
		XMLDOM.resolveExternals = False
		'XMLDOM.preserveWhiteSpace = False
		XMLDOM.appendChild(XMLDOM.createElement("BoardList"))
		XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"boardid","")).text=Dvbbs.BoardID
		Set Node=Dvbbs.BoardNode.cloneNode(True)
		XMLDOM.documentElement.appendChild(Node)
		'计算下级论坛发贴总数
		Set Nodelist=Dvbbs.BoardNode.selectnodes("board")
		For Each Node in nodelist
			If node.attributes.getNamedItem("boardid").text<>CStr(Dvbbs.BoardID) Then
				ChildTopicNum = ChildTopicNum + Clng(node.attributes.getNamedItem("topicnum").text)
			End If
		Next
	End If
	'插入对应风格的图片路径 by Dv.ADRX
	XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"picurl","")).text=Dvbbs.Forum_PicUrl
	If Dvbbs.GroupSetting(37)="0" Then'去掉隐藏论坛
		For each node in XMLDOM.documentElement.getElementsByTagName("board")
			If node.attributes.getNamedItem("hidden").text="1" Then
				node.parentNode.removeChild(node)
			End If
		Next
	End If
	Set Nodelist=XMLDOM.documentElement.selectnodes("board")
	For Each Node in nodelist
		ShowMod=Request.Cookies("List")("list"&node.attributes.getNamedItem("boardid").text)
		If ShowMod<>"" And IsNumeric(ShowMod)Then
			node.attributes.getNamedItem("mode").text=ShowMod
		End If		
	Next
	Set Nodelist=XMLDOM.documentElement.selectnodes("board/board")
	For Each Node in nodelist
		LastPost=node.attributes.getNamedItem("lastpost2").text
		If Not IsDate(LastPost) Then LastPost=Now()
		If DateDiff("h",Dvbbs.Lastlogin,LastPost)=0 Then
			node.attributes.getNamedItem("hasnew").text=1
		End If
	Next

	Set XSLT =Application(Dvbbs.CacheName&"_indextemplate_"&Dvbbs.SkinID)
	Dim proc
	Set proc = XSLT.createProcessor()
	proc.input = XMLDOM
    	proc.transform()
    	Response.Write  proc.output
	Set XmlDom=Nothing
	Set XMLStyle=Nothing
	Set XSLT=Nothing
End Sub
Sub Show_index_d5j()
dim FoundUser,n,m,s,rs,i
dim menu(2,10)
dim boardmenu(20,20)
n=-1
m=0
s=-1
Set Rs=Dvbbs.Execute("select boardid,boardType,depth,child from dv_board where depth<=1 order by rootid,orders")
if not rs.eof then
	do while Not rs.Eof
	if rs(2)=0 then
	n=n+1
	m=0
	else
	m=m+1
	end if
	boardmenu(n,m)="<a href=index.asp?boardid="&rs(0)&" target=window_main>"&rs(1)&"</a>"
	rs.MoveNext
	Loop
end if
set rs=nothing

	dim j
	dim tmpmenu
	dim menuname