專業鋁門窗、鍛造門設計及安裝
價格便宜、品質好、設計佳,值得您信賴
抓漏油漆工程承包,居家油漆粉刷、外牆油漆
油漆老師傅專業施工,來電免費估價!

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

合法入口

房東:懶蟲
發表時間:2007-01-09


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;}










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

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







  • 贊助網站       

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



  •  共 0 人回應

    姓名:
    佈告內容:
    其他選項: