一个ubbcode代码

时间：2008-06-01 06:26:27 来源：作者：

<%
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 = "(documents.cookie)"
        strContent = re.Replace(strContent, "documents.cookie")
        re.Pattern = "(vbs：)"

1/8 1 2 3 4 5 6 ›› ›|

来顶一下

返回首页

上一篇：asp自动分页源代码

下一篇：一个asp简单分页程序

推荐资讯

韩国明星（李孝利）绝	好看-人体艺术摄影图片
美女车模可爱图片写真	日本美女萩原舞人体艺

相关文章

无相关信息

栏目更新

栏目热门