展会信息港展会大全

asp html标签转换html编码
来源:互联网   发布日期:2016-03-01 11:04:31   浏览:1437次  

导读:Function Xszh(zh) if zh or not isnull(zh) then zh=replace(zh, , ) zh=replace(zh, ,') ''zh=replace(zh,chr(13),br) zh=lcase(zh) zh=replace(zh,table,lt;table) zh=replace(zh,hr,lt;hrgt;) zh=replace(zh,tr,lt;tr) zh=replace(zh,%,lt;%) zh=replace...

Function Xszh(zh)

if zh<>"" or not isnull(zh) then

zh=replace(zh,"","")

zh=replace(zh," ","'")

''zh=replace(zh,chr(13),"<br>")

zh=lcase(zh)

zh=replace(zh,"<table","&lt;table")

zh=replace(zh,"<hr>","&lt;hr&gt;")

zh=replace(zh,"<tr","&lt;tr")

zh=replace(zh,"<%","&lt;%")

zh=replace(zh,"<html>","&lt;html&gt;")

zh=replace(zh,"<body","&lt;body")

'zh=replace(zh,"<div","&lt;div")

zh=replace(zh,"<iframe ","&lt;iframe")

zh=replace(zh,"</iframe> ","&lt;iframe&gt;")

zh=replace(zh,"</html>","&lt;/html&gt;")

'zh=replace(zh,"<OBJECT","&lt;object")

'zh=replace(zh,"<object","&lt;object")

'zh=replace(zh,"</div>","&lt;/div&gt;")

''zh=replace(zh,"<span","&lt;span")

'zh=replace(zh,"<script","&lt;script")

zh=replace(zh,"<td","&lt;td")

zh=replace(zh,"</table>","&lt;/table&gt;")

zh=replace(zh,"<title>","&lt;title&gt;")

zh=replace(zh,"</title>","&lt;/title&gt;")

zh=replace(zh,"</body>","&lt;/body&gt;")

zh=replace(zh,"<input","&lt;input")

zh=replace(zh,"<!doctype","&lt;doctype")

zh=replace(zh,"</tr>","&lt;/tr&gt;")

zh=replace(zh,"</td>","&lt;/td&gt;")

'zh=replace(zh,"<img","&lt;img")

zh=replace(zh,"[img]","<img border=0 src=")

zh=replace(zh,"[/img]",">")

zh=replace(zh,"<text","&lt;text")

zh=replace(zh,"<java","&lt;java")

zh=replace(zh,"<a ","<a target=_blank ")

zh=replace(zh,"</javascript>","&lt;/javascript&gt;")

zh=replace(zh,"[url=","<a target=_blank href=")

zh=replace(zh,"[/url]","</a>")

xszh = zh

end if

End Function

赞助本站

人工智能实验室

相关热词: 开发 编程 android

AiLab云推荐
展开

热门栏目HotCates

Copyright © 2010-2024 AiLab Team. 人工智能实验室 版权所有    关于我们 | 联系我们 | 广告服务 | 公司动态 | 免责声明 | 隐私条款 | 工作机会 | 展会港