发贴好久了。都没有回音。我点急了。

[wbqc9912115]

我的等登陆页面。求解。。。。


<%
dim user,pass
user=request("username")
pass=request("password")

dim temp1,temp2
temp1=user
temp2=pass
if len(temp1)=0 and len(temp2)=0 then
response.write "错误的用户名或密码"

else if temp1<>"" and temp2<>"" then

dim rs,conn,connstr,sql
connstr="dbq="&server.mappath("asp_wang.mdb")&";defaultdir=;driver={microsoft access driver(*.mdb)};"
set conn=server.createobject("adodb.connection")
conn.open connstr
sql="select * from userinfo where username='"&user&"' and password='"&pass&"'"
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
if rs.eof then
response.write "该用户名并存在.或用户名与密码不正确。"
else
response.write "登陆成功。"
end if
end if
end if
%>

不知为何运行时。只显示“该用户名并存在.或用户名与密码不正确。”不管你输入的是否
正确。

[firesay]

用这个吧
<!-- #include file="conn.inc" -->
<%
loginame=request.form("loginname")
password=request.form("password")
session("loginame")=loginame
sql = "Select userID,userpwd From login Where userID ='" &loginame& "'"
Set rs = dbc.Execute( sql )
If rs.EOF Then
response.write ("<center>")
response.write ("<br><br>用户名不正确！<br><br>")
response.write ("请[<a href='login.asp' target='_self'><font color='#FF0000'>重新登录</font></a>]")
response.write ("</center>")
else
dim temp1 '加密
dim temp2
temp1=""
for i=1 to len(password)
temp2=mid(password,i,1)
temp2=chr(asc(temp2)+8)
=temp1&temp2
next
password=temp1
sql = "Select * From login Where userpwd = '" &password& "' and userID='"&loginame&"'"
Set rs = dbc.Execute( sql )
If rs.EOF Then
response.write ("<center>")
response.write ("<br><br>密码不正确！<br><br>")
response.write ("请[<a href='login.asp' target='_self'><font color='#FF0000'>重新登录</font></a>]")
response.write ("</center>")
else
response.write ("成功！")
end if
end if

[jacklinchen]

呵呵~~,是分太少了吧~~~~~~~~` 这样修改:


set rs=conn.execute(sql)
改成
rs.open sql,conn,1,1即可

[firesay]

给分分哦~ ：）

[zhongwancheng]

去掉
set rs=server.createobject("adodb.recordset")

[possible_Y]

dim user,pass
user=Trim(request("username"))
pass=Trim(request("password"))

if user<>"" and pass<>"" then
dim rs,conn,connstr,sql
connstr="dbq="&server.mappath("asp_wang.mdb")&";defaultdir=;driver={microsoft access driver(*.mdb)};"
set conn=server.createobject("adodb.connection")
conn.open connstr
sql="select * from userinfo where username='"&user&"' and password='"&pass&"'"
set rs=conn.execute(sql)
if rs.eof then
response.write "该用户名并存在.或用户名与密码不正确。"
else
response.write "登陆成功。"
end if
else
response.write "用户名或密码不能为空！"
end if

[whb147]

Set rs= Server.CreateObject("ADODB.Recordset")
strSql="select * from user where 用户名='"&Uname&"' and 密码='"&Upass&"'"
rs.open strSql,Conn,1,3
if rs.eof then
response.write "该用户名并存在.或用户名与密码不正确。"
else
response.write "登陆成功。"
end if
这个一点行，我试过。