debut10 篠田优 步兵:请教各位老大一个问题

来源:百度文库 编辑:高考问答 时间:2024/05/02 04:33:42
请教各位老大一个问题
如何获得当前IE栏里的URL

用ASP吗?
<%
Function getUrl()
dim str,tempstr
str= "http://"&request.servervariables("SERVER_NAME")&request.servervariables("url")
tempstr=""
for each i in request.querystring
tempstr=tempstr&i
if request.querystring(i)<>"" then
tempstr=tempstr&"="&request.querystring(i)&"&"
end if
next
if not tempstr="" then
str=str&"?"
tempstr=mid(tempstr,1,len(tempstr)-1)
end if
str=str&tempstr
getUrl=str
end Function
%>