欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-03-26 08:41:08
有时候我们在写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

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

相关标签: ASP 信息提示