'************************
'子程序名：信息提示窗口
'功能：信息提示，并作返回或者轉向
'參數：
'str 提示字符串
'stype 處理類型:Back 返回 GoUrl 轉向 Close 關閉
'url 轉向方向
'************************
Sub MsgBox(str,stype,url)
 response.write "script language=javascript>"
 response.write "alert('"str"');"
 select case stype
 case "Back"
  response.write "history.go(-1);"
 case "GoUrl"
  response.write "window.location='"url"'"
 case "Close"
  response.write "window.close()"
 end select
 response.write "/script>"
End Sub