zl程序教程

您现在的位置是:首页 >  后端

当前栏目

ASP中进行HTML数据及JS数据编码函数

JSASPHTML数据 函数 进行 数据编码
2023-06-13 09:14:14 时间
前些天我就碰到了用Ajax提交表单,然后发送邮件的情况.于是写出了下面的两个函数来解决这两个问题.

第一个函数把HTML中的数据转成HTML实体,而HTML标签则自动不转,这样无论到哪里都不会乱码,可以在发送邮件时选择发送HTML格式的邮件.
第二个函数把JS数据同样是换成转义字符,同样避开了JS关键词等字符的转换,不管网页是什么编码它都不会乱码.废话少说,看下面的代码.
复制代码代码如下:

Functionhtmlentities(str)
Dima,i,char
Fori=1toLen(str)
char=mid(str,i,1)
a=Ascw(char)
Ifa>128Ora<0then
htmlentities=htmlentities&“”&clng(”&h”&hex((Ascw(char))))&“;”
Else
htmlentities=htmlentities&char
Endif
Next
EndFunction

FunctionUnicode(str1)
Dimstr,temp
str=“”
Fori=1ToLen(str1)
temp=Hex(AscW(Mid(str1,i,1)))
Iflen(temp)<5Thentemp=Right(”0000″&temp,4)
str=str&“\u”&temp
Next
Unicode=str
EndFunction

如果你是抱着拿着就用的态度那么可以什么也不管直接用,当然很多时候我们为了满足特殊情况的需要,会改写一些代码,如果你报着学习与研究的态度,那么这里需要注意的是Ascw(char)函数有可能返回长整型值,而ASP把它当成整型看待,需要做些小的处理.