【100分】为什么这段调用数据库代码在网页端未能获取并显示任何内容

Question

<%id=cint(request("id"))conn.execute("update dazhe_info set clicks=clicks+1 where id="&id)
conn.execute("update dazhe_info set weekclicks=weekclicks+1 where id="&id)
set rs1=server.createobject("adodb.recordset")
 sqldis="select * from dazhe_info where id='"&id&"' "
  rs1.open sqldis,conn,1,1
 if not rs1.eof then 
   sid=rs1("sid")
   sname=rs1("sname")
    disc=rs1("disc")
exdisc=rs1("exdisc")
vdate=rs1("vdate")
dazfs=rs1("dazfs")
printer=rs1("printer")
  mcontent=rs1("mcontent")
roads=rs1("roads")
zzone=rs1("zzone")
stel=rs1("stel")
slink=rs1("slink")
bsort=rs1("bsort")
bssort=rs1("bssort")
ifhome = rs1("ifhome")
   end if 
rs1.close
 sqlsort="select sname from sort_shop where id="&cint(bsort)
   rs1.open sqlsort,conn,1,1
   if not rs1.eof then 
   bsortname=rs1("sname")
   end if 
   rs1.close
   set rs1 = nothing
   
   set rs3=server.createobject("adodb.recordset")
 sqlsort="select sname from sort_shop where id="&cint(bsort)
   rs3.open sqlsort,conn,1,1
   if not rs3.eof then 
   bssortname=rs3("sname")
   end if 
   rs3.close
   set rs3 = nothing
 sqlshop="select * from info_shop where id='"&sid&"'"
 rs.open sqlshop,conn,1,1
 if not rs.eof then 
   scodeid=rs("s_id")
   sj_name=rs("s_name")
   sorder=rs("sorder")
   scode=rs("s_id")
   sad=rs("sad")
   spay=rs("spay")
   sadd=rs("sadd")
   swhours=rs("swhours")
   sinstr=rs("sinstr")
   sbox=rs("sbox")
   scar=rs("scar")
   scapcity=rs("scapcity")
   straffic=rs("straffic")
   sconsume=rs("sconsume")
   ctel=rs("ctel")
   cman=rs("cman")
   email=rs("email")
   themap=rs("map")  end if 
 rs.close
 
dim img(3)
img(0) = "/shangjia/imgweb/noimg.gif"
img(1) = ""
img(2) = ""
img(3) = ""
sqlpic="select top 4 bpic,pname,sorder from pic_shop where sid='"&sid&"' order by sorder asc"
rs.open sqlpic,conn,1,1
if not rs.eof then img(0) = rs("bpic")
for i = 1 to 3
if rs.eof then exit for
img(i) = rs("bpic")
rs.movenext
next
rs.close
   %>结果在所有预定的栏目下内容都没有显示，都是空白一片，有谁能告诉我为什么吗？肯定追分

Answer 1

lz,您上面这些程序里是没有一条输出语句,如果是在所有预定的栏目下都有正确的输出语句没任何内容的话,建议您加入:
if rs1.eof then
response.write "无记录"
end if
来看看有没有查到记录.
如果没查到记录,那请问您的 id=cint(request("id"))里的这个request("id")是哪里获取的.是不是有问题.另外有点小问题:
我不知道您想输出怎么的记录.可您的
 if not rs1.eof then 
   sid=rs1("sid")
   sname=rs1("sname")
    disc=rs1("disc")
exdisc=rs1("exdisc")
vdate=rs1("vdate")
dazfs=rs1("dazfs")
printer=rs1("printer")
 mcontent=rs1("mcontent")
roads=rs1("roads")
zzone=rs1("zzone")
stel=rs1("stel")
slink=rs1("slink")
bsort=rs1("bsort")
bssort=rs1("bssort")
ifhome = rs1("ifhome")
   end if 
rs1.close这样的语句只把一条记录的值赋给了对应变量,您的意图是这样的吗?疑惑中.