asp 设置只能指定域名可以使用此网站
代码一 脚本之家原创

1. <%
   
2. myIp = ",127.0.0.1,localhost,www.jb51.net,"
   
3. myurl= request.ServerVariables("SERVER_NAME")
   
4. Response.write myurl
   
5. if InStr(myIp,","&myurl&",")>0 then
   
6. Response.write "域名合法"
   
7. else
   
8. Response.write "域名不合法"
   
9. end if
   
10. %>

复制代码

代码二

1. myIp = Array("127.0.0.1","jb51")
   
2. myHou = new Array("",".com")
   
3. myDirect ="//www.jb51.net/"
   
4. ip= request.ServerVariables("HTTP_HOST")
   
5. j=0
   
6. for i=0 to ubound(myIp)
   
7. 'Response.Write(i&"--"&myIp(i)&"<br>")
   
8. if InStr(ip,myIp(i)&myHou(i))>0 then
   
9. 'Response.Write(myIp(i)&"==")
   
10. j=j+1
    
11. end if
    
12. next
    
13. if j<1 then
    
14. response.Redirect(myDirect)
    
15. end if

复制代码

上面的代码用到了下面的资料
asp获取当前域名和端口号方法

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

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

复制代码

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

来源：https://www.jb51.net/article/195527.htm
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！