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


            有时候我们在写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



具体的使用方法就不说了，很简单