動的ダウンロード システムを例に挙げます。次
の場所にある SoftDown.Asp ファイルを開きます。
request.QueryString("ID")="" の場合
response.write "接続できないか、ダウンロード ソフトウェアが指定されていません"
応答.終了
終了する場合
dim strReferer,domain,splDomain,isHttp
を上または下に
追加します。
isHttp=false
'このサイトはシステム URL リストをダウンロードします。http:// を持ち込まないでください。
ドメイン = "sron.net,61.156.14.223,61.156.14.227"
splDomain=split(ドメイン,",")
strReferer=Request.ServerVariables("HTTP_REFERER")
for iii = 0 から ubound(splDomain)
if instr(strReferer,trim(splDomain(iii)))>0 then isHttp=True
次
isnull(strReferer) または isHttp=false の場合
Response.Write "他の Web サイトからのダウンロード リンクは許可されていません。<a href=""./"">ダウンロードする前にこのサイトに入ってください。</a>"
データベースを閉じる
応答.終了
end if
Web サイトのダウンロード システム URL リストは、ダウンロード チャネル URL のドメイン名にアクセスします。たとえば、ダウンロード チャネルには複数の URL を使用してアクセスできるため、ここではカンマで区切ります。