数据库。。判断出现问题。。求助

Question

<%
Dim ImageID
ImageID=(Request.QueryString("TitleId"))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from nt_score"
rs.open sql,conn,1,3
if ImageID=rs.("ImageID") then  
%>
<table width="980" border="0" cellspacing="0" cellpadding="0" align="center">
 
  <%dim rsa,sqla
Set rsa = Server.CreateObject("ADODB.Recordset")
sqla="select * from nt_score where ImageID="&request("titleid")&""
rsa.open sqla,conn,1,3
%>
   <form action="xjj?Action=jjl" method="post">
  <tr>
<td width="316" height="35" align="right">
图片id:
  <input name="id1" type="text" size="10"  value="<%=rsa("ImageID")%>"/></td>
<td width="136">*图片id不可以改1</td>
<td width="150" height="35" align="right">
张数：<input name="zs2" type="text" size="10"  value="<%=request("count")%>"/></td>
<td width="150">*图片张数不可以改1</td>
<td width="134" height="35" align="right">
得分： 
  <input name="score1" type="text" size="10"  value="<%=rsa("score")%>"/></td>
<td width="394">*100分以上为精华图片，如果取消精华的话，填写100以下1</td>
  </tr>
   <tr>
<td height="28" colspan="6" align="center"><input type="submit" name="Submit" value="提交" /></td>
  </tr></form></table>
   <%rsa.movenext 
rsa.close
%>
 <%else%>
<table width="980" border="0" cellspacing="0" cellpadding="0" align="center">
   <form action="tjj.asp" method="post">
  <tr>
<td width="152" height="35" align="right">
图片id:<input name="id2" type="text" size="10"  value="<%=request("titleID")%>"/></td>
<td width="150">*图片id不可以改2</td>
<td width="150" height="35" align="right">
张数：<input name="zs2" type="text" size="10"  value="<%=request("count")%>"/></td>
<td width="150">*图片张数不可以改2</td>
<td width="160" height="35" align="right">
得分：<input name="score2" type="text" size="10"  value=""/></td>
<td width="118">*100分以上为精华图片，如果取消精华的话，填写100以下2</td>
  </tr>
   <tr>
<td height="28" colspan="6" align="center"><input type="submit" name="Submit" value="提交" /></td>
  </tr></form></table>
  <%rs.movenext 
end if
rs.close
%> 我想判断ImageID=rs.("ImageID")就显示第一个表格，当 rs.("ImageID")这条记录为空的时候显示第二个表，这个功能这么实现啊。。想了好多天了都没能解决。。在此求助。。谢谢了

Answer 1

