注册账号 | 登录

用QQ帐号登录

1314学习网»站长论坛 › 站长交流区 › 技术杂谈 › asp中获取当前页面的地址与参数的函数代码

发新帖

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

authicon

dly 发表于 2011-9-10 21:51:50 | 显示全部楼层 |阅读模式

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读取日期单日期自动补零函数代码
下一篇：asp中文件与文件夹常用处理函数(文件后缀、创建文件等)

回复

发新帖

Discuz商业插件

Discuz模板风格

Discuz商业扩展

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-5-2 20:13

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表