?? dispbbs.asp
字號:
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}"," <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,";",";")
TempStr=Replace(TempStr,"'","'")
TempStr=Replace(TempStr,".",".")
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,"$","$")
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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -