请问高手，如下网址是怎样换算出来的？

[li_net]

newsSearch.jsp?Submit=%CB%D1+%CB%F7&in=page&q=site%3A163.com+%B8%DF%DD%BA%DD%BA

请高人指点，谢谢！

[leohuang]

try
----------------------------------
<%
Response.Write URLDecode("newsSearch.jsp?Submit=%CB%D1+%CB%F7&in=page&q=site%3A163.com+%B8%DF%DD%BA%DD%BA")


Function URLDecode(enStr)
Dim deStr
Dim c, i, v
deStr = ""
For i = 1 To Len(enStr)
c = Mid(enStr, i, 1)
If c = "%" Then
v = Eval("&h" + Mid(enStr, i + 1, 2))
If v < 128 Then
deStr = deStr & Chr(v)
i = i + 2
Else
If isvalidhex(Mid(enStr, i, 3)) Then
If isvalidhex(Mid(enStr, i + 3, 3)) Then
v = Eval("&h" + Mid(enStr, i + 1, 2) + Mid(enStr, i + 4, 2))
deStr = deStr & Chr(v)
i = i + 5
Else
v = Eval("&h" + Mid(enStr, i + 1, 2) + CStr(Hex(Asc(Mid(enStr, i + 3, 1)))))
deStr = deStr & Chr(v)
i = i + 3
End If
Else
deStr = deStr & c
End If
End If
Else
If c = "+" Then
deStr = deStr & " "
Else
deStr = deStr & c
End If
End If
Next
URLDecode = deStr
End Function

Function isvalidhex(str)
Dim c
isvalidhex = True
str = UCase(str)
If Len(str) <> 3 Then
isvalidhex = False
Exit Function
End If
If Left(str, 1) <> "%" Then
isvalidhex = False
Exit Function
End If
c = Mid(str, 2, 1)
If Not (((c >= "0") And (c <= "9")) Or ((c >= "A") And (c <= "Z"))) Then
isvalidhex = False
Exit Function
End If
c = Mid(str, 3, 1)
If Not (((c >= "0") And (c <= "9")) Or ((c >= "A") And (c <= "Z"))) Then
isvalidhex = False
Exit Function
End If
End Function

%>

[patchclass]

=%CB%D1 只是urlencode编码而已

[future914]

看不明白的只是一种编码

[li_net]

谢谢各位，已解决了！

[tormtee]

&是分隔符