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中，他应该最早被执行到。
比如系统有验证输入规则的。 也必须在这个后面！。