来救救绝望的人吧！

[xinqing1205]

<!--#include file="../include/common.asp"-->
<%
connstr="driver={microsoft access driver(*.mdb)};dbq="&server.MapPath("main.mdb")
id=Request.Querystring("id")
table=Request.Querystring("table")
img=Request.Querystring("img")
mime=Request.Querystring("mime")
IF id="" or img="" then Response.End
'构造SQL语句
IF mime="" then
sql="select top 1 "&img&" from "&table&" where id="&id
else
sql="select top 1 "&img&","&mime&" from "&table&" where id="&id
end if
rs.open sql,connstr 1,1
IF rs.eof then Response.End
Response.buffer=true
Response.Clear
IF mime<>"" then
Response.ContentType=Rs(1)
end if
Response.BinaryWrite Rs(0)
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
img.asp文件像上面那么写的，可是也不能正常显示
显示页<img src="img.asp?id=<%=rs("id")%>">
出现的问题：图片不能正常显示，但是没有语法错误

[ceocio]

sql="select top 1 '"&img&"' from '"&table&"' where id="&id

[xinqing1205]

好像不是这里的错误吧

[yuayin]

先检查一下，图片文件名和变量名全得用小写字母。

[angelheavens]

(1)Access不支持Top;
(2)对应ID是否有数据?

[xinqing1205]

（1）ACCESS应该支持TOP
（2）我在<img src=img.asp?id=<%=rs("id")%>>前已经打开了一个表了
（3）我的图片文件名和变量全都是小写的

[nchen123]

vbscript 里大小写不敏感的

[xishanlang2001]

单步调试一下.先作个简单的页面,试试能否显示某条数据中的图片.
如果行再试试在if中间加点别的,比如弹出对话框什么的,看那一步有没有执行,呵呵

[DeltaCat]

Response.BinaryWrite Rs(0).GetChuck(75000)

[DeltaCat]

Response.Clear
IF mime<>"" then
Response.ContentType=Rs(1)
Response.BinaryWrite Rs(0).GetChunk(75000)
else
Response.write rs(0)
end if
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing

[DeltaCat]

不好意思，第一句写错了

[xinqing1205]

我试了，也不好用呀

[会织网的蚂蚁]

图片不能这样显示，我写一个你看看行不
<img src="pic/<%=rs("图片名")%>">

[xinqing1205]

楼上的你那写，数据库里存的是路径，而我的进二进制

[possible_Y]

Response.ContentType正确吗？？

[xinqing1205]

正确，是mime类型，image/gif或image/jpeg