好乱Dim ImageID 
ImageID=(Request.QueryString("TitleId")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from nt_score" 
rs.open sql,conn,1,3
[code=VB]Dim ImageID 
ImageID=(Request.QueryString("TitleId")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from nt_score where ImageID="&ImageID
rs.open sql,conn,1,3
[/code]然后判断如果有值，就显示第一个table，如果没值就显示第二个table

Answer 2

[code=VB]   这个我没用过不会用帮帮忙写清楚一些好吗。。？谢谢了

Answer 3

Dim ImageID 
ImageID=(Request.QueryString("TitleId")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from nt_score" 
rs.open sql,conn,1,3 
If not rs.eof and rs.bof then
 if Not isnull(rs("ImageID")) then
   ImageID = rs("ImageID")
 Else
   rs.MoveNext
   imageID = rs("imageID")
 End If
End If
rs.Close
set rs = Nothing试试看

Answer 4

<%
Dim ImageID 
ImageID=(Request.QueryString("TitleId")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from nt_score" 
rs.open sql,conn,1,3 
If not rs.eof and rs.bof then 
if Not isnull(rs("ImageID")) then 
  ImageID = rs("ImageID") 
Else 
  rs.MoveNext 
  imageID = rs("imageID") 
End If 
%>
表1
   <%
rsa.close
%>
 <%else%>
         表2
  <%
End If 
rs.Close 
set rs = Nothing 
%> 是这样吗？这样的话，还是只显示第二个表。

Answer 5

<% 
Dim ImageID 
ImageID=(Request.QueryString("TitleId")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from nt_score" 
rs.open sql,conn,1,3 
If not rs.eof and rs.bof then 
if Not isnull(rs("ImageID")) then 
  ImageID = rs("ImageID") 
Else 
  rs.MoveNext 
  imageID = rs("imageID") 
End If 
%> 
表1 
  <%else%> 
        表2 
  <% 
End If 
rs.Close 
set rs = Nothing 
%> 上面那个写错了。应该是现在这个。是这样吗？这样的话，还是只显示第二个表。

Answer 6

呵呵，不好意思，题意理解错误如果为空时要显示第2张表就在创建个记录集进行查询呀<% 
Dim ImageID 
ImageID=(Request.QueryString("TitleId")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from nt_score" 
rs.open sql,conn,1,3 
If not rs.eof and rs.bof then 
if Not isnull(rs("ImageID")) then 
  ImageID = rs("ImageID") 
Else 
  Set TowConn = Conn.Execute("select * from 表2")
  绑定显示字段......
End If 
%> 

Answer 7

看来还是我写得不是很清楚谢谢你了。。在请你帮看看
<% 
Dim ImageID 
ImageID=(Request.QueryString("TitleId")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from nt_score" 
rs.open sql,conn,1,3 
If not rs.eof and rs.bof then 
if Not isnull(rs("ImageID")) then 
  ImageID = rs("ImageID") 
Else 
  rs.MoveNext 
  imageID = rs("imageID") 
End If 
%> 
table{是表格1}
  <%else%> 
      table{是表格2}
  <% 
End If 
rs.Close 
set rs = Nothing 
%>
不是数据库里的表、、、

Answer 8

- - !! 这个是回帖的时候点错了。
没有[code=VB] 

Answer 9

select * from nt_score 那你的这个有值吗

Answer 10

那都没判断，怎么会得呢。？显示BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
我现在的意思是，当request过来的id与数据库里的ID相等则显示第一个表格（table），当request过来的id，在数据库不存在时则显示第二个表格（table）

Answer 11

sql="select * from nt_score where ImageID="&ImageID你没看到这句吧

Answer 12

这一句已经是判断完进入的第一个表格了。，。第一个表格里要读取nt_score这个表的某些字段，条件是nt_score的imgageid要等于request过来的id相等。

Answer 13

<% 
Dim ImageID 
ImageID=(Request.QueryString("TitleId")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from nt_score where ImageID="&ImageID
rs.open sql,conn,1,3 
if Not isnull(rs("ImageID")) then
%> 
显示表1 
 <%else%> 
显示表2
  <% end if 
rs.close 
%>

Answer 14

还是不得   ，BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
，还是因为这个错误，
因为request过来的id，在数据库的表里没有相对应的id，（也就是说在nt_score表里没有那条记录，所以我才要跳到第二个表格（table）重新添加这条记录）
如果request过来的id与数据库的nt_score表里的id相等，就能显示正确的
非常感激各位支持、、、帮我解决这个问题吧谢谢了

Answer 15

写错了，应该是判断If not rs.eof and rs.bof then

Answer 16

如果这样写了。就只显示表格2（table），当nt_score里imageid等于request过来的id时，不显示表格1（table）

Answer 17

 Dim ImageID
 ImageID=(Request.QueryString("TitleId"))
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select * from nt_score where ImageID="&ImageID
 rs.open sql,conn,1,3
 If rs.eof and rs.bof then
 %>
 显示表2
    <%else%>
 显示表1
     <% end if
 rs.close
 %>

Answer 18

先顶下再看看。我以前也做ASP

Answer 19

逻辑没问题，语法你自己看看吧，刚没看到你的If not rs.eof and rs.bof then里那个not。VB不太熟，你自己好好看看。到这步你应该能自己搞定了吧。

Answer 20

还是未能解决。。情况 是：当request过来的id等于nt_score里imageid相等显示了表格2（table），当request过来的id比较nt_score里（不存在imageid）时出现BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录，。
（注意：nt_score表里imageid，有些与request过来的id是相等的，”部分imageid“与request过来的id不相等，因为“部分imageid”在nt_score表里不存在）

Answer 21

没能搞定啊这个问题我试了好多种方法了有些方法显示得表1（table），但是request过来imageid与nt_score表里imageid不相等时就显示BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录，。 
这样的错误了

Answer 22

有些与request过来的id是相等的？那你岂不是要用循环显示多个表了？
根据你的描述，思路就是如果sql="select * from nt_score where ImageID="&(Request.QueryString("TitleId"))有值的话就显示你想显示的那个table，否则显示另一个table很简单的逻辑，至于代码实现你自己考虑吧，我VB不熟。我觉得你还是理清自己的思路，静下心来好好想想吧。自己应该有解决问题的能力，不是什么都靠别人给你写好了。