Ee23时尚网

 找回密码
 登记注册
搜索
分享 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
期待已久的uchome
开通了。。来赚点积分
1241 次阅读|2 个评论 热度 13
分享 开通家园
ljzbhy 2009-12-8 17:23
文章测试。。。 之后加游戏。。
565 次阅读|0 个评论 热度 8

本页有 1 篇日志因作者的隐私设置或未通过审核而隐藏

手机版|Archiver|Ee23时尚网 ( 粤ICP备09167417号-1 )

GMT+8, 2024-3-28 16:48

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部