ASP与ACCESS的登陆总是实现不了。怎么办？急用：

ASP与ACCESS的登陆总是实现不了。怎么办？急用：

登陆界面：







<%
xuasmdb="db1.mdb" '数据库地址

set conn=server.CreateObject("adodb.connection") '创建数据连接对象
DBPath = Server.MapPath(xuasmdb) '得到物理地址
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath '打开数据库

if request("user")="" or request("pass")="" Then '如果用户和错误都为空的时候
response.write ""
conn.close : set conn=nothing
else
user = request("user") '获取提交的用户名
pass = trim(request("pass")) '获取密码

sql = "select * from admin where [user] = '"&user&"' and [pass] = '"&pass&"'" 'sql语句，用户名和密码对比数据库，是否有值
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn, 1, 1

if rs.recordcount = 0 Then '总数为0说明没有值，提示失败
response.write ""
conn.close : set conn=nothing
Else '反之成功
response.write ""
conn.close : set conn=nothing
End if
end if
%>

成功啦！


验证界面：













数据库有个admin的表里面有id、user 、pass 3个！
分数拿来额！
QQ1902025参考资料：自己做的

o.....

登录页面 index.htm

姓名：



密码：





注册

验证页面 check3.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>







<%
dim name,pass
name=Trim(request.form("name"))
pass=Trim(request.form("pass"))
if name="" then
response.write "姓名未填写!返回"
response.end
end if
if pass="" then
response.write "密码填写!返回"
response.end
end if
%>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("yh.mdb")
'验证管理员
sqlcmd="select * from yh where name='"&name&"' and pass='"&pass&"'"
set rs=conn.execute(sqlcmd)
if rs.eof then
response.write "错误的用户名或密码！请返回首页重新填写"
else
Session("name")=rs.Fields("name")
Session("pass")=rs.Fields("pass")
response.write "欢迎您"&name&"，
"
rs.Close()
conn.Close
end if
%>
1211


补充： 在该目录下建立数据库 yh.mdb
表名为yh 字段为 name, pass
以上信息可以修改为你想要的信息！

rs.Open ="Select * Form t_user where d_user='"&username&"' and d_pass='"&userpwd&"'"

参考资料：www _veryasp _cn

你的密码不错才怪的。
你看看你check3.asp着个页面 的有一段着个
<%elseif md5(userpwd)<>rs("userpwd") then%>
你的MD5文件呢？
好象没有包含进来把啊。。。
你把着一段<%elseif md5(userpwd)<>rs("userpwd") then%>
给改成<%elseif userpwd<>rs("userpwd") then%>
试试看。
要不你也可以在
下面加个

前提是有着个文件。
建议你用MD5加密。