dispbbs.asp

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

			node.attributes.setNamedItem(Cnode)
			Set CNode = XMLDOM.createNode(2,"oicq","")
			Cnode.text=UserIM(1)
			node.attributes.setNamedItem(Cnode)
			Set CNode = XMLDOM.createNode(2,"uc","")
			Cnode.text=UserIM(6)
			node.attributes.setNamedItem(Cnode)
			If Not (node.attributes.getNamedItem("isagree") is Nothing) Then
			isagree=Split(node.attributes.getNamedItem("isagree").text,"|")
			If UBound(isagree)>0 Then
				Set CNode = XMLDOM.createNode(2,"iAgree","")
				Cnode.text=isagree(1)
				node.attributes.setNamedItem(Cnode)
				node.attributes.getNamedItem("isagree").text=isagree(0)
			End If
			End If
			Set CNode = XMLDOM.createNode(2,"usernameencode","")
			Cnode.text=Server.urlencode(node.attributes.getNamedItem("UserName").text)
			node.attributes.setNamedItem(Cnode)
			'更新UserHidden,最后登录时候超过删除在线时间间隔的设置为1		
			If IsDate(Rs("LastLogin")) Then
				If DateDiff("s",Rs("LastLogin"),Now())>(cCur(dvbbs.Forum_Setting(8))*60) Then
					node.attributes.getNamedItem("UserHidden").text="1"
				End If
			Else
				node.attributes.getNamedItem("UserHidden").text="1"
			End If
			'========随机广告节点
			Set CNode = XMLDOM.createNode(2,"ads","")
			Cnode.text=Topic_Ads()
			node.attributes.setNamedItem(Cnode)
			Rs.MoveNext
			
		Next
		Set Rs=Nothing
		'===============settings论坛设置节点==============
		Set Node = XMLDOM.createNode(1,"settings","")
		documentElement.appendChild(node)
		'======================几个用户组名字颜色====================
		Set CNode = XMLDOM.createNode(2,"namestyle9","")
		Cnode.text=Dvbbs.mainsetting(9)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"namestyle7","")
		Cnode.text=Dvbbs.mainsetting(7)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"namestyle11","")
		Cnode.text=Dvbbs.mainsetting(11)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"namestyle5","")
		Cnode.text=Dvbbs.mainsetting(5)
		node.attributes.setNamedItem(Cnode)
		'===============插入对应风格的图片路径 by Dv.ADRX==============
		Set CNode = XMLDOM.createNode(2,"picurl","")
		Cnode.text=Dvbbs.Forum_PicUrl
		node.attributes.setNamedItem(Cnode)
		'===============================
		Set CNode = XMLDOM.createNode(2,"usetools","")'是否使用道具
		Cnode.text=Dvbbs.Forum_Setting(90)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"useray","")'是否开启阳光服务
		Cnode.text=Dvbbs.Forum_ChanSetting(0)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"fontsize","")'字体大小设置
		Cnode.text=Dvbbs.Board_setting(28)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"lineheight","")'行距设置
		Cnode.text=Dvbbs.Board_setting(29)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"posttable","")'数据表
		Cnode.text=TotalUseTable
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"PageSize","")'每页显示多少贴
		Cnode.text=TopicPageList
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"tablewidth","")'表格宽度
		Cnode.text=Dvbbs.mainsetting(0)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"altercolor","")'表格宽度
		Cnode.text=Dvbbs.mainsetting(1)
		node.attributes.setNamedItem(Cnode)
		'============postinfo 贴子信息节点======================
		Set Node = XMLDOM.createNode(1,"postinfo","")
		documentElement.appendChild(node)
		Set CNode = XMLDOM.createNode(2,"star","")
		Cnode.text=star
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"skin","")
		Cnode.text=Skin
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"page","")
		Cnode.text=Page
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"boardtype","")
		Cnode.text=Dvbbs.boardtype
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"topiccount","")
		Cnode.text=TopicCount
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"boardid","")
		Cnode.text=Dvbbs.boardid
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"replyid","")
		Cnode.text=replyid
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"AnnounceID","")
		Cnode.text=AnnounceID
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"magicfaceid","")
		Cnode.text=FoundUseMagic
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"getmoneytype","")
		Cnode.text=T_GetMoneyType
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"getmoney","")
		Cnode.text=T_GetMoney
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"TopicUseTools","")
		Cnode.text=T_UseTools & ""
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"PostUserName","")
		Cnode.text=Lcase(PostUserName)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"MemberName","")
		Cnode.text=Lcase(Dvbbs.Membername)
		node.attributes.setNamedItem(Cnode)
		'==================usersetings节点,浏览者的权限数据============
		Set Node = XMLDOM.createNode(1,"usersetings","")
		documentElement.appendChild(node)
		Set CNode = XMLDOM.createNode(2,"canreadbest","")
		Cnode.text=Dvbbs.GroupSetting(41)
		node.attributes.setNamedItem(Cnode)
		Set CNode = XMLDOM.createNode(2,"canlookip","")
		Cnode.text=Dvbbs.GroupSetting(30)
		node.attributes.setNamedItem(Cnode)
		Set Node = XMLDOM.createNode(1,"BoardList","")
		Node.text="if(this.options[this.selectedIndex].value!=''){location='index.asp?boardid='+this.options[this.selectedIndex].value;}"
		documentElement.appendChild(node)
		Dim xslt
		Set XSLT=Application(Dvbbs.CacheName&"_dispbbsemplate_"&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 If
End Sub

Function Show_Topic_FastRe()
	Dim TempStr
	Response.Write "<Script Language=JavaScript>"
	Response.Write "var Board_Setting5='"&Dvbbs.Board_Setting(5)&"';"
	Response.Write "var Board_Setting6='"&Dvbbs.Board_Setting(6)&"';"
	Response.Write "var Board_Setting7='"&Dvbbs.Board_Setting(7)&"';"
	Response.Write "var Board_Setting8='"&Dvbbs.Board_Setting(8)&"';"
	Response.Write "var Board_Setting9='"&Dvbbs.Board_Setting(9)&"';"
	Response.Write "var Board_Setting16='"&Dvbbs.Board_Setting(16)&"';"
	Response.Write "var Board_Setting44='"&Dvbbs.Board_Setting(44)&"';"
	Response.Write "var Forum_Setting3='"&Dvbbs.Forum_Setting(3)&"';"
	Response.Write "var Forum_PostFace='"&Dvbbs.Forum_PostFace&"';"
	Response.Write "var Forum_PostFace=Forum_PostFace.split(""|||"");"
	Response.Write "</Script>"
	TempStr = template.html(3)
	'TempStr = Replace(TempStr,"{$topic}",Topic)
	TempStr = Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	If Dvbbs.Board_Setting(4)="0" Then
		TempStr = Replace(TempStr,"{$getcode}","")
	Else
		TempStr = Replace(TempStr,"{$getcode}","&nbsp;<B>验证码：</B>"&Dvbbs.GetCode())
	End If
	If T_GetMoneyType = 2 and Not IsTopicUser Then
		TempStr = Replace(TempStr,"{$SendMoney}",template.html(16))
	Else
		TempStr = Replace(TempStr,"{$SendMoney}","")
	End If
	TempStr = Replace(TempStr,"{$membername}",Dvbbs.membername)
	TempStr = Replace(TempStr,"{$followup}",followup)
	TempStr = Replace(TempStr,"{$announceid}",AnnounceID)
	TempStr = Replace(TempStr,"{$star}",Star)
	TempStr = Replace(TempStr,"{$totalusetable}",TotalUseTable)
	TempStr = Replace(TempStr,"{$Forum_Emot}",Replace(Dvbbs.Forum_emot&"","|||","<><><>"))
	TempStr = Replace(TempStr,"{$MaxLength}",Clng(Dvbbs.Board_Setting(16)))
	Dim Dvbbs_Mode
	Dvbbs_Mode = Dvbbs.GroupSetting(67)
	If Dvbbs.Board_Setting(5) = "0" Then Dvbbs_Mode = 2
	TempStr = Replace(TempStr,"{$Dvbbs_Mode}",Dvbbs_Mode)
	Dim Content
	Content = Session(Dvbbs.CacheName & "UserID")
	If IsArray(Content) And Dvbbs.userID > 0 Then
		TempStr = Replace(TempStr,"{$content}",Server.HTMLEncode(Content(Dvbbs.UserInfoCount-1)))
	Else
		TempStr = Replace(TempStr,"{$content}","")
	End If 
	Response.Write TempStr
	TempStr = ""
	Response.Cookies("Dvbbs")=""
End Function

Function Show_Topic_ManageAction()
	Dim TempStr
	TempStr = template.html(4)
	If T_GetMoneyType = 1 Then
		TempStr = Replace(TempStr,"{$toolsm}","{$toolsm}" & template.Strings(23))
	End If
	If DVbbs.Forum_Setting(90)="1" and IsTopicUser Then
		TempStr = Replace(TempStr,"{$toolsm}",template.Strings(22))
	Else
		TempStr = Replace(TempStr,"{$toolsm}","")
	End If
	TempStr = Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
	TempStr = Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	TempStr = Replace(TempStr,"{$announceid}",AnnounceID)
	TempStr = Replace(TempStr,"{$replyid}",ReplyID)
	TempStr = Replace(TempStr,"{$PostTable}",TotalUseTable)
	If IsTop > 0 Then
		TempStr = Replace(TempStr,"{$topstr}",template.Strings(10))
	Else
		TempStr = Replace(TempStr,"{$topstr}",template.Strings(11))
	End If
	Response.Write TempStr
	TempStr = ""
End Function

Function Show_Topic_Vote()
	Dim TempStr,Rs,Trs
	Set Rs=Dvbbs.Execute("Select * From Dv_Vote Where VoteID="&PollID)
	If Not (Rs.Eof And Rs.Bof) Then
		TempStr=Rs("vote")
		TempStr=Replace(TempStr,";","&#59;")
		TempStr=Replace(TempStr,"'","&#39;")
		TempStr=Replace(TempStr,".","&#46;")
		Response.Write "<div style=""display:none;"" id=""vote"">"
		Response.Write TempStr
		Response.Write "</div>"
		Response.Write "<Script Language=JavaScript>"
		Response.Write "var vote=document.getElementById(""vote"").innerHTML;"
		Response.Write "var votenum='"&Rs("votenum")&"';"
		Response.Write "var votetype='"&Rs("votetype")&"';"
		Response.Write "var voters='"&Rs("voters")&"';"
		Response.Write "</Script>"
		TempStr = template.html(5)
		TempStr = Replace(TempStr,"{$topic}",Topic)
		TempStr = Replace(TempStr,"{$announceid}",AnnounceID)
		TempStr = Replace(TempStr,"{$votetype}",Rs("votetype"))
		If Dvbbs.UserID=0 Or datediff("d",rs("timeout"),Now())>0 Or locktopic=1 Then
			TempStr = Replace(TempStr,"{$uservoteinfo}",Split(template.html(6),"||")(0))
		Else
			Set Trs=Dvbbs.Execute("Select Count(*) From Dv_voteuser Where voteid="&PollID&" And userid="&Dvbbs.userid)
			If Trs(0)=0 Then 
				TempStr = Replace(TempStr,"{$uservoteinfo}",Split(template.html(6),"||")(1))
			Else
				TempStr = Replace(TempStr,"{$uservoteinfo}",Split(template.html(6),"||")(2))
			End If
			Set Trs=Nothing 
		End  If
		TempStr = Replace(TempStr,"{$timeout}",Rs("timeout"))
		TempStr = Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
		TempStr = Replace(TempStr,"{$voteid}",PollID)
		TempStr = Replace(TempStr,"{$uarticle}",Rs("UArticle")&"")
		TempStr = Replace(TempStr,"{$uep}",Rs("UEP")&"")
		TempStr = Replace(TempStr,"{$ucp}",Rs("UCP")&"")
		TempStr = Replace(TempStr,"{$upower}",Rs("UPower")&"")
		TempStr = Replace(TempStr,"{$umoney}",Rs("UWealth")&"")
		'Response.Write TempStr
		Show_Topic_Vote = TempStr
		TempStr = ""
	End If
	Set Rs=Nothing
End Function

Function SimJsReplace(str)
	If IsNull(str) Or str="" Then Exit Function
	str=Replace(str,"\","\\")
	str=Replace(str,"'","\'")
	str=Replace(str,"$","&#36;")
	SimJsReplace=str
End Function
Function Dvbbs_TopicMode(str,tmode)
	Select Case tmode
	Case "1"
		Dvbbs_TopicMode=str
	Case "2"
		Dvbbs_TopicMode="<font color=red>"&Dvbbs.Htmlencode(str)&"</font>"
	Case "3"
		Dvbbs_TopicMode="<font color=blue>"&Dvbbs.Htmlencode(str)&"</font>"
	Case "4"
		Dvbbs_TopicMode="<font color=green>"&Dvbbs.Htmlencode(str)&"</font>"
	Case Else
		Dvbbs_TopicMode=Dvbbs.HtmlEncode(str)
	End Select
End Function
Sub Showtree()
	template.html(7) = Replace(template.html(7),"{$boardid}",Dvbbs.BoardID)
	template.html(7) = Replace(template.html(7),"{$replyid}",ReplyID)
	template.html(7) = Replace(template.html(7),"{$announceid}",AnnounceID)
	template.html(7) = Replace(template.html(7),"{$openid}",followup)
	Response.Write template.html(7)
End Sub
Function AnnounceIDlist()
	Dim Rs,SQL,i,starcount
	starcount=(Star-1)*Dvbbs.Board_Setting(27)
	SQL="Select Announceid From "&TotalUseTable&" Where BoardID="&Dvbbs.BoardID&" And RootID="&Announceid&" Order By AnnounceID"
	Set Rs=Dvbbs.Execute(SQL)
	If Not Rs.Eof Then
		Rs.Move Starcount
		REM 修正最后页面出错信息 2004-5-22 Dv.Yz
		If Rs.Eof Then
			Dvbbs.AddErrcode(33)
			Dvbbs.Showerr()
		End If
		AnnounceIDlist = Rs(0)
		Rs.Movenext
		For i = 1 To Dvbbs.Board_Setting(27)-1
			If Rs.Eof Then Exit For
			AnnounceIDlist = AnnounceIDlist & "," & Rs(0)
			Rs.Movenext
		Next
	Else
		Dvbbs.AddErrcode(32)
		Dvbbs.Showerr()
	End If 
	Set Rs=Nothing
End Function
Function replacehtml(Str)
	Dim re,s
	S=Str
	Set re=new RegExp
	re.IgnoreCase =True
	re.Global=True
	re.Pattern="<(.[^>]*)>"
	s=re.Replace(s,"")
	Set Re=Nothing
	replacehtml=s
End Function
Function DoTest(Str)
	Dim s,re
	s=Str
	Set re=new RegExp
	re.IgnoreCase =True
	re.Global=True
	re.Pattern="(<[^<>]*?)(\s+[^<=>\s]*=)([^""\s<>""']+)(\s?.*>)"
	Do While re.Test(s)
		s=re.Replace(s,"$1$2""$3""$4")
	Loop
	DoTest=s
	Set Re=Nothing
End Function
%>