2005-09-02 16:21
2005-09-02 16:40
2005-09-05 08:14
#upload.asp <html> <head> <meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312" charset="gb2312"> <link rel="stylesheet" type="text/css" href="stylesheet/main.css"> </head> <body> <br> <center> 照片上传 </center> <br> <center> 您上传的照片 </center> <center> <a href="showimg.asp" target="_blank" title="放大观看"><img src="showimg.asp" height=150 border=1></a> </center> <center> <form name="mainForm" enctype="multipart/form-data" action="processimg.asp" method=post> <input type=file name=mefile style="font-size:9pt"><br><br> <input type=submit name=ok value="上传照片" style="font-size:9pt"> </form> </center>
</body> </html> ###processimg.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("data/images.mdb") & ";uid=;PWD=;" connGraph.Open
uid=trim(session("userid")) set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM [images] where uid='" & uid & "'",connGraph,1,3
if not rec.eof then connGraph.execute "delete from images where uid='" & uid & "'" end if rec.addnew rec("uid")=uid rec("img").appendchunk mydata rec.update rec.close set rec=nothing set connGraph=nothing response.redirect "imgupok.asp" %> ###imgupok.asp <html> <head> </head> <body> <p align="center"> <p align="center"> </p> <p align="center">照片上传成功，请<a href="javascript:history.go(-1)">返回</a>后刷新</p> </body> </html> ###showimg.asp <% set connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("data/images.mdb") & ";uid=;PWD=;" connGraph.Open
set rec=server.createobject("ADODB.recordset") if trim(request("userid"))<>"" then strsql="select img from images where uid='" & trim(request("userid")) & "'" else strsql="select img from images where uid='" & trim(session("userid")) & "'" end if rec.open strsql,connGraph,1,1 if not rec.eof then Response.ContentType = "image/gif" Response.BinaryWrite rec("img").getChunk(7500000) rec.close set rec=nothing set connGraph=nothing else rec.close set rec=nothing set connGraph=nothing if trim(session("userid"))=trim(request("userid")) then response.redirect "images/noimg.bmp" else response.redirect "images/notupload.jpg" end if end if %> ###以上是所有代码,大家自己建个库试下,一传就出现: Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除。
/processimg.asp，行20
2005-09-05 10:11
2005-09-05 17:40
2005-09-07 08:46
