Question

asp查询记录如何重复列取？？？

dim users,strInfo
users = Request.Form("user")
If Len(users) = 0 Then
Response.Write("会员账号不能为空")
Exit Sub
End If
rs.open "select * from Users where user='" & users & "'",con,1,1
If rs.bof And rs.eof Then
Response.Write("该会员账号不存在！！！")
Exit Sub
Else
If IsNull(rs("dl")) or rs("dl") = "" Then
Response.Write("该账号未冲值！剩余时间0天！")
Exit Sub
End If

strInfo = "会员账号:" & rs("User") & " 姓名:" & rs("Names") & " 冲值时间:" & rs("Times")
Response.Write strInfo '这里是返回的用户资料
End If
rs.close
con.close
Set rs = Nothing
Set con = Nothing

以上代码是由一个VB程序提交用户名进行查询就可以获得并返回该用户的部分信息！
我想实现就算数据库里有重复的用户名记录也要全部返回，
比如有2个叫‘小王’的，就返回2个人的信息！而不是一个。

请问高手这段代码如何加以修改能实现这样的功能？？

Answer 1

dim users,strInfo
users = Request.Form("user")
If Len(users) = 0 Then
Response.Write("会员账号不能为空")
Exit Sub
End If
rs.open "select * from Users where user='" & users & "'",con,1,1
If rs.bof And rs.eof Then
Response.Write("该会员账号不存在！！！")
Exit Sub
Else
If IsNull(rs("dl")) or rs("dl") = "" Then
Response.Write("该账号未冲值！剩余时间0天！")
Exit Sub
End If

Do While Not Rs.EOF
strInfo = "会员账号:" & rs("User") & " 姓名:" & rs("Names") & " 冲值时间:" & rs("Times")
Response.Write strInfo &"<br />"'这里是返回的用户资料
Rs.MoveNext
loop

End If
rs.close
con.close
Set rs = Nothing
Set con = Nothing

Answer 2

将你要输出的字段加个while语句.
如:
while rs.eof
strinfo=strinfo&rs("User")
rs.movenext
wend

Answer 3

遍历一下strInfo就行了！ 有几条，显示几条！