有时候我们在写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
具体的使用方法就不说了，很简单
