09/10/2018, 23:26
giúp mình về tìm kiếm trong asp với
mình mới học về asp mong các bạn sửa giúp
no' chạy được xong chỉ cho kết quả recordset la` rs đầu tiên
nhưng khi nhập thông tin để đăng nhập ở rs thu 2 thi` ko thấy gì mà nó lại báo lỗi
<%
sqlstr="select * from data"
rs.open sqlstr,conn
dim i,a,b
a=trim(Request.Form("text1"))
b=trim(Request.Form("text2"))
if rs.recordcount >0 then rs.movefirst
for i=1 to rs.eof
if(a=rs("user"))and(b=rs("pass"))then
response.write "login suceefull:"& rs("user") & "ma login:" & rs("id")
else
Response.Write("error")
end if
rs.movenext
next
%>
<%
rs.close
%>
no' chạy được xong chỉ cho kết quả recordset la` rs đầu tiên
nhưng khi nhập thông tin để đăng nhập ở rs thu 2 thi` ko thấy gì mà nó lại báo lỗi
<%
sqlstr="select * from data"
rs.open sqlstr,conn
dim i,a,b
a=trim(Request.Form("text1"))
b=trim(Request.Form("text2"))
if rs.recordcount >0 then rs.movefirst
for i=1 to rs.eof
if(a=rs("user"))and(b=rs("pass"))then
response.write "login suceefull:"& rs("user") & "ma login:" & rs("id")
else
Response.Write("error")
end if
rs.movenext
next
%>
<%
rs.close
%>
Bài liên quan
đổi thành
While !rs.EOF
Rs.MoveFirst
While Not Rs.EOF
if(a=rs("user"))and(b=rs("pass"))then
response.write "login suceefull:"& rs("user") & "ma login:" & rs("id")
else
Response.Write("error")
end if
rs.movenext
Wend
Rs.MoveFirst
While Not Rs.EOF
if(a=rs("user"))and(b=rs("pass"))then
response.write "login suceefull:"& rs("user") & "ma login:" & rs("id")
else
Response.Write("error")
end if
rs.movenext
Wend
end if