汉字与Unicode编码相互转换程序源码(asp版)

<%
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="昨日代码 56191.com"
response.Write "Str："&Str&"<br />Unicode："&AsciiToUnicode(Str)&"<br />Ascii："&UnicodeToAscii(AsciiToUnicode(Str))
Str="&#26152;&#26085;&#20195;&#30721;&#32;&#53;&#54;&#49;&#57;&#49;&#46;&#99;&#111;&#109;"
response.Write UnicodeToAscii(Str)
%>