摘要：
<%%response.charset=“utf-8”response.writeURLDecode（request.querystring（“msg”）+“<；”%“）IfIsArray（aSplit）然后sOutput=aSplit（0）ForI=0toUBound（aSplite）-1 sOutput=sOutput&；H”&；
response.charset = "utf-8"
response.write URLDecode(request.querystring("msg") +"<BR>")
Function URLDecode(sConvert)
Dim aSplit
Dim sOutput
Dim I
If IsNull(sConvert) Then
URLDecode = ""
Exit Function
End If
' convert all pluses to spaces
sOutput = REPLACE(sConvert, "+", " ")
' next convert %hexdigits to the character
aSplit = Split(sOutput, "%")
If IsArray(aSplit) Then
sOutput = aSplit(0)
For I = 0 to UBound(aSplit) - 1
sOutput = sOutput & _
Chr("&H" & Left(aSplit(i + 1), 2)) &_
Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)
Next
End If
URLDecode = sOutput
End Function
%>
将ASP的页面charset设置为utf-8之后解码就不会有乱码了.