asp html标签转换html编码
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,"
zh=replace(zh,"
","<iframe>")zh=replace(zh,"","</html>")
'zh=replace(zh,"
'zh=replace(zh,"
'zh=replace(zh,"
''zh=replace(zh,"
'zh=replace(zh,"
zh=replace(zh,"
","</table>")zh=replace(zh,"
","<title>")zh=replace(zh,"
","</title>")zh=replace(zh,"