ASP 信息提示函数并作返回或者转向

'************************'子程序名：信息提示窗口'功能：信息提示，并作返回或者转向'参数：'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