ASP从SQL中读取数据 显示问题

Question

<%
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select *from Tab_Weekly where Class = 'E_Switch' and Prodgroup = 'NPI'  "
rs.open sqlstr,conn,1,1
if rs.eof then
response.wriet("")
else
%>
<%do while not rs.eof%>
<td><p><%=rs("Prodname")%>&nbsp;</p></td>
<%rs.movenext
loop
end if%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sqlstr="select *from Tab_Weekly where Class = 'E_Switch' and Prodgroup = 'PPI'"
rs1.open sqlstr,conn,1,1
if rs1.eof then
response.Write("")
else
%>
<%do while not rs1.eof%>
<td><p><%=rs1("Prodname")%>&nbsp;</p></td>
<%rs1.movenext
loop
end if%>
假如我表中有满足Class = 'E_Switch' and Prodgroup = 'NPI'和Class = 'E_Switch' and Prodgroup = 'PPI'的数据 则在网页中显示出了我所需要的数据,如果表中只有满足Class = 'E_Switch' and Prodgroup = 'NPI'的数据,则网页中什么都没有 这该怎么解决 请教各位高手

Answer 1

好久没用过ASP了，LZ可以试试...另外，这里好像是javascript，坛子里不是有asp版吗！
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from Tab_Weekly where Class = 'E_Switch' and Prodgroup = 'NPI' "
rs.open sqlstr,conn,1,1
if not rs.eof and not rs.eof then
    do while not rs.eof
%>
        <td><p><%=rs("Prodname")%>&nbsp;</p></td>
<%
        rs.movenext
    loop
end if
rs.close
set rs = nothingSet rs1=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from Tab_Weekly where Class = 'E_Switch' and Prodgroup = 'PPI'"
rs1.open sqlstr,conn,1,1
if not rs1.eof and not rs1.eof then
    do while not rs1.eof
%>
        <td><p><%=rs1("Prodname")%>&nbsp;</p></td>
<%
        rs1.movenext
    loop
end if
rs1.close
set rs1 = nothing
%>

Answer 2

上面错了，是：
if not rs1.eof and not rs1.bof then

Answer 3

<%Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select *from Tab_Weekly where Class = 'E_Switch' and Prodgroup = 'NPI' "
rs.open sqlstr,conn,1,1
if not rs.eof then
  do while not rs.eof%>
    <td><p><%if rs("Class")="E_Switch" and (rs("Prodgroup")="NPI" or rs("Prodgroup")="PPI") then response.write rs("Prodname") else response.write "-" end if%></p></td>
    <%rs.movenext
  loop
end if%>这样应该可以了

Answer 4

更正一下
<%Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from Tab_Weekly where Class = 'E_Switch'"
rs.open sqlstr,conn,1,1
if not rs.eof then
  do while not rs.eof%>
  <td><p><%if rs("Prodgroup")="NPI" or rs("Prodgroup")="PPI" then response.write rs("Prodname") else response.write "-" end if%></p></td>
  <%rs.movenext
  loop
end if%>这样应该可以了

Answer 5

您这样不符合我的要求 我的页面是这样的
E_Switch NPI
  ProdnameE_Switch PPI
  Prodname
我需要的是数据库里面有记录就显示出来 没有记录就不显示

Answer 6

一次性取出来再构建HTML看看行不行
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from Tab_Weekly where Class = 'E_Switch' and (Prodgroup = 'NPI' or Prodgroup = 'PPI')"  'SQL忘得差不多了，这里可能写错了，但逻辑是这样的
rs.open sqlstr, conn, 1, 1
if not rs.eof and not rs.eof then
dim s1, s2
s1 = ""
s2 = ""
    do while not rs.eof
rs("Prodgroup") = "NPI"? s1 = s1 &  "<td><p>" & rs("Prodname") & "&nbsp;</p></td>" : s2 = s2 & "<td><p>" & rs("Prodname") & "&nbsp;</p></td>"
        rs.movenext
    loop
response.Write(s1 & s2);
end if
rs.close
set rs = nothing
%>