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
相关文章
set rs=conn.execute,set rs=server.createobject(“ADODB.record
这篇文章主要介绍了set rs=conn.execute,set rs=server.createobject(“ADODB.recordset”)的性能对比,看了这篇文章收获满满,那我们的代码可以优化一下了,需要的朋友可以参考下2020-08-08通过VB6将ASP编译封装成DLL组件最简教程 附全部工程源文件
因为近期问的网友比较多,就简单整理出来一个,有问题可以通过评论2012-03-03Highlight patterns within strings
Highlight patterns within strings...2007-04-04
最新评论