asp实现返回上一页和转到另一页的功能函数
'函数名称: Alert(showType,str,url)
'函数功能: 弹出对话框
'参数说明: showType 显示类别 1 返回上一页面 2 转到另一页面 3 关闭窗口
' str 错误信息
' url 转向地址
'*********************************
sub Alert(showType,str,url)
response.Write("<script language=""javascript"">"& vbcrlf)
response.Write("<!--"& vbcrlf)
response.Write("window.alert("""& str &""");"& vbcrlf)
if showType=1 then
response.Write("window.history.go(-1); "& vbcrlf)
elseif showType=2 then
response.Write("window.location.href ="""& url &"""; "& vbcrlf)
elseif showType=3 then
response.Write("window.opener=null; "& vbcrlf)
response.Write("window.close(); "& vbcrlf)
elseif showType=4 then
response.Write("top.location.href ="""& url &"""; "& vbcrlf)
end if
response.Write("//-->"& vbcrlf)
response.Write("</script>")
end sub
本文来自: IT知道网(http://www.itwis.com) 详细出处参考:http://www.itwis.com/html/asp/aspsill/20081107/2742.html
'函数名称: Alert(showType,str,url)
'函数功能: 弹出对话框
'参数说明: showType 显示类别 1 返回上一页面 2 转到另一页面 3 关闭窗口
' str 错误信息
' url 转向地址
'*********************************
sub Alert(showType,str,url)
response.Write("<script language=""javascript"">"& vbcrlf)
response.Write("<!--"& vbcrlf)
response.Write("window.alert("""& str &""");"& vbcrlf)
if showType=1 then
response.Write("window.history.go(-1); "& vbcrlf)
elseif showType=2 then
response.Write("window.location.href ="""& url &"""; "& vbcrlf)
elseif showType=3 then
response.Write("window.opener=null; "& vbcrlf)
response.Write("window.close(); "& vbcrlf)
elseif showType=4 then
response.Write("top.location.href ="""& url &"""; "& vbcrlf)
end if
response.Write("//-->"& vbcrlf)
response.Write("</script>")
end sub
本文来自: IT知道网(http://www.itwis.com) 详细出处参考:http://www.itwis.com/html/asp/aspsill/20081107/2742.html