Question

有句asp代码出错，各位大侠帮帮。谢谢

id = cint(request.QueryString("id"))
sql="select * from xin_Show_Info where pid=0 order by ord asc"
showmenu="<ul>"
Set rs=conn.execute(sql)
do while not rs.eof
if id<>"" and id<>0 then
sql222 = "select * from xin_Show_Info where id="&id
set rs222=conn.execute(sql222)
if id=rs("id") or rs("id")=rs222("pid") then
style = "style='display:block;'"
else
style = ""
end if
end if
…………………………………………其他部份省略。

运行后，提示：
'80020009'
\xin_showmenu.asp, line 11

这第11行，就是这句
if id=rs("id") or rs("id")=rs222("pid") then

谢谢各位高手指点一下。如何改？

Answer 1

你这代码没错。错在链接上了。改成下面的即可
?id="&rs("Tid")&"&pid="&rs("id")&"'

Answer 2

<%
id = cint(request.QueryString("id"))
sql="select * from xin_Show_Info where pid=0 order by ord asc"
showmenu="<ul>"
Set rs=conn.execute(sql)
do while not rs.eof
if id<>"" and id<>0 then
pid=conn.execute("select pid from xin_Show_Info where id="&id)(0)
if id=rs("id") or ""&rs("id")=""&pid then
style = "style='display:block;'"
else
style = ""
end if
end if

%>

Answer 3

set rs222=conn.execute(sql222)
if not(rs222.eof) Then '先判断一下rs222是否是空集
if id=rs("id") or rs("id")=rs222("pid") then
style = "style='display:block;'"
else
style = ""
end if
end if

Answer 4

Set rs=conn.execute(sql)
set rs222=conn.execute(sql222)
我不明白的是 这里你一个大写set一个小写，到底那个是正确的，还是大小写都可以？？？？

Answer 5

id = cint(request.QueryString("id"))
sql="select * from xin_Show_Info where pid=0 order by ord asc"
showmenu="<ul>"
Set rs=conn.execute(sql)
do while not rs.eof
if id<>"" and id<>0 then
sql222 = "select * from xin_Show_Info where id="&id
set rs=conn.execute(sql222)
if not rs.eof
if id=rs("id") or rs("id")=rs222("pid") then
style = "style='display:block;'"
else
style = ""
end if
end if
end if

Answer 6

id = cint(request.QueryString("id"))
sql="select * from xin_Show_Info where pid=0 order by ord asc"
showmenu="<ul>"
Set rs=conn.execute(sql)
if rs.eof or rs.bof then
response.write("没有这条数据")
response.end
else
do while not rs.eof
if id<>"" and id<>0 then
sql222 = "select * from xin_Show_Info where id="&id
set rs222=conn.execute(sql222)
if id=rs("id") or rs("id")=rs222("pid") then
style = "style='display:block;'"
else
style = ""
end if
end if
end if