asp中获取当前页面的地址与参数的函数代码
更新时间：2011年01月06日 00:15:45 作者：
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
相关文章
ASP错误处理...2007-03-03
2008-02-02
Jmail发邮件的例子...2006-09-09
你是否有时想知道什么人访问你的站点，什么时间，IP地址等。下面我就这个问题向大家来阐述一下。2011-02-02
ASP解压缩（在线解压缩类）...2007-01-01
写了下asp取真实IP的代码，搭环境测试无代理、一级或多级代理的情况，可以正常获取2010-11-11
用ASP读取/写入UTF-8编码格式的文件...2006-11-11
这篇文章主要介绍了asp执行带参数的sql语句实例,参数化SQL语句可以有效的防止SQL注入漏洞,需要的朋友可以参考下2014-08-08
Microsoft VBScript 编译器错误 错误原因 代码大全
这篇文章主要介绍了Microsoft VBScript 编译器错误 错误原因 代码大全,需要的朋友可以参考下2015-07-07
SharePoint Server 是基于.NET4.7框架,功能基本是把office365的SPO功能搬家过来。下面通过本文给大家介绍SharePoint Server 2019新特性，需要的朋友可以参考下2017-12-12
最新评论