å¦Âä½ÂæÂÂå¾çÂÂä¸Âä¼ å°æ°æ®åºÂä¸Â并æ¾示åºæÂ¥ï¼Â
upload.htmxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ ä¸Â传页é¢.
<html>
<body>
<p align=”center”>Ã¥ÂÂè±é£ÂèÂÂä¹Âå¾çÂÂä¸Âä¼ </p>
<center>
ãÂÂã <form name=”mainForm” enctype=”multipart/form-data”
‘ è¿Â个Formå±Âæ§æ¯å¾Âå°ä¸Âä¼ çÂÂæ°æ®çÂÂÃ¥Â
³é®.
action=”process.asp” method=post>
ãÂÂãÂÂãÂÂãÂÂ<input type=file name=mefile><br>
ãÂÂã <input type=submit name=ok value=”ä¸Âä¼ “>
ãÂÂã </form>
</center>
</body></html>
process.asp
‘ å¤ÂçÂÂæµÂè§Âå¨ä¸ÂéÂÂæÂ¥çÂÂæ°æ®.
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject(“ADODB.connection”)
connGraph.ConnectionString=”driver={Microsoft Access Driver (*.mdb)};
DBQ=” & server.MapPath(“images.mdb”) & “;uid=;PWD=;”
connGraph.Open
set rec=server.createobject(“ADODB.recordset”)
rec.Open “select * from [images] where id is null”,connGraph,1,3
rec.addnew
rec(“img”).appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>
ÃÂ
showimg.asp
‘ æ¾示å¾çÂÂ.
<%
set connGraph=server.CreateObject(“ADODB.connection”)
connGraph.ConnectionString=”driver={Microsoft Access Driver (*.mdb)};
DBQ=” & server.MapPath(“images.mdb”) & “;uid=;PWD=;”
connGraph.Open
set rec=server.createobject(“ADODB.recordset”)
strsql=”select img from images where id=” & trim(request(“id”))
rec.open strsql,connGraph,1,1
Response.ContentType = “image/*”
‘ å¨è¾Âåºå°æµÂè§Âå¨ä¹ÂÃ¥ÂÂä¸Âå®Âè¦ÂæÂÂå®ÂResponse.ContentType = “image/*”,以便æ£常æ¾示å¾çÂÂ.
Response.BinaryWrite rec(“img”).getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
[1]