【asp.net】asp html标签转换html编码

更新时间：2015-12-29 来源：脚本编码手机版 字体：大中小

【www.bbyears.com--脚本编码】

Function Xszh(zh)
if zh<>"" or not isnull(zh) then
zh=replace(zh," "," ")
zh=replace(zh,"€",""")
""zh=replace(zh,chr(13),"
")
zh=lcase(zh)
zh=replace(zh," zh=replace(zh,"

","<hr>")
zh=replace(zh," zh=replace(zh,"<%","<%")
zh=replace(zh,"","<html>")
zh=replace(zh," "zh=replace(zh," zh=replace(zh," ","<iframe>")
zh=replace(zh,"","</html>")
"zh=replace(zh," "zh=replace(zh," "zh=replace(zh,"","</div>")
""zh=replace(zh," "zh=replace(zh,"<script","<script")
zh=replace(zh," zh=replace(zh,"","</table>")
zh=replace(zh,"","<title>")<br /> zh=replace(zh,"","</title>")
zh=replace(zh,"","</body>")
zh=replace(zh," zh=replace(zh," zh=replace(zh,"","</tr>")
zh=replace(zh,"","</td>")
"zh=replace(zh," zh=replace(zh,"[img]","

")
zh=replace(zh," zh=replace(zh," zh=replace(zh," zh=replace(zh,"","</javascript>")
zh=replace(zh,"[url="," zh=replace(zh,"[/url]","")
xszh = zh
end if
End Function

本文来源：http://www.bbyears.com/aspjiaocheng/20567.html