^{<noscript id="tv49s"></noscript>}

ubbcode函數

2024-05-04 10:59:08

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

<%
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)"">")

上一篇：在線數據庫管理工具(db007) v1.5

下一篇：ASP中過濾UBB和Html標簽

發表評論

共有條評論