如何进行数据库的单行查询？附代码
在access数据库中，怎样对单独一行数据查询呢？？下面的程序有点错误，作用是通过用户名和密码验证后，想输出用户名所对应的那一行的信息，验证很成功，可就是不能输出数据，。红色那行可能有错，可不知如何纠正还请高手指教。谢谢！！！！！！！！！！！！！！！！
<%@ language="vbscript" %>
<html><head><title>老会员登陆</title>
<style type="text/css">
<!--
td{font:10pt;}
-->
</style>
</head>
<body style="font:10pt">
<%
dim idd
dim flag
user=request.form("username")
pass=request.form("userpw")
'防止不经过表单递交页面进入此页面
if isnull(user) then
response.write "<center><h1>错误操作！请重试。。。。</h1></center>"
response.End
end if
flag=0
found=false
userexit=1
'连接数据库
set conn=server.createobject("adodb.connection")
connstring="dbq="+server.mappath("alumni.mdb")+";defaultdir=;driver={Microsoft Access Driver (*.mdb)};"
conn.open connstring
set obj=conn.execute("select * from file")
do until obj.eof
if ((user=obj("username")) and (pass=obj("userpw"))) then
response.write "<p align=center><font style=""font:12pt"">登陆成功！</font></p>"
response.end
idd=obj("id")
sql="select * from file where id="+idd
response.write obj("id")
response.end
found=true
session("login")=session.SessionID
session("loginuser")=obj("username")
exit do
else
if user=obj("username") then
userexit=0
exit do
end if
end if
obj.movenext
loop
'没有该会员记录
if userexit=0 then
session("user")=user
response.write "<center>对不起，您的密码输入错误，请<a href=""delmiddle.asp"">重新输入</a>.</center>"
response.end
end if
if found=false then
session("user")=user
response.write"<center>对不起，数据库中没有这个同学的记录，是否<a href=""add.asp"">添加记录</a>?</center>"
response.end
flag=1
end if
if not obj.eof then
obj.movefirst
end if
'关闭数据库
conn.close
set conn=nothing
%>
</body>
</html>
[此贴子已经被作者于2004-07-23 20:41:26编辑过]
