ASP读取Request.QueryString编码的函数代码

　　<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

　　<%

　　Option Explicit

　　Const YXCMS_CHARSET = "UTF-8"

　　Const YXCMS_CODEPAGE = 65001

　　Response.CharSet = "UTF-8"

　　Session.CodePage = 65001

　　'测试URL

　　'?n1=深山老熊&n2=%C9%EE%C9%BD%C0%CF%D0%DC&n3=%E6%B7%B1%E5%B1%B1%E8%80%81%E7%86%8A

　　'深山老熊

　　'GBK : %C9%EE%C9%BD%C0%CF%D0%DC

　　'UTF-8 : %E6%B7%B1%E5%B1%B1%E8%80%81%E7%86%8A

　　Dim URI,key

　　Set URI = new Cls_URI

　　'输出所有参数测试

　　For Each key In URI.QueryString

　　Response.Write "<span style='color:red'>" & key & " : </span>" & URI.Get(key) & "<hr/>"

　　Next

　　'取单个值

　　'URI.Get("名称")

　　'--------------------------------------------

　　'ASP UTF-8编码下通吃 GBK UTF-8编码

　　'作者: 深山老熊 QQ:81090

　　'--------------------------------------------

　　Class Cls_URI

　　Private o_item,o_regx

　　Private url_query

　　Private Sub Class_Initialize

　　Set o_item = CreateObject("Scripting.Dictionary")

　　o_item.CompareMode = 1

　　Set o_regx = New Regexp

　　o_regx.Pattern = "^(?:[\x00-\x7f]|[\xfc-\xff][\x80-\xbf]{5}|[\xf8-\xfb][\x80-\xbf]{4}|[\xf0-\xf7][\x80-\xbf]{3}|[\xe0-\xef][\x80-\xbf]{2}|[\xc0-\xdf][\x80-\xbf])+$"

　　Session.CodePage = 936

　　url_query = Request.ServerVariables("QUERY_STRING")

　　Session.CodePage = 65001

　　'根据QUERY_STRING字符串，生成模拟QueryString值

　　Dim i,a,b,c,n,v

　　a = Split(url_query,"&") : c = UBound(a)

　　For i = 0 To c

　　b = Split(a(i),"=",2)

　　n = Trim(b(0) & "")

　　If UBound(b) < 1 Then

　　v = ""

　　Else

　　v = b(1)

　　If InStr(v,"%") > 0 Then v = URLDecode(v)

　　End If

　　If n <> "" Then

　　o_item(n) = v

　　End If

　　Next

　　Set o_regx = Nothing

　　End Sub

　　Private Sub Class_Terminate

　　Set o_item = Nothing

　　End Sub

　　'模拟 Request.QueryString

　　Public Function QueryString()

　　Set QueryString = o_item

　　End Function

　　'模拟 Request.QueryString(n)

　　Public Function [GET](n)

　　If o_item.Exists(n) Then

　　[GET] = o_item.Item(n)

　　Else

　　[GET] = ""

　　End If

　　End Function

　　'编码格式化

　　Private Function URLDecode(ByVal s)

　　Dim sm,cs,r,o_regex

　　If Trim(s & "") = "" Then

　　URLDecode = s : Exit Function

　　End If

　　s = unescape(s)

　　If o_regx.Test(s) Then

　　cs = "UTF-8"

　　Else

　　cs = "GBK"

　　End If

　　Set sm = CreateObject("Adodb.Stream")

　　With sm

　　.Type = 2

　　.Mode = 3

　　.Open

　　.CharSet = "ISO-8859-1"

　　.WriteText s

　　.Position = 0

　　.CharSet = cs

　　URLDecode = .ReadText(-1)

　　.Close

　　End With

　　Set sm = Nothing

　　End Function

　　End Class

　　%>