asp限制域名访问实现代码
asp设置只能指定域名可以使用此网站
代码一毛票票原创
<%
myIp=",127.0.0.1,localhost,www.nhooo.com,"
myurl=request.ServerVariables("SERVER_NAME")
Response.writemyurl
ifInStr(myIp,","&myurl&",")>0then
Response.write"域名合法"
else
Response.write"域名不合法"
endif
%>
代码二
myIp=Array("127.0.0.1","jb51")
myHou=newArray("",".com")
myDirect="//www.nhooo.com/"
ip=request.ServerVariables("HTTP_HOST")
j=0
fori=0toubound(myIp)
'Response.Write(i&"--"&myIp(i)&"
")
ifInStr(ip,myIp(i)&myHou(i))>0then
'Response.Write(myIp(i)&"==")
j=j+1
endif
next
ifj<1then
response.Redirect(myDirect)
endif
上面的代码用到了下面的资料
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