asp读取access数据库

刚做了个小网站，asp+access

记录下用到的知识点

login.asp

'登陆成功后，设置session
session("coldriver_user")="admin"
session("id")=rs("ID")
session("usertype")=rs("type")
session.Timeout = 10
response.redirect "manage2.htm"

logout.asp

<%
Session.Abandon() '提前结束session
response.redirect("login.htm")
%>

conn.asp

'判断页面超时
<%
loginId = session("id")
usertype = session("usertype")
if loginId="" then
	response.write "<script>alert('页面超时，请重新登录');</script>" 
	Response.Write("<script>window.location.href='login.htm';</script> ")
  response.end
end if
'检查权限
if usertype <> "admin" then
	response.write "<script>alert('只有管理员可以进行此操作');</script>" 
	Response.Write("<script>window.location.href='login.htm';</script> ")
  response.end
end if
%>
'连接数据库
<%
dim conn  
dim connstr
connstr="DBQ="+server.mappath("mydata.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '创建数据库连接对象
conn.open connstr '连接数据库
%>

del.asp

<!--#include file="conn.asp"--> '所有相关操作都引用conn，也就共用了权限判断和session超时判断
<%
id=request.querystring("id")
conn.execute("delete from [ceshima] where id="&id)
'弹窗并跳转
response.write "<script>alert('删除成功');</script>" 
Response.Write("<script>window.location.href='manage.asp';</script> ")
response.End()
%>

save.asp

set rs=server.CreateObject("adodb.recordset")
sql = "insert into [ceshima] (key,password) values('"&key&"','"&password&"')"
rs.open sql,conn,3,3

edit.asp

conn.execute("update [user] set password='"&password&"' where ID="&CInt(id))

引用变量xxx为数字类型，则使用&xxx，非数字则&xxx&