asp 設置只能指定域名可以使用此網站

代碼一 原創(chuàng)

<% 
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 ="http://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