Question

asp读取数据库无法显示数据 在线等！~~~~~ 代码如下：

<% dim a,b
b= rs("room_id")
a=split(b,"，")

for each i in a
set rs_top=server.CreateObject("adodb.recordset")
rs_top.open "select * from hotel_price where id="&cint(i)
rs_top.open sql,conn,1,1
if rs_top.eof and rs_top.bof then
response.write "无"
else
%>
<%=rs_top("name")%>
<%
end if
next%>

Answer 1

room_id 全部是数字?
<%
Dim a,b
b= rs("room_id")
a = Split(b,"，")
For i=0 To UBound(a)-1
Set rs_top=server.CreateObject("adodb.recordset")
sql = "select * from hotel_price where id="&CInt(a(i))
rs_top.open sql,conn,1,1
if rs_top.eof and rs_top.bof Then
response.write "无"
Else
response.write rs_top("name")
End If
Next
'---------------
'room_id提交过来的为数字
b= rs("room_id")
a = replace(b,"，",",")
Set rs_top=server.CreateObject("adodb.recordset")
sql = "select * from hotel_price where id in ("&a&")"
rs_top.open sql,conn,1,1
if rs_top.eof and rs_top.bof Then
response.write "无"
Else
Do While Not rs_top.EOF
response.write rs_top("name")&"<br>"
rs_top.MoveNext
Loop
End If
%>