最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp html标签转换html编码
时间:2009-06-23 编辑:简简单单 来源:一聚教程网
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,"
","<hr>")
zh=replace(zh,"
zh=replace(zh,"","<html>")
zh=replace(zh,"
zh=replace(zh,"","</html>")
'zh=replace(zh," 'zh=replace(zh," 'zh=replace(zh,"
''zh=replace(zh," 'zh=replace(zh," zh=replace(zh,"
zh=replace(zh,"
zh=replace(zh,"
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,"[url=","")
xszh = zh
end if
End Function
-
上一个: asp 简单ubb代码转换程序
-
下一个: asp 程序提示中午好,上午好程序
相关文章
- asp把html转换成html编码 08-05
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16