asp 設(shè)置只能指定域名可以使用此網(wǎng)站
代碼一 腳本之家原創(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 j1 then
response.Redirect(myDirect)
end if
上面的代碼用到了下面的資料
asp獲取當(dāng)前域名和端口號(hào)方法
asp獲取當(dāng)前域名從來就不是什么有難度的事情，但是在實(shí)際項(xiàng)目使用中，大家獲取的具體URL信息可能是不同的，各個(gè)方法獲取見下表，而如果要獲取當(dāng)前域名，可以看下面加粗部分：
Request.ServerVariables("SERVER_NAME")'當(dāng)前域名
Request.ServerVariables("SERVER_PORT")'當(dāng)前端口
Request.ServerVariables("SCRIPT_NAME")'當(dāng)前文件名
Request.ServerVariables("QUERY_STRING")'當(dāng)前頁(yè)面的傳入?yún)?shù)
Request.ServerVariables("HTTP_USER_AGENT")'取得當(dāng)前瀏覽器信息
Request("remote_addr")'取得IP
Request.ServerVariables("HTTP_REFERER")'上個(gè)頁(yè)面地址
Request.ServerVariables("HTTP_HOST")'獲取當(dāng)前域名
當(dāng)采用SERVER_NAME時(shí)返回的是不帶端口號(hào)的URL
您可能感興趣的文章:- PHP實(shí)現(xiàn)限制域名訪問的實(shí)現(xiàn)代碼(本地驗(yàn)證)
