ASP网页登陆密码及用户名检测(VB+ACCESS)

1.建立一个access数据库保存，打开“使用表设计器创建表”详细如下：
字段名称 数据类型
id 自动编号
username 文本
password 文本

2. login.asp 文件内容如下：

style="border:1px #cccccc solid;">

∷ 管理员登陆 ∷

用户名: id="username">

密 码: id="password">

tabindex="3">

2. checkmima.asp 文件内容如下：

<%
db="数据库路径/数据库名称.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver(*.mdb)};"
conn.Open connstr
%>

<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")

sql="select username,password,flag from zhuce where password='"&password&"' and

username='"&username&"'"
set rs = conn.execute(sql)
if not(rs.bof and rs.eof) then
if password=rs(1) then
session("admin")=rs(0)
session("flag")=rs(2)
Response.Redirect "Default.asp" // 登陆成功后要跳转到的页面
else
call Error
end if
else
call Error()
end if

sub Error()
Response.Write ""
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing

%>

以上信息我已经做好了一个发你邮箱 hackerbasic@126.com 里了!