开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › 获取当前完整Url字符串的函数
返回列表 发新帖
查看: 89|回复: 2

[ASP函数] 获取当前完整Url字符串的函数

[复制链接]
xuanxiao 发表于 2024-10-9 10:52:53 | 显示全部楼层 |阅读模式
  1. Function GetUrl()
  2.   Dim ScriptAddress,Servername,qs
  3.   Dim PROTOCOL
  4.   If (Request.ServerVariables("HTTPS") = "off") Then
  5.   PROTOCOL="http://"
  6.   else
  7.   PROTOCOL="https://"
  8.   end if
  9.   ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
  10.   Servername = CStr(Request.ServerVariables("Server_Name"))
  11.   qs=Request.QueryString
  12.   if qs<>"" then
  13.   GetUrl =PROTOCOL& Servername & ScriptAddress &"?"&qs
  14.   else
  15.   GetUrl =PROTOCOL& Servername & ScriptAddress
  16.   end if
  17. End Function
复制代码
ASP币如何冲？请看这里
回复

使用道具 举报

一往情僧 发表于 2024-10-10 08:34:50 | 显示全部楼层
收藏，做个忠实的观（听）众！
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号