unicode编码转换（ASP）

Function fstrChangePrm2Unicode2(ByVal strOrg)
 Dim strReturn

 On Error Resume Next

 strReturn = strOrg
 strReturn = Replace(strReturn, "\" , "\u005C")
 strReturn = Replace(strReturn, "'"  , "\u0027")
 strReturn = Replace(strReturn, """" , "\u0022")
 strReturn = Replace(strReturn, vbCr , "")
 strReturn = Replace(strReturn, vbLf , "\u000A")
 strReturn = Replace(strReturn, "<"  , "\u003C")
 strReturn = Replace(strReturn, ">"  , "\u003E")
 strReturn = Replace(strReturn, "&"  , "\u0026")
 strReturn = Replace(strReturn, "%"  , "\u0025")
 strReturn = Replace(strReturn, "#"  , "\u0023")
 fstrChangePrm2Unicode2 = strReturn

End Function