需要用到这个功能,没怎么测试呢,测试后给具体代码 假如地址是: http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html 方法一:简单,得不到参数,只有一个虚拟路径 代码如下:GetUrl =request(“url”) ‘这个因为我们没有url=什么字样所以直接pass掉 方法二:得到整个URL,得到参数 代码如下:‘得到当前页面的地址 Function GetUrl() On Error Re
有时候我么您需要获取网址,端口、路径文件名、参数等,这里就为大家分享一下这个函数代码,需要的朋友可以参考下
函数1
<%
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.S