<%
id=request("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("isi/ximg.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "images/bg111.gif"
Response.BinaryWrite rs("big")
rs.close
set rs=nothing
set conn=nothing
%>

我在网上下载的一个交友程序

上传的图片数据都在isi/ximg.asp,但是默认的图片怎么都找不到,怎么办啊

我想替换下面这张图,可是找不到
[图片的链接地址:javascript:openFullscreen('picview/viewpic.asp?id=1')]
这张图究竟在哪,是用什么样的代码做的呢,有没有解决方法啊????~!~!!~!!~!~!~!~!!~!~~

www.mashyy.cn此网站会员图像(接上)

没看明白LZ的意思。。。

<%
id=request("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("isi/ximg.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "images/bg111.gif"
Response.BinaryWrite rs("big")
rs.close
set rs=nothing
set conn=nothing
%>

这里错了吧,应该为:

Response.ContentType = "image/jpeg"

或者：

Response.ContentType = "image/gif"

楼上的那位说的没错

但我的意思是我想换掉默认的图片,但不知道怎么换,找不到默认的图片啊

(会员注册时没上传照片,然后就显示默认的图来代替,我就想替换这张图)

这张图片可能被存储到了数据库里

没办法解决吗？？？

可以用读二进制文件的办法改变默认图片
比如
'读取图片文件的二进制码
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
'创建ADODBStream对象
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'设置读取类型为二进制码
BinaryStream.Type = adTypeBinary
'打开Sream对象
BinaryStream.Open
'读取图片文件到Stream
BinaryStream.LoadFromFile FileName
'返回读取到的图片二进制码
ReadBinaryFile = BinaryStream.Read
End Function
'以上引用代码不变
id=request("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("isi/ximg.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,3'修改参数为允许写入数据
PicPath="[这里是要修改的图片url地址(该图片是存储在网页同目录下的文件)]"
PicPath=Server.MapPath(PicPath)'返回要修改图片的服务器所在路径
rs("big").AppendChunk ReadBinaryFile(PicPath)'读取图片并写入到rs对象内
rs.update'更新数据库完成修改
rs.close'关闭rs对象