PHPの一般的なアラート関数

//機能: 一般的なプロンプト
//パラメータ: プロンプトメッセージ、タイプまたは URL、ウィンドウ名または関数名、遅延ミリ秒 Alert("","function","close2",300);

//関数: 一般プロンプト
//パラメータ: プロンプトメッセージ、タイプまたは URL、ウィンドウ名または関数名、ミリ秒単位の遅延 Alert("","function","close2",300);
Function Alert($Str,$Typ="back",$TopWindow="",$Tim=100){
 Echo "<script>".Chr(10);</li>
<li> If(!Empty($Str)){</li>
<li> Echo "alert("Warning:\n\n{$Str}\n\n");".Chr(10);</li>
<li> }</li>
<li>
<li> Echo "function _r_r_(){";</li>
<li> $WinName=(!Empty( $TopWindow))?"top":"self";</li>
<li> Switch (StrToLower($Typ)){</li>
<li> Case "#":</li>
<li> Break;</li>
<li> Case "back":</li>
<li> Echo $WinName.".history.go(- 1);".Chr(10);</li>
<li> Break;</li>
<li> Case "reload":</li>
<li> Echo $WinName.".window.location.reload();".Chr(10);</li>
<li> Break;</li>
<li> Case "close": </li>
<li> Echo "window.opener=null;window.close();".Chr(10);</li>
<li> Break;</li>
<li> Case "function":</li>
<li> Echo "var _T=new Function('return {$TopWindow}')() ;_T();".Chr(10);</li>
<li> Break;</li>
<li> //Die();</li>
<li> デフォルト:</li>
<li> If($Typ!=""){</li>
<li> //Echo "window.{$WinName}.location. href='{$Typ}';";</li>
<li> Echo "window.{$WinName}.location=('{$Typ}');";</li>
<li> }</li>
<li> }</li>
<li>
<li> Echo "}".Chr(10); </li>
<li>
<li> //Firefox が setTimeout を実行しないようにするには</li>
<li> Echo "if(setTimeout("_r_r_()",".$Tim.")==2){_r_r_();}";</li>
<li> IF($Tim== 100 ){</li>
<li> Echo "_r_r_();".Chr(10);</li>
<li> }Else{</li>
<li> Echo "setTimeout("_r_r_()",".$Tim.");".Chr(10);</li>
<li> }</li>
<li> Echo "</script>".Chr(10);
 Exit();
}