ASP函数，实现多个功能的弹出对话框

'================================================
 '函数名：Alert
 '作 用：弹出对话框
 '参 数：Alert----弹出对话框
 ' str ----文本
 ' 用法：Alert"添加成功！"
 '返回值：真
 '================================================
Function Alert(str)
 Response.Write("<script language=javascript>alert('"&str&"')</script>")
End Function
'================================================
 '函数名：AlertAndBack
 '作 用：弹出对话框，并返回前一页
 '参 数：AlertAndBack----弹出对话框
 ' str ----文本
 ' 用法：AlertAndBack"添加成功！"
 '返回值：真
 '================================================
function AlertAndBack(str)
 Response.Write("<script language=javascript>alert('"&str&"');history.back(-1)</script>")
end function
'================================================
 '函数名：AlertAndTo
 '作 用：弹出对话框，并以 _blank,_self,.....来打开一个网页
 '参 数：AlertAndTo----弹出对话框
 ' str ----文本;href ----网页;target ----打开方式
 ' 用法：AlertAndTo"添加成功！","index.asp,_blank"
 '返回值：真
 '================================================
function AlertAndTo(str,href,target)
 Response.Write("<script language=javascript>alert('"&str&"');window.open('"&href&"','"&target&"')</script>")
end function
'================================================
 '函数名：AlterRedirect
 '作 用：弹出对话框，并转到一个网页
 '参 数：AlterRedirect----弹出对话框
 ' msg ----文本,redirectURL  ---网页
 ' 用法：AlterRedirect"添加成功！","index.asp"
 '返回值：真
 '================================================
Function AlterRedirect(msg,redirectURL)
 Response.Write "<script>alert('"&msg&"');window.location='"&redirectURL&"';</script>"
End Function
'================================================
 '函数名：RedirectURL
 '作 用：转到一个网页
 '参 数：RedirectURL----弹出对话框
 ' strURL ----文本
 ' 用法：RedirectURL"index.asp"
 '返回值：真
 '================================================
Function RedirectURL(strURL)
 Response.Write "<script>window.location='"&strURL&"';</script>"
End Function
'================================================
 '函数名：AlterClose
 '作 用：弹出对话框，确定后关闭页面
 '参 数：AlterClose----弹出对话框
 ' msg ----文本
 ' 用法：AlterClose"添加成功!"
 '返回值：真
 '================================================
Function AlterClose(msg)
 Response.Write "<script>alert('"&msg&"');window.close();</script>"
End Function

'================================================
 '函数名：AlterBack
 '作 用：弹出对话框，并返回前一页
 '参 数：AlterBack----弹出对话框
 ' msg ----文本
 ' 用法：AlterBack"添加成功!"
 '返回值：真
 '================================================
Function AlterBack(msg)
 Response.Write "<script>alert('"&msg&"');history.back();</script>"
End Function

转载于:https://www.cnblogs.com/leevane/archive/2008/09/26/1299767.html