asp中获取当前页面的地址与参数的函数代码

function getcurrenturl()
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")
end if
strtemp = strtemp & request.servervariables("url")
getcurrenturl = strtemp
end function

function geturlwithparams()
dim scriptaddress,servername,qs
scriptaddress = cstr(request.servervariables("script_name"))
servername = cstr(request.servervariables("server_name"))
qs=request.querystring
if request.servervariables("server_port") <> 80 then
servername = servername & ":" & request.servervariables("server_port")
end if
if qs<>"" then
geturlwithparams ="http://"& servername & scriptaddress &"?"&qs
else
geturlwithparams ="http://"& servername & scriptaddress
end if
end function