一小段代码大家帮忙看一下,在线等,解决给分!

[fzycool]

我刚学asp几天
下面代码大家帮忙看一下,老是通不过.
<%Response.Buffer=True%>
<% dim conn
dim rs
dim sql
user_name=request.form("username")
password = request.form("password")
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("db1.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from login where user_id="&username&" and password="&password
rs.open sql,conn,1,1 ________________这里显示出错_________________
rs.movefirst
if rs.eof then
Response.Redirect "error.asp"
else
Response.Redirect "login.asp"
end if
%>

[fzycool]

就算是没有记录,也该向error.asp跳转啊.

[yaya_sky]

不是的，sql语句错误是没法执行的 user_id=后面没值啊？

[fzycool]

我改过来了,一个变量名写错了,但是改了之后错误是一样的啊.

[yaya_sky]

select * from login where user_id='' and password='aaaaaaa'
值是不是应该加引号啊？

[fzycool]

我也是这么想的,但是怎么加呢?

[yaya_sky]

sql="select * from login where user_id='"&username&"' and password='"&password & "'"

[lovebeyondforever]

sql="select * from login where user_id="&username&" and password="&password

-------------------------
sql="select * from login where (user_id='"&username&"' and password='"&password&"') "

[fzycool]

还是不行.

[fzycool]

select * from login where user_id='adfa' and password='asdfasd'

[fzycool]

还是出一样的错,

[害虫滴害虫]

user_id在数据库中的数据类型是什么,不要搞错啦!

[lovebeyondforever]

rs.movefirst //?
if rs.eof then

[wfront]

应该改成:
sql="select * from login where user_id='"& username & "' and password='" & password & "'"

[fzycool]

都是字符型的数据．
rs.movefirst
if rs.eof then
是为了到第一条记录的时候来判断是不是记录尾，来看是不是查到数据了

[fzycool]

顶一下．

[lightenvoy]

<%Response.Buffer=True%>
<% dim conn
dim rs
dim sql
user_name=request.form("username")
password = request.form("password")
if user_name="" then
'......
response.write("没有数据")
else
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("db1.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from login where user_id='"& username & "' and password='" & password & "'"
rs.open sql,conn,1,1 ________________这里显示出错_________________
' rs.movefirst
if rs.eof and rs.bof then
Response.Redirect "error.asp"
else
Response.Redirect "login.asp"
end if
end if
%>

[fzycool]

加是加上了，但是显示１３行，也就是
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("db1.mdb")
这和行出错，我以前连ＡＣＣＥＳＳ也是用的这种方法啊，数据库也有数据，类型也对．

[fzycool]

up

[fzycool]

up

[lightenvoy]

db="db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr