设为首页收藏本站

开启辅助访问

Ee23时尚网 › 日志

日志

心情随感| asp语言| js脚本| html+CSS|

分享 Asp过滤Html代码方法三: ljzbhy 2009-12-11 23:51; 转化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语言|1347 次阅读|0 个评论热度 14

分享 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 ...; 个人分类: asp语言|1461 次阅读|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 ...; 个人分类: asp语言|1402 次阅读|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 *", "", ...; 个人分类: asp语言|1130 次阅读|0 个评论

分享 asp错误代码: ljzbhy 2009-12-11 23:47; ActiveServerPages,ASP0126(0x80004005)--找不到包含文件 MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)--sql语句出错(数据类型不匹配或表名(字段名)错误或表处于编辑状态，或表不存在于conn打开的数据库中) MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)--sql语句出错(字段名错误,或数据类型不匹配) ...; 个人分类: asp语言|547 次阅读|0 个评论热度 11

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

GMT+8, 2024-4-20 20:59

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部