存入图片:
<script language="vbscript" runat="server">
dim st,xmldoc,iPic
dim temp
temp="c:\pic\example.jpg"
set st = Server.CreateObject("adodb.stream")
st.Type=1
st.Open
st.loadFromFile temp
dim rs
set rs = Server.CreateObject("adodb.recordset")
rs.open "youdb",yourconn,3,2
rs.addnew
rs("img").appendChunk st.read(-1)
rs.update
rs.close
</script>
读取图片:
<img src="image.asp?id=1" border="0">
image.asp
<%
response.ContentType="image/*"
set rs = yourDBConn.execute("select img from yourDB where id="&request("id"))
Response.BinaryWrite rs("img")
%>