刚做了个小网站,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&