newasp中main类
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:)"
strContent = re.Replace(strContent, "<i>javascript</i>:")
If Trim(ContentKeyword) <> "" Then
sContentKeyword = Split(ContentKeyword, "@@@")
For i = 0 To UBound(sContentKeyword) - 1
strKeyword = Split(sContentKeyword(i), "$$")
re.Pattern = "(" & strKeyword(0) & ")"
strContent = re.Replace(strContent, "<a target=""_blank"" href=""" & strKeyword(1) & """ class=""wordstyle"">$1</a>")
Next
End If
re.Pattern = "(\[i\])(.[^\[]*)(\[\/i\])"
strContent = re.Replace(strContent, "<i>$2</i>")
re.Pattern = "(\[u\])(.[^\[]*)(\[\/u\])"
strContent = re.Replace(strContent, "<u>$2</u>")
re.Pattern = "(\[b\])(.[^\[]*)(\[\/b\])"
strContent = re.Replace(strContent, "<b>$2</b>")
re.Pattern = "(\[fly\])(.*)(\[\/fly\])"
strContent = re.Replace(strContent, "<marquee>$2</marquee>")
re.Pattern = "\[size=([1-9])\](.[^\[]*)\[\/size\]"
strContent = re.Replace(strContent, "<font size=$1>$2</font>")
re.Pattern = "(\[center\])(.[^\[]*)(\[\/center\])"
strContent = re.Replace(strContent, "<center>$2</center>")
''re.Pattern = "<IMG.[^>]*SRC(=| )(.[^>]*)>"
''strContent = re.Replace(strContent, "<IMG SRC=$2 border=""0"">")
re.Pattern = "<img(.[^>]*)>"
strContent = re.Replace(strContent, "<img$1 onload=""return imgzoom(this,550)"">")
re.Pattern = "\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
strContent = re.Replace(strContent, "<embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed>")
re.Pattern = "\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
strContent = re.Replace(strContent, "<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
re.Pattern = "\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
strContent = re.Replace(strCon
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:)"
strContent = re.Replace(strContent, "<i>javascript</i>:")
If Trim(ContentKeyword) <> "" Then
sContentKeyword = Split(ContentKeyword, "@@@")
For i = 0 To UBound(sContentKeyword) - 1
strKeyword = Split(sContentKeyword(i), "$$")
re.Pattern = "(" & strKeyword(0) & ")"
strContent = re.Replace(strContent, "<a target=""_blank"" href=""" & strKeyword(1) & """ class=""wordstyle"">$1</a>")
Next
End If
re.Pattern = "(\[i\])(.[^\[]*)(\[\/i\])"
strContent = re.Replace(strContent, "<i>$2</i>")
re.Pattern = "(\[u\])(.[^\[]*)(\[\/u\])"
strContent = re.Replace(strContent, "<u>$2</u>")
re.Pattern = "(\[b\])(.[^\[]*)(\[\/b\])"
strContent = re.Replace(strContent, "<b>$2</b>")
re.Pattern = "(\[fly\])(.*)(\[\/fly\])"
strContent = re.Replace(strContent, "<marquee>$2</marquee>")
re.Pattern = "\[size=([1-9])\](.[^\[]*)\[\/size\]"
strContent = re.Replace(strContent, "<font size=$1>$2</font>")
re.Pattern = "(\[center\])(.[^\[]*)(\[\/center\])"
strContent = re.Replace(strContent, "<center>$2</center>")
''re.Pattern = "<IMG.[^>]*SRC(=| )(.[^>]*)>"
''strContent = re.Replace(strContent, "<IMG SRC=$2 border=""0"">")
re.Pattern = "<img(.[^>]*)>"
strContent = re.Replace(strContent, "<img$1 onload=""return imgzoom(this,550)"">")
re.Pattern = "\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
strContent = re.Replace(strContent, "<embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed>")
re.Pattern = "\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
strContent = re.Replace(strContent, "<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
re.Pattern = "\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
strContent = re.Replace(strCon