asp怎么去掉html代码

function HTMLEncode(fString)
if not isnull(fstring) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
fString = Replace(fString,"'","''")
HTMLEncode = fString
end if
end function

你是想将所有的html标记剔除呢？还是只是要他不执行？如果仅仅是让其不执行的话，在保存的时候你可以将< >代码分别用& l t ; & g t ;进行代替。要是剔除我觉得没啥必要，做法也是一样 遇到html标记就用""进行代替就成了。不过估计没有上面说的办法好。

最好是能 把他输的代码显示出来