asp之实现HTML代码切换的函数
发布时间：2023-08-22 15:07:31 所属栏目：Asp教程 来源：
导读：在ASP中，可以使用模板从动态网页到静态网页进行转换，其实静态网页可以通过fsofile操作根据模板生成，下文是小编为您整理的asp之实现HTML代码转换的函数，一起进入下文了解一下吧！
'*********************
'*********************
|
在ASP中，可以使用模板从动态网页到静态网页进行转换，其实静态网页可以通过fsofile操作根据模板生成，下文是小编为您整理的asp之实现HTML代码转换的函数，一起进入下文了解一下吧！ '****************************** '函数：HTMLEncode(reString) '参数：reString,待编码转换处理的字符串 '作者：阿里西西 '日期：2007/7/15 '描述：对HTML代码进行转换 '示例：HTMLEncode(" 欢迎访问 阿里西西 ") '****************************** Function HTMLEncode(reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = UnCheckStr(Str) Str = Replace(Str, "&", "&") Str = Replace(Str, ">", ">") Str = Replace(Str, "<", "<") Str = Replace(Str, CHR(32), " ") Str = Replace(Str, CHR(9), " ") Str = Replace(Str, CHR(9), " ") Str = Replace(Str, CHR(34), """) Str = Replace(Str, CHR(39), "'") Str = Replace(Str, CHR(13), "") Str = Replace(Str, CHR(10), " ") HTMLEncode = Str End If End Function '反转换HTML代码 Function HTMLDecode(reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = Replace(Str, "&", "&") Str = Replace(Str, ">", ">") Str = Replace(Str, "<", "<") Str = Replace(Str, " ", CHR(32)) Str = Replace(Str, " ", CHR(9)) Str = Replace(Str, " ", CHR(9)) Str = Replace(Str, """, CHR(34)) Str = Replace(Str, "'", CHR(39)) Str = Replace(Str, "", CHR(13)) Str = Replace(Str, " ", CHR(10)) HTMLDecode = Str End If End Function %> （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
