用高品質高效率,改變家的心情!專業服務團隊
以極公道價格,解決打掃煩惱,立即洽詢
新莊搬家公司專業維修各大品牌冷氣,分離式、窗型、冷暖式、不冷
不開機、漏冷媒、滴水、異音、各式問題排除

首頁  •  j2h 論壇 • 程式設計討論     • 

[教學]合法入口

房東:新手
發表時間:2006-06-29
[檢舉]


php版本的

$validserver=\"\"; //這是填寫網域名稱的請用|來分隔
$url=\"\";//寫你要轉的位置


if (($validserver) && (!preg_match(\"/$validserver/\",$HTTP_REFERER))) {
echo \"\";
exit;
}

perl版本

$validserver=\"\"; //這是填寫網域名稱的請用|來分隔
$url=\"\";//寫你要轉的位置

if (($validserver) && ($ENV{HTTP_REFERER} !~ /$validserver/)) {print \"\";}


perl版本

$server=\"www.ciss.idv.tw∥www.123.com∥203.204.111.121\"; #自己添加可以通過的網址 以∥區隔


sub checkserver
{
@validserver=split(/∥/, $server);
foreach $validserver(@validserver){
return if($ENV{\'HTTP_REFERER\'} =~ /$validserver/i);
}
&errorinput(\"程式網址錯誤!請勿在非正確的網址執行此程式\");
}


php

if(!ereg(getenv(\'SERVER_NAME\'),getenv(\'HTTP_REFERER\'))){$chkserver1=1;}
if(!ereg(getenv(\'SERVER_ADDR\'),getenv(\'HTTP_REFERER\'))){$chkserver2=1;}
if(($chkserver1)&&($chkserver2)){echo \"請從入口進入\";exit;}


js的寫法!感謝羽喬提供資料
轉貼於http://tacocity.com.tw/java/js/j/08.htm





asp版的
Validserver=\"\" //這是填寫網域名稱的
URL=\"\"//填寫首頁

<%
Tohttp=Request.ServerVariables(\"HTTP_REFERER\")
if InStr(Tohttp,Validserver)=0 then
Response.write(\"\")
Response.end
end if
%>


/*
修正一下,否則在IIS上會不太正常
*/

if(!ereg(getenv(\'SERVER_NAME\'),getenv(\'HTTP_REFERER\'))){$chkserver1=1;}
if(!ereg(getenv(\'LOCAL_ADDR\'),getenv(\'HTTP_REFERER\'))){$chkserver2=1;}
if(($chkserver1)&&($chkserver2)){echo \"請從入口進入\";exit;}



php4的檢查

$chkserverip=(getenv(\'LOCAL_ADDR\'))?getenv(\'LOCAL_ADDR\'):getenv(\'SERVER_ADDR\');
if(!ereg(getenv(\'SERVER_NAME\'),getenv(\'HTTP_REFERER\'))){$chkserver1=1;}
if(!ereg($chkserverip,getenv(\'HTTP_REFERER\'))){$chkserver2=1;}






  • 贊助網站       

    廣利不動產-板橋在地生根最實在--新板特區指名度最高、值得您信賴的好房仲
    完整房訊,房屋、店面熱門精選物件,廣利不動產 優質仲介,房屋租賃、買賣資訊透明,交易真安心!
    廣利不動產-新板特區指名度最高、值得您信賴的好房仲
    您的托付,廣利用心為您服務



  •  共 0 人回應

    姓名:
    佈告內容: