请各位大哥大姐姐门帮忙!图片调不出来
数据图中存放的是数据库的ID,不知道为什么就是调不出来!总是显示无活动图片这五个字elseif Jscls=5 then
dim klphotoid,Kid
sql="select top "&topnum&" Kid,Klphoto from Ms_klatch where Checked=1 and Klphoto<>"" order by Addtime desc"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
klphotoid=rs("Klphoto")
Kid=rs(0)
else
klphotoid=""
Kid=0
end if
rs.close
'response.write klphotoid&"test"
'response.end
if klphotoid<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Filename from Ms_Upfile where FID in ("&klphotoid&") order by Fid desc"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
it=0
do while not rs.eof
it=it+1
response.write "(" & chr(34) & " <a href=klview.asp?id="&Kid&" target=_blank><img src="&SaveUpFilesPath&""/""&rs("Filename")&" width=""102"" height=""57"" border=""0""></a>" & chr(34) & ");"
response.write "document.write(" & chr(34) & "<br>" & chr(34) & ");"
rs.movenext
loop
else
response.write("document.write(" & chr(34) & "无数据" & chr(34) & ");")
end if
else
response.write("document.write(" & chr(34) & "无活动图片" & chr(34) & ");")
end if
end if
rs.close
conn.close%>