ASP 信息提示函数并作返回或者转向
有时候我们在写asp的时候需要给用户一些反馈信息,这个自定义的返回信息函数,很方便大家使用
'************************
'子程序名:信息提示窗口
'功能:信息提示,并作返回或者转向
'参数:
'str提示字符串
'stype处理类型:Back返回GoUrl转向Close关闭
'url转向方向
'************************
SubMsgBox(str,stype,url)
response.write"<scriptlanguage=javascript>"
response.write"alert('"&str&"');"
selectcasestype
case"Back"
response.write"history.go(-1);"
case"GoUrl"
response.write"window.location='"&url&"'"
case"Close"
response.write"window.close()"
endselect
response.write"</script>"
EndSub
具体的使用方法就不说了,很简单