帮我写简单的ASP能实现管理员登陆代码

来源：百度知道 编辑：UC知道 时间：2024/09/28 07:19:25
高手帮我写一个好吗,本人是小菜.
我有ADMIN表
表里有ID和PASS
要用session的
我找了很多都不行.
我做的用户和密码都可以验证就是POST过去就无法显示.刷新就用户吗错误.
高手帮我写一个好用的好吗
用session控制,就是在管理员才能看的地方加session的.
我的系统是2003.以前搞过一次是可以用,后来不知道怎么了就不行了.
最好是详细的.复制就可以用的.
ACCESS的数据库

<%
dim conn
dim connstr
'on error resume next
call conn_init()

sub conn_init()
'on error resume next

connstr = "DBQ=" + server.mappath("数据库名称.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
end if
end if
end sub

sub endConnection()
conn.close
set conn=nothing
end sub

%>
<% dim rs,sql