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

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试