28,391
社区成员
发帖
与我相关
我的任务
分享为什么显示图片为乱吗
如下：
31 ?A?酎>Xx俐亶?鶟聫?????黢鵁鋸?~?焴膅>驱銖_鼷永?鲀?$罘?笥????樳??1D君鴽裸 0黶矍趋咙莋掻w?窠囫|皗p俺 ?`g8 O?PK 嘙?狣?? 秮Temp.BMPUTn橏=PK?
代码是：
<%@ Language=VBScript %>
<%
Response.expires = 0
Response.buffer = True
Response.clear
'id=Request("id") '要加图片的内容ID
'imgtable=Request("imgtable") '存入图片的表名
%>
<html>
<title>从access中读取图片</title>
<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("New0857.mdb")& ";PWD=ForEver"
set rec=server.createobject("ADODB.recordset")
strsql="select fImage from tTM where fTMID='1900214'"
rec.open strsql,conn,1,1
Response.ContentType="image/*"
Const OLEHEADERSIZE = 78
nFieldSize = rec("fImage").ActualSize
oleHeader = rec("fImage").GetChunk(OLEHEADERSIZE)
imageBytes = rec("fImage").GetChunk(nFieldSize - OLEHEADERSIZE)
Response.BinaryWrite imageBytes
'Response.BinaryWrite rec("fimage").getChunk(7500000)
rec.close
set rec=nothing
set conn=nothing
%>
</body>
</html>
31 ?A?酎>Xx俐亶?鶟聫?????黢鵁鋸?~?焴膅>驱銖_鼷永?鲀?$罘?笥????樳??1D君鴽裸 0黶矍趋咙莋掻w?窠囫|皗p俺 ?`g8 O?PK 嘙?狣?? 秮Temp.BMPUTn橏=PK?
代码是：
<%@ Language=VBScript %>
<%
Response.expires = 0
Response.buffer = True
Response.clear
'id=Request("id") '要加图片的内容ID
'imgtable=Request("imgtable") '存入图片的表名
%>
<html>
<title>从access中读取图片</title>
<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("New0857.mdb")& ";PWD=ForEver"
set rec=server.createobject("ADODB.recordset")
strsql="select fImage from tTM where fTMID='1900214'"
rec.open strsql,conn,1,1
Response.ContentType="image/*"
Const OLEHEADERSIZE = 78
nFieldSize = rec("fImage").ActualSize
oleHeader = rec("fImage").GetChunk(OLEHEADERSIZE)
imageBytes = rec("fImage").GetChunk(nFieldSize - OLEHEADERSIZE)
Response.BinaryWrite imageBytes
'Response.BinaryWrite rec("fimage").getChunk(7500000)
rec.close
set rec=nothing
set conn=nothing
%>
</body>
</html>
...全文
请发表友善的回复…
发表回复
