乘风原创程序

  • asp限制域名访问实现代码
  • 2020/9/13 14:57:09
  • asp 设置只能指定域名可以使用此网站

    代码一 脚本之家原创

    <% 
    myIp = ",127.0.0.1,localhost,www.jb51.net,"
    myurl= request.ServerVariables("SERVER_NAME")
    Response.write myurl
    if InStr(myIp,","&myurl&",")>0 then
    Response.write "域名合法"
    else
    Response.write "域名不合法"
    end if
    %>

    代码二

    myIp = Array("127.0.0.1","jb51")
    myHou = new Array("",".com")
    myDirect ="//www.jb51.net/"
    ip= request.ServerVariables("HTTP_HOST")
    j=0
    for i=0 to ubound(myIp)
    'Response.Write(i&"--"&myIp(i)&"<br>")
    if InStr(ip,myIp(i)&myHou(i))>0 then
    'Response.Write(myIp(i)&"==")
    j=j+1
    end if
    next
    if j<1 then
    response.Redirect(myDirect)
    end if

    上面的代码用到了下面的资料

    asp获取当前域名和端口号方法

    asp获取当前域名从来就不是什么有难度的事情,但是在实际项目使用中,大家获取的具体URL信息可能是不同的,各个方法获取见下表,而如果要获取当前域名,可以看下面加粗部分:

    Request.ServerVariables("SERVER_NAME")'当前域名
    Request.ServerVariables("SERVER_PORT")'当前端口
    Request.ServerVariables("SCRIPT_NAME")'当前文件名
    Request.ServerVariables("QUERY_STRING")'当前页面的传入参数
    Request.ServerVariables("HTTP_USER_AGENT")'取得当前浏览器信息
    Request("remote_addr")'取得IP
    Request.ServerVariables("HTTP_REFERER")'上个页面地址
    Request.ServerVariables("HTTP_HOST")'获取当前域名

    当采用SERVER_NAME时返回的是不带端口号的URL