是关于上传图片的处理的。。。

这是Upload.htm
　　
　　

这是Process.asp<%db_path="member.mdb"set conn=server.CreateObject("ADODB.connection")connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath(db_path)conn.open connstr%><%formsize=request.totalbytesformdata=request.binaryread(formsize)bncrlf=chrB(13)&chrB(10)divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)datastart=instrb(formdata,bncrlf&bncrlf)+4dataend=instrb(datastart+1,formdata,divider)-datastartmydata=midb(formdata,datastart,dataend)set rs=server.createobject("ADODB.recordset")rs.open "SELECT * FROM imgurl",conn,3,3rs.addnewrs("img").AppendChunk myDatars.updaters.closeset rs=nothingset conn=nothingresponse.redirect "index1.asp"%>

这是Showing.asp<%setconnGraph=server.CreateObject("ADODB.connection")connGraph.ConnectionString="driver={MicrosoftAccessDriver(*.mdb)};DBQ="&server.MapPath("images.mdb")&";uid=;PWD=;"connGraph.Opensetrec=server.createobject("ADODB.recordset")strsql="selectimgfromimageswhereid="&trim(request("id"))rec.openstrsql,connGraph,1,1Response.ContentType="image/*"Response.BinaryWriterec("img").getChunk(7500000)rec.closesetrec=nothingsetconnGraph=nothing%>

这是index1.asp<%db_path="member.mdb"set conn=server.CreateObject("ADODB.connection")connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath(db_path)conn.open connstr%><%strsql="select * from imgurl"set rs=server.createobject("ADODB.recordset")rs.open strsql,conn,1,1do until rs.eofwhatid=rs("id")%>
<%rs.movenextloop%>

不知道为什么，我看来看去也没问题呀，可是就是图片显示不出来。。。