asp 弹出窗口脚本函数

最新推荐文章于 2019-08-14 13:54:17 发布

airweilai

最新推荐文章于 2019-08-14 13:54:17 发布

阅读量422

点赞数

文章标签： asp 脚本

本文链接：https://blog.csdn.net/airweilai/article/details/3042885

版权

asp 弹出窗口脚本函数

 
 Function MsgBox(error,n)
  Copyright = "/n/n　　　　　Copyright by "
  Response.write "<script>alert('" & Replace(error,"'","/'") & Copyright & "');" & vbcrlf
  If Vartype(n) = 2 then
    If n = 1 then  Response.write "history.go(-1);" & vbcrlf
    If n = 3 then   Response.write "parent.top.location.reload();" & vbcrlf
    If n=4 or n=5 then Response.write "opener.location.reload();" & vbcrlf
    If n=2 or n=5 then Response.write "window.close();" & vbcrlf
  else
    Response.write "window.location.href='" & n & "';" & vbcrlf
  end if
  response.write " </script>"
End Function
 