找了比较多的。一般都是从域名开始获取。不过不重要了。下面这个我找到的获取 http部分+域名部分+端口 + 文件名部分 后面的话。可以自己加一些参数什么的。

function geturl()
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
	geturl = strTemp & Request.ServerVariables("URL")'可以自己后面接着加参数 我就到这就够了
end function
response.Write(geturl)'调试输出