加入收藏 | 设为首页
爱江湖网站LOGO
您当前的位置:首页 > 学习笔记 > WEB后端

ASP得到当前页面完整地址

发布时间:2024-10-29  Asp

"http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING")

Request.ServerVariables("HTTP_HOST") '得到域名

Request.ServerVariables("PATH_INFO") '得到当前文件路径

"?" & Request.ServerVariables("QUERY_STRING") '得到参数


做asp程序的时候,有时候需要用的着!

dim url
url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")
if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then
url=url & "?" & request.ServerVariables("QUERY_STRING")
end if
response.Write url

获取IP的函数

Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function


来顶一下
返回首页
返回首页
上一篇
asp批量生成html静态页面方法
下一篇
ASP从字符串中提取数字或者字符串转数字型的方法
发表评论 共有条评论
验证码: 匿名发表
推荐资讯
元宇宙之侠剑江湖游
元宇宙之侠剑江湖游
什么是江湖 - 江湖遐想
什么是江湖 - 江湖遐
如果每一只江湖怪物,都爱着一个玩家
如果每一只江湖怪物,都
解除卡、陷害卡、捣乱卡、吸血虫满大厅砸
解除卡、陷害卡、捣乱
相关文章
    无相关信息
栏目更新
栏目热门