做jsp网页,需要提交多个form,所以在代码中使用了XMLHTTP来提交,结果发现提交保存会出现乱码。后来找了一个VBScript的解码代码
<SCRIPT language="VBScript">
Function URLEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)/ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
URLEncoding = strReturn
End Function
</SCRIPT>
但是在页面中报错(没有执行代码,打开页面就会出现脚本错误)。我以为是VBScript和JavaScript不能在页面中混用(愚蠢啊愚蠢)。结果费尽心思找可以解码的JavaScript代码。搞了一个多小时,后来想到记得两类代码是可以混用的,上网查了一下,在微软的网站上找到一个详细的混用两种代码的文章:
http://www.microsoft.com/china/msdn/archives/technic/develop/vb/0125b.asp
然后我就把解码的VBScript的位置换了一下,就可以了。真是愚蠢的错误~~~~~~~