需求场景
有时候我们不希望源代码中出现原字符,如某些地方门户供求信息网站需要显示电话号码,我们就需要对电话号码在源码里以类似加密形式显示,但又不影响前端UI页面上的显示,那么就需要将字符串转换为Ascii编码形式。
方法一:将中文汉字、英文字母和数字转换
<%
Function AsciiToUnicode(AsciiStr)
Dim Str,UnicodeStr
UnicodeStr=""
For i=1 To Len(AsciiStr)
Str=AscW(Mid(AsciiStr,i,1))
If Str<0 Then
Str=Str+65536
End If
UnicodeStr=UnicodeStr&"&#"&Str&";"
Next
AsciiToUnicode=UnicodeStr
End Function
Function UnicodeToAscii(UnicodeStr)
If InStr(UnicodeStr,"&#")>0 Then
Dim Str,AsciiStr
Str=Split(UnicodeStr,"&#")
AsciiStr=""
For i=0 To UBound(Str)
If Str(i)<>"" Then
AsciiStr=AsciiStr&ChrW(Left(Str(i),Len(Str(i))-1))
End If
Next
UnicodeToAscii=AsciiStr
Else
UnicodeToAscii=UnicodeStr
End If
End Function
%>
<%
Str="酷站领地网络www.kz6d.com"
response.Write "Str:"&Str&"<br />Unicode:"&AsciiToUnicode(Str)&"<br />Ascii:"&UnicodeToAscii(AsciiToUnicode(Str))
%>
方法二:简略代码,将英文字母和数字转换(不支持中文)
<%
function strtoAscii(str)
i=""
for j=1 to len(str)
i=i & "&#" & asc(mid(str,j,1))
next
strtoAscii=i
end function
response.write strtoAscii("123456")
%>
输出结果为123456,但网页源码里显示为123456