• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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中文件与文件夹常用处理函数(文件后缀、创建文件等)
    下一篇:ASP读取日期单日期自动补零函数代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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