如何打开本地图片文件，将他保存到服务器端的数据库中

[m_leaner]

如何打开本地图片文件（重点是打开），将他保存到服务器端的数据库中

[possible_Y]

<form action="add.asp" enctype="multipart/form-data" method="post">
<input type="file">
<input type="submit">
</form>


add.asp:
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
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)


%><!--#include file="data.inc"--><% '打开数据库
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM image"
rs.Open sql,oConn,1,3
rs.addnew
rs("big").appendchunk mydata 'big字段存储图片
rs.update
set rs=nothing
set oConn=nothing
%>
<img src="show.asp">

show.asp:
<%
curDir = Server.MapPath("data/whole.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir

Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = "SELECT * FROM image"
oRs.CursorType = adOpenKeyset
oRs.LockType = 2 'adLockOptimistic
oRs.Open

Response.ContentType = "image/jpeg"
Response.BinaryWrite oRs("big")
Exit Do

oRs.Close
set oRs=nothing
oConn.close
set oConn=nothing

%>

[wangyime]

<input type=file>

[m_leaner]

详细点好吗？

[m_leaner]

分数不够，可另外添加

[wangyime]

打开后要不要显示出来？

[m_leaner]

最好要，不要也可