汉字与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="老酒街laojiujie.com"

response.Write "Str："&Str&"<br />Unicode："&AsciiToUnicode(Str)&"<br />Ascii："&UnicodeToAscii(AsciiToUnicode(Str))
%>

参考：http://zhidao.baidu.com/question/41686234.html