一聚教程网：一个值得你收藏的教程网站

ps教程| flash教程| 路由器设置| Jsp教程| 加入收藏

PHP教程 Css教程 操作系统 数据库 安卓下载

首页 游戏下载 软件下载 专题 资讯教程 php教程 asp.net教程 css教程 网页制作 网页特效 手机开发 办公数码
+ -
当前位置：一聚教程网 > asp教程 > ASP入门

推荐专题

最新下载

热门教程

asp html标签转换html编码

时间：2022-07-02 22:36:30 编辑：袖梨 来源：一聚教程网

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,"  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=","")
 xszh = zh
end if
End Function

相关文章

热门栏目

一聚教程网| 关于我们| 联系我们| 广告合作| 友情链接| 版权声明

copyRight@2007-2022 www.111CN.NET AII Right Reserved

网站内容来自网络整理或网友投稿如有侵权行为请邮件:111cn.com@163.com 我们24小时内处理