No component implementation file uploaddownload

zhaozj2021-02-16  76

'==================================================== ==================== 'Using the ASP Unparalleled Upload / Download File' 'Function Description' Save the uploaded file data to the database, you can handle the form A plurality of uploaded files' Applicable to various databases, using ADO method connection database 'This example is an Access database: zj.mdb' table: tb_img (ID INT), Path Text (255) Save the Uploaded Directory ', FName Text (250) Save the uploaded file name, Type test (250) Save the type of upload file', the IMG OLE object saves uploaded file content '' ========= ============================================================================================================================================================================================================= =======

'==================================================== =================00============================================================================================ ======================================================= < Head> file upload saves to the database </ title> </ head> <body> <form name = "form1" encty = "multipart / form-data" method = "post" action = "zj_up.asp" > <P> <input type = "file" name = "file"> <input type = "submit" name = "submit" value = "upload"> </ p> </ form> </ body> </ html ></p> <p>'==================================================== ================= 'upload file Save to the database ASP page: zj_up.asp' '================== =========================================================================================== < % Response.expires = 0function f_bin2str (byval sbin) DIM II, ILEN, ICHR, IRE = "" if not isnull (sbin) Then Ilen = lenb (sbin) for ii = 1 To Ilen Ichr = MIDB (Sbin, II, 1) IF ASCB (ICHR)> 127 THEN IRE = IRE & CHR (ASCW (MIDB (Sbin, II 1, 1) & ICHR)) II = II 1 Else IRE = IRE & CHR (ASCB (ICHR)) END If next end if f_bin2str = IREEND FUNCTIONICONCSTR = "provider = microsoft.jet.OLEDb.4.0; Persist security info = false" & _ "; data source =" & server.mappath ("zj.mdb") ISQL = "tb_img" set iRe = Server.CreateObject ( "ADODB.Recordset") iRe.Open iSql, iConcStr, 1,3iLen = Request.TotalBytessBin = Request.BinaryRead (iLen) iCrlf1 = ChrB (13) & ChrB (10) iCrlf2 = iCrlf1 & iCrlf1iLen = INSTRB (1, sbin, ICRLF1) - 1ISPC = Leftb (SBI n, iln) sbin =</p> <p>MIDB (Sbin, Ilen 34) ipos1 = INSTRB (Sbin, ICRLF2) - 1WHILE ipos1> 0 istr = f_bin2str (Leftb (Sbin, IPOS1)) ipos1 = ipos1 5 ipos2 = IPOSTRB (IPOS1, SBIN, ISPC) ipos3 = INSTR (istr, "; filename =" "" ") 12 IF iPOS3> 12 Then ISTR = MID (ISTR, IPOS3) IPOS3 = INSTR (ISTR, CHR (13) & chr (10) &" Content-Type: ") - 2 IFN = Left (ISTR, IPOS3) IFN <> "" ") = left (IFN, IFN, IFN,")) IRE ("FNAME") = MID (IFN, Instrrev (IFN, "") 1) IRE ("type") = MID (ISTR, IPOS3 18) IRE ("IMG"). Appendchunk MIDB (Sbin, IPOS1, IPOS2 - IPOS1) Ire.Update End If End If Sbin = MIDB (Sbin, IPOS2 Ilen 34) ipos1 = INSTRB (Sbin, ICRLF2) - 1WENDIRE.CLOSESET IRE = Nothing%> '===================== ===================================================== 'download data ASP page: zj_down.asp '========================================== =============================1.buffer = TRUERESPONSE.CLEAR</p> <p>Iconcstr = "provider = microsoft.jet.oledb.4.0; persist security info = false" & _ "; data source =" & _ ";" zj.mdb ") set IRE = Server.createObject (" adoDb.recordset " ISQL = "TB_IMG" IRE.Open ISQL, ICONCSTR, 1, 1RESPONSE.CONTENTTYPE = IRE ("Type") response.binaryWrite IRE ("IMG") IRE.Closset IRE = Nothing%></p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-15167.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="15167" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.033</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'uCrjLWJUovwYUIVJYXJKpFhNKmscEdetvA67Dd63VTuF4CxhVY7roXP0daXYHe7zGXoSZwiDk6JcEJpZ'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>