纯ASP上传图像文件到数据库的最佳例子(1) getfile.htm ------------------------- <html> <head> <title>保存图片到数据库</title> </head> <body> <b> <p></b>你可以找个图片试试，保存完毕后会有提示</p> <form METHOD="POST" ENCTYPE="multipart/form-data" ACTION="savetodb.ASP"> <p>Email : <input NAME="email" VALUE="wangcq@sina.com" size="20"><br> Picture : <input TYPE="file" NAME="blob"><br> <input TYPE="submit" NAME="Enter"> </p> </form> </body> </html> savetodb.asp ---------------------------------- <% Response.Buffer = TRUE Response.Clear byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin email = UploadRequest.Item("email").Item("Value") contentType = UploadRequest.Item("blob").Item("ContentType") filepathname = UploadRequest.Item("blob").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) picture = UploadRequest.Item("blob").Item("Value") 'Response.ContentType = contentType 'Response.binaryWrite picture set objCn = server.createobject("adodb.connection") set objRst = server.createobject("adodb.recordset") objCn.Open "upload" objrst.Open "pic", objcn, 1,3,2 objrst.addnew objrst.fields("filename")=filename objrst.fields("type")="gif"
