PHP通用alert函數

//函数:通用提示
//参数:提示訊息,類型或網址,窗口名或函數名,延时毫秒Alert("","function","close2",300);

//函数:通用提示
//参数:提示訊息,類型或網址,窗口名或函數名,延时毫秒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>	Default:</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();
}