;''''单引号过滤
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
fString=ChkBadWords(fString)
HTMLEncode = fString
End If
End Function
''''用于论坛本身的过滤，不带脏话过滤
Public Function iHTMLEncode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
''''fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
iHTMLEncode = fString
End If
End Function
Public Function CheckNumeric(Byval CHECK_ID)
If CHECK_ID<>"" and IsNumeric(CHECK_ID) Then _
CHECK_ID = cCur(CHECK_ID) _
Else _
CHECK_ID = 0
CheckNumeric = CHECK_ID
End Function
Public Function strLength(str)
If isNull(str) Or Str = "" Then
StrLength = 0
Exit Function
End If
Dim WINNT_CHINESE
WINNT_CHINESE=(len("例子")=2)
If WINNT_CHINESE Then
Dim l,t,c
Dim i
l=len(str)
t=l
For i=1 To l
c=asc(mid(str,i,1))
If c<0 Then c=c+65536
If c>255 Then t=t+1
Next
strLength=t
Else
strLength=len(str)
End If
End Function
Public Function ChkBadWords(Str)
If IsNull(Str) Then Exit Function
Dim i
For i = 0 To UBound(BadWords)
If InStr(Str,BadWords(i))>0 Then
If i > UBound(rBadWord) Then
Str = Replace(Str,BadWords(i),"*")
Else
Str = Replace(Str,BadWords(i),rBadWord(i))
End If
End If
Next
ChkBadWords = Str
End Function
Public Function Checkstr(Str)
If Isnull(Str) Then
CheckStr = ""
Exit Function
End If
Str = Replace(Str,Chr(0),"")
CheckStr = Replace(Str,"''''","''''''''")
End Function Public Sub ReloadBoardInfo(lboardid)
NodeUpdate=True
''''Response.Write "ReloadBoardInfo="&lboardid &"<br>"
Dim Rs,Node,i,BoardPath,BoardMasterList,BoardMaster,CNode
Set Rs=Execute("Select boardid,BoardType,ParentID,ParentStr,Depth,RootID,Child,readme,BoardMaster,PostNum,TopicNum,indexIMG,todayNum,boarduser,LastPost,Sid,Board_Setting,Board_Ads,Board_user,IsGroupSetting,BoardTopStr,cid,Rules From Dv_Board where boardid in ("& lboardid &") Order By RootID,orders")
Dim Board_setting,lastpost
Do while Not Rs.EOF
Board_setting=Split(Rs("Board_setting")&"",",")
BoardPath = "board"
For i=1 To Rs("Depth")
BoardPath = "board/"&BoardPath
Next
Set Node=BoardXML.documentElement.selectSingleNode(BoardPath&"[@boardid=''''"&Rs(0)&"'''']")
For i = 0 To Rs.Fields.Count-1
Node.attributes.getNamedItem(LCase(Rs(i).name)).text = Rs(i)&""
Next
lastpost=Split(Rs("lastpost")&"","$")
For i=0 to UBound(LastPost)
Node.attributes.getNamedItem("lastpost"&i).text=LastPost(i)
Next
For Each cnode In Node.selectNodes("boardmasterlist")
node.removeChild(Cnode)
Next
BoardMasterList=Split(Rs("BoardMaster")&"","|")
i=0
For Each BoardMaster in BoardMasterlist
Set CNode=Node.appendChild(BoardXML.createNode(1,"boardmasterlist",""))
CNode.attributes.setNamedItem(BoardXML.createNode(2,"master","")).text=BoardMaster
CNode.attributes.setNamedItem(BoardXML.createNode(2,"urlencode","")).text=Server.urlencode(BoardMaster)
CNode.attributes.setNamedItem(BoardXML.createNode(2,"order","")).text=i
i=i+1
Next
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
End Sub
''''更新分版面部分缓存数组，入口：版面ID列表,豆号分隔、更新内容、节点名称
Public Sub ReloadBoardCache(lBoardID,MyValue,TagName)
NodeUpdate=True
''''Response.Write "ReloadBoardCache="& lBoardID &" MyValue="&MyValue&" TagName="&TagName&"<br>"
lBoardID=Split(lBoardID,",")
Dim Nodelist,Node,i,lastpost,j,cnode,BoardMasterList,BoardMaster
Set Nodelist=BoardXML.documentElement.getElementsByTagName("board")
For i=0 to UBound(lBoardID)
For Each Node in nodelist
If Cstr(lBoardID(i))=Node.attributes.getNamedItem("boardid").text Then
Node.attributes.getNamedItem(TagName).text=MyValue
If TagName="lastpost" Then
lastpost=Split(MyValue,"$")
For j=0 to UBound(LastPost)
Node.attributes.getNamedItem("lastpost"&j).text=LastPost(i)
Next
End If
If TagName="boardmaster" Then
For Each cnode In Node.selectNodes("boardmasterlist")
node.removeChild(Cnode)
Next
BoardMasterList=Split(MyValue,"|")
j=0
For Each BoardMaster in BoardMasterlist
Set CNode=Node.appendChild(BoardXML.createNode(1,"boardmasterlist",""))
CNode.attributes.setNamedItem(BoardXML.createNode(2,"master","")).text=BoardMaster
CNode.attributes.setNamedItem(BoardXML.createNode(2,"urlencode","")).text=Server.urlencode(BoardMaster)
CNode.attributes.setNamedItem(BoardXML.createNode(2,"order","")).text=j
j=j+1
Next
End If
Exit For
End If
Next
Next
End Sub ''''取得带端口的URL
Property Get Get_ScriptNameUrl()
If request.servervariables("SERVER_PORT")="80" Then
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),ScriptName,"")
Else
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&replace(lcase(request.servervariables("script_name")),ScriptName,"")
End If
End Property
Public Sub GetBrowser()
Dim Agent,Tmpstr,i
IsSearch = False
If Not IsEmpty(Session(Dvbbs.CacheName & "Cls_Browser")) Then
Tmpstr = Split(Session(Dvbbs.CacheName & "Cls_Browser"),"|||")
Browser = Dvbbs.checkStr(Tmpstr(0))
version = Dvbbs.checkStr(Tmpstr(1))
platform = Dvbbs.checkStr(Tmpstr(2))
If 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
