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=1then
response.Write("window.history.go(-1);"&vbcrlf)
elseif showType=2then
response.Write("window.location.href="""&url&""";"&vbcrlf)
elseif showType=3then
response.Write("window.opener=null;"&vbcrlf)
response.Write("window.close();"&vbcrlf)
elseif showType=4then
response.Write("top.location.href="""&url&""";"&vbcrlf)
end if
response.Write("//-->"&vbcrlf)
response.Write("</script>")
end sub