您正在使用 IPV4 [3.234.244.181] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】2核2G4M云服务器新老同享99元/年,续费同价      
[公益] 地球是我家,绿化靠大家      
2024年 劳动节 006
2024年 端午节 046
2025年 元 旦 251
2025年 春 节 279
综合数码金融娱乐服务报刊政府机构 推荐 排名 今日 申请 友情  
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp中获取当前页面的地址与参数的函数代码
内容摘要: FunctiongetCurrentUrl()OnErrorResumeNextDimstrTempIfLCase(Request.ServerVariables('HTTPS'))='off'ThenstrTemp='http://'ElsestrTemp='https://'EndIfstrTemp=strTempRequest.ServerVariab......
FunctiongetCurrentUrl()

OnErrorResumeNext

DimstrTemp

IfLCase(Request.ServerVariables("HTTPS"))="off"Then

strTemp="http://"

Else

strTemp="https://"

EndIf

strTemp=strTemp&Request.ServerVariables("SERVER_NAME")

IfRequest.ServerVariables("SERVER_PORT")<>80Then

strTemp=strTemp&":"&Request.ServerVariables("SERVER_PORT")

endif

strTemp=strTemp&Request.ServerVariables("URL")

getCurrentUrl=strTemp

EndFunction

FunctiongetUrlWithParams()

DimScriptAddress,Servername,qs

ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME"))

Servername=CStr(Request.ServerVariables("Server_Name"))

qs=Request.QueryString

IfRequest.ServerVariables("SERVER_PORT")<>80Then

Servername=Servername&":"&Request.ServerVariables("SERVER_PORT")

endif

ifqs<>""then

getUrlWithParams="http://"&Servername&ScriptAddress&"?"&qs

else

getUrlWithParams="http://"&Servername&ScriptAddress

endif

EndFunction

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:使用ASP启动/停止指定WEB站点

 

下一篇:asp 用InStr查找特定字符串的代码

发布日期:2024/2/27
手机扫二维码直达本页
发布时间:15:30:38
点  击:12
录  入:伊伊
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,奇安信网站卫士提供加速防护
运行时间载入中.....