[求助]JS代码问题~!~!急 - 编程论坛

#2

angerzl2007-10-25 17:13

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

#3

永夜的极光2007-10-25 17:46

没看明白LZ的意思。。。

#4

tianyu1232007-10-25 18:11

<%
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"

#5

angerzl2007-10-26 07:53

楼上的那位说的没错

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

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

#6

yms1232007-10-26 13:00

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

#7

angerzl2007-10-26 13:17

没办法解决吗？？？

#8

yms1232007-10-26 14:16

可以用读二进制文件的办法改变默认图片
比如
'读取图片文件的二进制码
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对象