看到 如下字符是不是头晕： \u5feb\u4ef6\u5728\u3010\u53a6\u95e8\u96c6\u7f8e\u5929\u51e4\u3011\u6536\u4ef6
实际上是机密成unicode的文字，通过解密即可恢复正常。
解密前要处理下（将js加密的符号换成asp解密的符号）
reContent= "\u5feb\u4ef6\u5728\u3010\u53a6\u95e8\u96c6\u7f8e\u5929\u51e4\u3011\u6536\u4ef6"
reContent = Replace(reContent, "\u", "%u")
response.Write VBsUnEscape(reContent)
函数如下：
Function VBsUnEscape(str)
dim i,s,c
s=""
For i=1 to Len(str)
c=Mid(str,i,1)
If Mid(str,i,2)="%u" and i<=Len(str)-5 Then
If IsNumeric("&H" & Mid(str,i+2,4)) Then
s = s & CHRW(CInt("&H" & Mid(str,i+2,4)))
i = i+5
Else
s = s & c
End If
ElseIf c="%" and i<=Len(str)-2 Then
If IsNumeric("&H" & Mid(str,i+1,2)) Then
s = s & CHRW(CInt("&H" & Mid(str,i+1,2)))
i = i+2
Else
s = s & c
End If
Else
s = s & c
End If
Next
VBsUnEscape = s
End Function
最新评论