PHP通用alert函数

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

//函数:通用提示
//参数:提示訊息,類型或網址,窗口名或函數名,延时毫秒Alert("","function","close2",300);
Function Alert($Str,$Typ="back",$TopWindow="",$Tim=100){
	Echo "<script>".Chr(10);<li>	If(!Empty($Str)){<li>		Echo "alert(\"Warning:\\n\\n{$Str}\\n\\n\");".Chr(10);<li>	}<li><li>	Echo "function _r_r_(){";<li>	$WinName=(!Empty($TopWindow))?"top":"self";<li>	Switch (StrToLower($Typ)){<li>	Case "#":<li>		Break;<li>	Case "back":<li>		Echo $WinName.".history.go(-1);".Chr(10);<li>		Break;<li>	Case "reload":<li>		Echo $WinName.".window.location.reload();".Chr(10);<li>		Break;<li>	Case "close":<li>		Echo "window.opener=null;window.close();".Chr(10);<li>		Break;<li>	Case "function":<li>		Echo "var _T=new Function('return {$TopWindow}')();_T();".Chr(10);<li>		Break;<li>		//Die();<li>	Default:<li>		If($Typ!=""){<li>			//Echo "window.{$WinName}.location.href='{$Typ}';";<li>			Echo "window.{$WinName}.location=('{$Typ}');";<li>		}<li>	}<li><li>	Echo "}".Chr(10);<li><li>	//為防止Firefox不執行setTimeout<li>	Echo "if(setTimeout(\"_r_r_()\",".$Tim.")==2){_r_r_();}";<li>	IF($Tim==100){<li>		Echo "_r_r_();".Chr(10);<li>	}Else{<li>		Echo "setTimeout(\"_r_r_()\",".$Tim.");".Chr(10);<li>	}<li>	Echo "</script>".Chr(10);
	Exit();
}