newasp中main类(73)
End If
Value = Rs("GroupSet") & Rs("Groupname")
Set Rs = Nothing
End If
blnGroupSetting = True
strGroupSetting = Value
arrGroupSetting = Split(strGroupSetting, "|||")
End Sub
Public Property Get GroupSetting(i)
If Not blnGroupSetting Then LoadGroupSetting
GroupSetting = arrGroupSetting(i)
End Property
Public Function ReadContent(ByVal strContent)
On Error Resume Next
Dim re, i
Dim sContentKeyword, strKeyword
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
'过滤危险脚本
re.Pattern = "(<s+cript(.[^>]*)>)"
strContent = re.Replace(strContent, "<Script$2>")
re.Pattern = "(<\/s+cript>)"
strContent = re.Replace(strContent, "</Script>")
re.Pattern = "(<body(.[^>]*)>)"
strContent = re.Replace(strContent, "<body>")
re.Pattern = "(<\!(.[^>]*)>)"
strContent = re.Replace(strContent, "<$2>")
re.Pattern = "(<\!)"
strContent = re.Replace(strContent, "<!")
re.Pattern = "(-->)"
strContent = re.Replace(strContent, "-->")
re.Pattern = "(javascript:)"
内容版权声明：除非注明，否则皆为本站原创文章。