asp怎样获取本页完整的URL？

CStr(Request.ServerVariables("SCRIPT_NAME")) 获取本页名
Request.ServerVariables("SERVER_NAME") 获取主机名
Request.QueryString 获取url问号后面的所有参数名
这样就可以写一个函数，来取得本页的完整的URL
Private Function GetUrl()
Dim ScriptAddress, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
M_ItemUrl = ""
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?"
For Each M_item In Request.QueryString
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
Next
if right(M_ItemUrl,1)="&" then M_ItemUrl=left(M_ItemUrl,len(M_ItemUrl)-1)
end if
GetUrl=Request.ServerVariables("SERVER_NAME")&ScriptAddress & M_ItemUrl
End Function
response.write "http://"&geturl

ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))

ASP是数据库的,是没有办法从代码里面看到!