asp url编码问题

Function param(name)
Response.CodePage = 28591
param = Request.Item(name).Item & ""
Response.CodePage = 936
Dim cSet : cSet = "GBK"
With New RegExp
.Pattern = "^(?:[\x00-\x7f]|[\xe0-\xef][\x80-\xbf]{2})+$"
If .Test(param) Then cSet = "UTF-8"
End With
With Server.CreateObject("ADODB.Stream")
.Type = 2
.Charset = "iso-8859-1"
.Open
.WriteText param
.Position = 0
.Charset = cSet
param = .ReadText(-1)
.Close
End With
End Function


中文乱码在url上面的乱码。

处理方式。 这个函数的执行必须是最上面， 也就是获取request中，他应该最早被执行到。
比如系统有验证输入规则的。 也必须在这个后面！。