Vbscript能不能得到地址栏里面的内容???

[Fengq]

Vbscript能不能得到地址栏里面的内容???
如果能的话?怎么弄?

[lions911]

<%
'得到当前页面的地址
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
Response.write GetUrl()
%>

[Fengq]

这个是得到访问的网页的地址
当使用框架时,我想得到地址栏的内容.

[fuzq]

Request.ServerVariables("URL")

[超级大笨狼]

msgbox window.location.href
是这个东西吗？

[cloudchen]

<SCRIPT LANGUAGE="vbScript">
alert location.href
</SCRIPT>

[dreamover]

window.location