计算机毕业设计中asp实用sub小程序

 关闭数据库连接

sub close_conn
  conn.close
  set conn = nothing
end sub
1
2
3
4

关闭实例化数据

sub close_rs
  rs.close
  set rs = nothing
end sub
1
2
3
4

弹窗并返回到上一个页面

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

例：

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

弹窗并跳转至指定页面

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

例：

 

 

例：

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

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