aspのドメインアクセス制限コード

指定されたドメイン名のみ利用可能なaspセット

コード1 スクリプトハウスのオリジナル

<% 
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 "Domain is legal"
else
Response.write "The domain name is not legal"
end if
%>

コード2

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")'Current port
Request.ServerVariables("SCRIPT_NAME")'現在のファイル名
Request.ServerVariables("QUERY_STRING")'The incoming parameters for current page(現在のページの受信パラメータ)
Request.ServerVariables("HTTP_USER_AGENT")'current browser informationを取得します。
リクエスト("remote_addr")'IPを取得します。
Request.ServerVariables("HTTP_REFERER")'最終ページアドレス
Request.ServerVariables("HTTP_HOST")'current domain nameを取得します。

SERVER_NAMEを使用した場合、ポート番号を除いたURLが返されます。