请教各位老大一个问题

用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
%>