Request 对象错误'asp 0104:80004005'之解决方案
521自助链V2.0(完整版)演示及下载
19
Sep.2008
收藏到网摘：
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus();){kind=logo}
首页调用新闻内容，总是连HTML一块儿调出来，把版面都给撑坏了，又不可能每次都去后台重新编辑那条新闻，而且编辑完了之后，新闻内容页版面也很不好看，折腾了好几天，今天这个问题终于搞定了，代码发出来分享！
ASP 过滤HTML函数代码：
用法：
显示的时候，回车、等都会被当着空格对待，而且多个连续的空格只显示一个空格。
如果要原样显示，你可以增加个PRE代码，例如：
下面还有在别的地方看到的相关文章，不过感觉没这个好用，有些地方还不太明白！
ASP 过滤HTML函数代码：
<%'过滤HTML代码
Function ClearHTML(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
strHtml=Replace(strHTML,Match.Value,"")
Next
ClearHTML=strHTML
Set objRegExp = Nothing
End Function
%>
Function ClearHTML(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
strHtml=Replace(strHTML,Match.Value,"")
Next
ClearHTML=strHTML
Set objRegExp = Nothing
End Function
%>
用法：
Response.write ClearHTML(Rs("text"))
<%=left(CleanHTML(rs("text")),70)%>
显示的时候，回车、
如果要原样显示，你可以增加个PRE代码，例如：
Response.write "<pre>"&ClearHTML(Rs("text"))&"</pre>"
下面还有在别的地方看到的相关文章，不过感觉没这个好用，有些地方还不太明白！
引用
-------------------去掉html js css
''srt1是你要去除html代码字符串，可以其它任何地方读取过来。
str1 = "正</3>在转到 ... ... "
''应用函数
Response.Write(delHtml(str1))
---------------------Asp完全过滤Html代码
Function delHtml(strHtml)Dim objRegExp, strOutput
Set objRegExp = New Regexp '' 建立正则表达式
objRegExp.IgnoreCase = True '' 设置是否区分大小写
objRegExp.Global = True ''是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" '' 设置模式引号中的是正则表达式，用来找出html标签
strOutput = objRegExp.Replace(strHtml, "") ''将html标签去掉
strOutput = Replace(strOutput, "<", "<") ''防止非html标签不显示
strOutput = Replace(strOutput, ">", ">")
delHtml = strOutput
Set objRegExp = Nothing
End Function
Set objRegExp = New Regexp '' 建立正则表达式
objRegExp.IgnoreCase = True '' 设置是否区分大小写
objRegExp.Global = True ''是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" '' 设置模式引号中的是正则表达式，用来找出html标签
strOutput = objRegExp.Replace(strHtml, "") ''将html标签去掉
strOutput = Replace(strOutput, "<", "<") ''防止非html标签不显示
strOutput = Replace(strOutput, ">", ">")
delHtml = strOutput
Set objRegExp = Nothing
End Function
''srt1是你要去除html代码字符串，可以其它任何地方读取过来。
str1 = "
''应用函数
Response.Write(delHtml(str1))
---------------------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
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
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
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
