asp实用sub小程序

关闭数据库连接

sub close_conn
  conn.close
  set conn = nothing
end sub

关闭实例化数据

sub close_rs
  rs.close
  set rs = nothing
end sub

弹窗并返回到上一个页面

sub back(info)
    response.write"<script>alert('"&info&"');history.back();</script>"
    response.end
end sub

例：

if request.cookies("XXX")("user") = "" then
    call back("非法操作！")
end if

弹窗并跳转至指定页面

sub location(info,url)
    response.write"<script>alert('"&info&"');location.href='"&url&"';</script>"
    response.end
end sub

例：

if request.cookies("XXX")("user")  <> "" then
    call location("登录成功！","user.asp")
end if

直接跳转至指定页面

sub jump(url)
    response.write"<script>location.href='"&url&"';</script>"
    resonse.end
end sub

例：

if request.cookies("XXX")("user") <> "" then
    call jumo("user.asp")
end if

以上都是asp+JavaScript的结合，形成比较整洁的页面效果。