<%
Public Function UbbCode(strContent)
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
'过滤危险脚本
re.Pattern = "(</script>)"
strContent = re.Replace(strContent, "</script>")
re.Pattern = "(script:)"
strContent = re.Replace(strContent, "s cript:")
re.Pattern = "(script)"
strContent = re.Replace(strContent, "s cript")
re.Pattern = "(js:)"
strContent = re.Replace(strContent, "js:")
re.Pattern = "(value)"
strContent = re.Replace(strContent, "value")
re.Pattern = "(about:)"
strContent = re.Replace(strContent, "about:")
re.Pattern = "(file:)"
strContent = re.Replace(strContent, "file:")
re.Pattern = "(document.cookie)"
strContent = re.Replace(strContent, "documents.cookie")
re.Pattern = "(vbs:)"
strContent = re.Replace(strContent, "v bs:")
re.Pattern = "(on(mouse|exit|error|click|key))"
strContent = re.Replace(strContent, "on$2")
re.Pattern = "<IMG.[^>]*SRC(=| )(.[^>]*)>"
'strContent = re.replace(strContent,"<IMG SRC=$2 onclick=""javascript:window.open(this.src);"" style=""CURSOR: pointer"" border=""0"">")
strContent = re.replace(strContent,"<IMG SRC=$2 border=""0"">")
're.Pattern="<img(.[^>]*)>"
'strContent = re.replace(strContent,"<img$1 onload=""return imgzoom(this,550)"">")
