图片的入库与读取的方法

答案：图片入库 
[复制此代码]CODE:
<!--#include virtual="/_inc/conn.inc"-->  
<%  
'取得客户端送出的数据字节大小  
frmsize=Request.TotalBytes   

'以二进制方式读取数据  
frmData=Request.BinaryRead(frmsize)  
'去掉实际数据前、后的边界字符串行  
bnCrLf=ChrB(13)&ChrB(10)  
divider=leftB(frmdata,CLng(InstrB(frmdata,bnCrLf))-1)  
dataStart=InstrB(frmData,bnCrLf&bncrlf)+4  
dataEnd=InstrB(datastart+1,frmData,divider)-dataStart  
'读出图象数据  
myData=Midb(frmdata,dataStart,dataEnd)  
'将图象数据存入数据库  
strSQL="Select * FROM tblImages"  
set rs=Server.CreateObject("ADODB.Recordset")  
rs.open strSQL,conn,1,3  
rs.addnew  
rs("picData").AppendChunk myData  
rs.Update  
counts=rs.recordCount+1  
rs.close  
conn.close  
%> 

读取图片 
[复制此代码]CODE:
<!--#include virtual="/_inc/conn.inc"-->  
<%  
sID=Request.QueryString("id")  
strSQL="Select picData FROM tblImages Where id=" & sID  
Set rs=Server.CreateObject("ADODB.Recordset")  
rs.Open strSQL,conn,1,1  
Response.ContentType="image/*"  
dataSize=rs(0).actualSize  
Response.BinaryWrite rs(0).getChunk(dataSize)  
rs.Close  
conn.Close  
%>

上一个：用asp实现无组件生成验证码的方法2种
下一个：防止别人盗链的好方法推荐