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