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