asp过滤html代码问题

[go786]

我想用asp把远程获取到的代码过滤掉所有html显示出来，但是刚刚遇见的问题就是我获取到的代码中含有双引号，这样就把asp的代码给结束掉了，所以代码就会出错。
下面是我用到的方法，请问谁能帮我改一下。我的思路是先把获取到的代码中的双引号替换一下或者删除掉，之后在过滤html，不过不会做。
<%
a=LoseHtml("<a href=>"百度首页"</a>")
Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseHtml = ClsTempLoseStr
End function
response.Write(""&a&"")
%>
上面我远程得到的代码中含有双引号，执行的时候就出错，应该怎么解决？

[hookee]

字符串中的双引号用2个双引号表示
a=LoseHtml(" <a href=>""百度首页"" </a>")

[go786]

但是字符串中的字符不是我决定的，而是自动获取到的，我那样写只是举个例子。我想要的就是把我字符串中的双引号自动替换成单引号之后在进行过滤！

[一把编程的菜刀]

[Quote=引用 2 楼 go786 的回复:]
但是字符串中的字符不是我决定的，而是自动获取到的，我那样写只是举个例子。我想要的就是把我字符串中的双引号自动替换成单引号之后在进行过滤！
[/Quote]
抓取过来没关系的
抓取过来会自动转换的

[shenzhenNBA]

可以考虑把双引号替换成一个特殊的符号,比如字定义为 %shuangyihao% ,最后在操作完成后，根据需要可以把它还原或置空



<%
a=LoseHtml(" <a href=>"百度首页" </a>")

Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)

ClsTempLoseStr =replace(ClsTempLoseStr ,"""","%shuangyihao%")
'先处理双引号用自定义字符串代替

Set regEx = New RegExp
regEx.Pattern = " <\/*[^ <>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")

ClsTempLoseStr=replace(ClsTempLoseStr,"%shuangyihao%","""")
'还原，看情况可以修改成其它的或置空

LoseHtml = ClsTempLoseStr
End function

response.Write(""&a&"")
%>