日志
- 分享 层显示
- !DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd" html head meta http-equiv="Content-Type" content="text/html; charset=gb2312" title层/title /head body a href="#" onMouseover="div1.sty ...
- 分享 Asp过滤Html代码方法三
- 转化html标签为code代码 function coder(str) dim i if isnull(str) then : coder="" : exit function : end if for i = 1 to len(str) select case mid(str,i,1) case "" : ...
- 分享 Asp过滤Html代码方法二
- Function delHtml(strHtml) Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立正则表达式 objRegExp.IgnoreCase = True ' 设置是否区分大小写 objRegExp.Global = True '是匹配所有字符串还是只是第一个 objRegExp.Pattern = "( .*?)|( .*?)" ' 设置模式引号中的是正则表达式，用来找出html ...
- 分享 Asp过滤Html代码方法一
- Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的 objRegExp.Pattern = ".+?" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches s ...
- 分享 自定义过滤THML代码
- Function ClearHtml(Content) Content=Zxj_ReplaceHtml("# *;", "", Content) Content=Zxj_ReplaceHtml("/?marquee *", "", Content) Content=Zxj_ReplaceHtml("/?object *", "", Content) Content=Zxj_ReplaceHtml("/?param *", "", Content) Content=Zxj_ReplaceHtml("/?embed *", "", ...
- 分享 判断是否为中文
- script language="vbscript" '使用正则表达式验证String1是否匹配Pattern Public Function Validation(Pattern, String1) Dim RegExp1, Matches '建立正则表达式 Set RegExp1 = New RegExp '设置模式 RegExp1.Pattern = Pattern ...
