ASP information prompt function and make return or turn _ application technique

Sometimes we need to give users some feedback when writing ASP, this custom return information function is very convenient for everyone to use

' ************************
' subroutine name: Information Prompt window
' function: Informational prompt, and make return or turn
' parameter:
' str prompt string
' stype processing type: Back return Gourl to close off
' URL steering Direction
' ************************
Sub MsgBox (str,stype,url)
 Response.Write "< Script language=javascript> "
 Response.Write" alert (' "&str&"); "
 Select Case Stype Box
 "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

The specific use of the method will not say, very simple