asp限制域名访问实现代码
更新时间：2020年09月13日 14:57:09 投稿：mdxy-dxy
这篇文章主要介绍了asp限制域名访问实现代码,需要的朋友可以参考下
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
您可能感兴趣的文章:
相关文章
ASP中SELECT下拉菜单同时获取VALUE和TEXT值的实现代码
这篇文章主要介绍了ASP中SELECT下拉菜单同时获取VALUE和TEXT值的实现代码,需要的朋友可以参考下2020-06-06
本文为大家分享了六段经典的asp控制xml数据库代码，感兴趣的小伙伴们可以参考一下2015-09-09
asp 读文件最后一行的函数代码2009-12-12
收集asp的常用函数...2006-08-08
ASP程序给上传的图片增添水印效果!...2007-02-02
ASP使用MYSQL数据库全攻略...2006-09-09
ASP ACCESS 日期操作语句小结 By Stabx...2006-10-10
这要用到计划任务，一般在服务器上操作也挺好的。2011-02-02
ASP中取得图片宽度和高度的类（无组件）...2007-03-03
jb51生成所有页面的效果+分页生成...2006-08-08
最新评论