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