<%dim rs
set rs=server.createobject("adodb.recordset")
%><title>注册判断</title>
rs.source "select * from information where name='"&name&"'"and password='"&password&"'",conn,1,3
rs.open
if not rs.eof then
if password=rs("password") then
session("name")=ok
Response.write("<script>alert('登陆成功');location.href="登录成功.asp"</script>" )
else
response.write ("<script>alert('用户密码错误');location.href('会员登录.asp')</script>")
end if
end if
if rs.eof then
response.write ("<script>alert('用户帐号错误');location.href('会员登录.asp')</script>")
end if
set rs=nothing
rs.close

好像上面那里出错了,我的帐号和密码输入不对,都可以登录成功,那位大大来帮下忙!谢谢啦~~

楼上的大大我晓得慢慢学是好的,但是毕设就要上交了,没时间了!哎~~
感谢楼上的大大!

楼上的大大把密码错误能登录的问题解决了!但是现在用户密码都输对了还是显示用户帐号密码错误~~
我把全部check.asp的贴出来给你们看吧!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/first.asp" -->
<% dim name,password
dim db
db = "../cdms.mdb"
Set Conn = server.CreateObject("ADODB.CONNECTION")
Conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(db) & "")
name=request.Form("name")
password=request.form("password")
if name="" then
%><script language=javascript>
alert("帐号为空");
location.href="首页.asp"
</script>
<% end if %>
<%
if password="" then
%><script language=javascript>
alert("密码为空");
location.href="首页.asp"
</script>
<% end if %>
<title>注册判断</title>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from information where name='"&names&"' and password='"&password&"'"
rs.open sql,conn,1,3
if rs.eof then
response.write ("<script>alert('用户帐号密码错误');location.href('首页.asp')</script>")
response.End()
else
session("name")=ok
Response.write("<script>alert('登陆成功');location.href=('登录成功.asp')</script>" )
end if
rs.close
set rs=nothing
%>

[此贴子已经被作者于2007-5-31 10:25:06编辑过]

是不是我的代码有错误就贴成上面那种格式了?急死了!

password=md5(request("password"))
md5是什么意思?

我试了的,我吧md5去掉了!
但是还是一直用户名和密码错误,我输对了的哦!

呵呵~~那我研究下!再问个问题!
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/web/login.asp, line 17, column 230
exec="insert into information (name,niname,password,repassword,income,Email,getfrom,business,idcard)values('"&name&"','"&niname&"','"&password&"','"&repassword&"','"&income&"','"&Email&"','"&getfrom&"','"&business&"','"&idcard&"'")"
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
exec="insert into information (name,niname,password,repassword,income,Email,getfrom,business,idcard)values('"&name&"','"&niname&"','"&password&"','"&repassword&"','"&income&"','"&Email&"','"&getfrom&"','"&business&"','"&idcard&"'")"
conn.execute exec就是这句,我不晓得insert into 后面的格式!

[此贴子已经被作者于2007-5-31 15:23:38编辑过]

你那个我晓得那点错误了,哈哈~~ select * form information where name='"&names"' names应该是name 我数据库里没有
names哈哈~谢谢大大!

exec="insert into information (name,niname,password,repassword,income,Email,getfrom,business,idcard)values('"&name&"','"&niname&"','"&password&"','"&repassword&"','"&income&"','"&Email&"','"&getfrom&"','"&business&"','"&idcard&"')"
conn.execute exec
错误类型：
Microsoft JET Database Engine (0x80040E14)
INSERT INTO 语句的语法错误。
/web/login.asp, 第 18 行
第十八行是conn.execute exec 貌似没错嘛！

[此贴子已经被作者于2007-5-31 20:10:17编辑过]

我把前面的name password 加上[]就可以了[name] [password]
但是显示是注册成功，可是没得写到数据库里！