简化版 分站 地图 日历 影视
计算器 行情 加解密 长度 面积
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 春 节 26
2021年 情人节 28
2021年 元宵节 40
2022年 元 旦 349
全部 综合数码金融娱乐服务报刊政府机构 推荐 申请 友情  
  • 您现在的位置:首页 >> ASP >> 内容

    asp限制域名访问实现代码

    内容摘要: 代码一%myIp = ',127.0.0.1,localhost,www.yc58.com,'myurl= request.ServerVariables('SERVER_NAME')Response.write myurlif InStr(myIp,','myurl',')0 thenResponse.write '域名合法'elseResponse.wr......

      代码一

    <%

    myIp = ",127.0.0.1,localhost,www.yc58.com,"

    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.yc58.com/"

    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%>

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2020/12/10 发布时间:15:43:15 点击:250 录入:齐天大圣
  • 上一篇:ASP将数字转中文数字(大写金额)的函数
  • 下一篇:ASP的URLDecode函数URLEncode解码
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V3.88 Build 20.12.22(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    齐天大圣® 制 作 ©2000-2021