-
- 分享
Asp过滤Html代码方法二
-
ljzbhy 2009-12-11 23:51
-
Function delHtml(strHtml) Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立正则表达式 objRegExp.IgnoreCase = True ' 设置是否区分大小写 objRegExp.Global = True '是匹配所有字符串还是只是第一个 objRegExp.Pattern = "( .*?)|( .*?)" ' 设置模式引号中的是正则表达式,用来找出html ...
-
1456 次阅读|0 个评论
热度 12
-
- 分享
Asp过滤Html代码方法一
-
ljzbhy 2009-12-11 23:50
-
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 ...
-
1399 次阅读|0 个评论
热度 11
-
- 分享
自定义过滤THML代码
-
ljzbhy 2009-12-11 23:49
-
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 *", "", ...
-
1126 次阅读|0 个评论
-
- 分享
判断是否为中文
-
ljzbhy 2009-12-11 23:49
-
script language="vbscript" '使用正则表达式验证String1是否匹配Pattern Public Function Validation(Pattern, String1) Dim RegExp1, Matches '建立正则表达式 Set RegExp1 = New RegExp '设置模式 RegExp1.Pattern = Pattern ...
-
1317 次阅读|0 个评论
热度 9
-
- 分享
asp错误代码
-
ljzbhy 2009-12-11 23:47
-
ActiveServerPages,ASP0126(0x80004005)--找不到包含文件 MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)--sql语句出错(数据类型不匹配或表名(字段名)错误或表处于编辑状态,或表不存在于conn打开的数据库中) MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)--sql语句出错(字段名错误,或数据类型不匹配) ...
-
546 次阅读|0 个评论
热度 11
-
- 分享
期待已久的uchome
-
Aい飞天猪/aw 2009-12-8 18:25
-
开通了。。来赚点积分
-
1241 次阅读|2 个评论
热度 13
-
- 分享
开通家园
-
ljzbhy 2009-12-8 17:23
-
文章测试。。。 之后加游戏。。
-
565 次阅读|0 个评论
热度 8
本页有 1 篇日志因作者的隐私设置或未通过审核而隐藏