موصى به: كيفية استخدام ASP لعرض صور GIF لقاعدة بيانات الوصول اكتب: 1: اقرأ ملف صورة GIF في الذاكرة (متغير strtemp). 2: اكتب إلى قاعدة البيانات. ما يلي هو المحتوى المقتبس: Dim BintMP () مثل Byte Dim Conn as Adodb.conn
| ما يلي هو المحتوى المقتبس: <٪ استجابة. buffer = صحيح server.scriptTimeout = 9999999 عند استئناف الخطأ التالي ٪> <!-#تضمين ملف = conn.asp-> <!-#تضمين ملف = function.asp-> <! doctype html public -// w3c // dtd xhtml 1.0 transitional // en http://www.w3 <html xmlns = http: //www.w3.org/1999/xhtml> <head> <meta http-equiv = content-type content = text/html ؛ charset = gb2312 /> <meta http-equiv = محتوى لغة المحتوى = ZH-CN /> <meta content = All Name = Robots /> <نوع النمط = text/css> <!- الجسم ، الإدخال {font-size: 12px ؛} -> </style> <title> تحميل ملف ASP </title> </head> <معرف الجسم = الجسم> <٪ checkUser () extname = xls 'السماح بتمديد SavePath = تحميل 'SavePath إذا كان صحيحًا (SavePath ، 1) <>/ ثم SavePath = SavePath &/ 'ADD (/) بعد الدليل checkandcreatefolder (SavePath) exploadall_a = request.totalbytes 'احصل على جميع محتويات العميل إذا (exploadall_a> 0) ثم SET LOADSTEAM_C = SERVER.CREATEOBJECT (ADODB.STREAM) تحميل stream_c.type = 1 تحميل stream_c.open uploadstream_c.write request.binaryRead (eploadall_a) تحميل stream_c.position = 0 formDataall_d = UploadStream_C.Read CRLF_E = CHRB (13) و CHRB (10) formstart_f = instrb (formDataall_d ، crlf_e) formend_g = instr (formstart_f 1 ، formdataall_d ، crlf_e) تعيين formstream_h = server.createBject (adodb.stream) formstream_h.type = 1 formstream_h.open exploadstream_c.position = formstart_f 1 exploadstream_c.copyto formstream_h ، formend_g-formstart_f-3 formstream_h.position = 0 formstream_h.type = 2 formstream_h.charset = gb2312 formstreamtext_i = formstream_h.readtext formstream_h.close filename_j = mid (formstreamtext_i ، instrev (formstreamtext_i ،) 1 ، formend_g) if (checkFileSte (filename_j ، extName)) ثم SaveFile = Server.mappath (SavePath & Filename_J) إذا أخطأ بعد ذلك استجابة. write تحميل الملف: <span style = color: red ؛> خطأ تحميل الملف! </span> <a href = & request.servervariables (url) &> repload the file </a> <br/> err.clear آخر SaveFile = CheckFileXists (SaveFile) SaveFilename = Mid (SaveFile ، Instrrev (SaveFile ،) 1) جلسة (ملف) = SaveFilename k = instrb (formDataall_d ، crlf_e & crlf_e) 4 l = instr (k 1 ، formdataall_d ، leftb (formDataall_d ، formstart_f-1))-k-2 formstream_h.type = 1 formstream_h.open تحميل stream_c.position = K-1 exploadstream_c.copyto formstream_h ، l formstream_h.savetofile savefile ، 2 SaveFilename = Mid (SaveFile ، Instrrev (SaveFile ،) 1) Dim Conn1 ، Driver1 ، DBPath1 ، RS1 ، SQL1 "إنشاء كائن اتصال تعيين conn1 = server.createBject (adodb.connection) driver1 = driver = {microsoft excel driver (*.xls)} ؛ dbath1 = dbq = & server.mappath (تحميل/& SaveFilename) "استدعاء طريقة مفتوحة لفتح قاعدة البيانات Conn1.Open Driver1 و DBPath1 SQL1 = حدد * من [sheet1 $] SET RS1 = CONN1.EXECUTE (SQL1) إذا كان rs1.eof و rs1.bof ثم استجابة. اكتب البيانات التي تحتاجها لم يتم العثور عليها !! آخر افعل بينما لا Rs1.eof أدخل في قاعدة البيانات Opendatabase Select * من ABC إذا كان LEN (RS1 (0)) = 7 ثم ctime = اليسار (rs1 (0) ، 4) آخر ctime = اليسار (rs1 (0) ، 5) إنهاء إذا Rs.Addnew RS (الوقت) = ctime Rs.update مغلق () rs1.movenext حلقة إنهاء إذا RS1.Close تعيين RS1 = لا شيء conn1.close تعيين conn1 = لا شيء تنتهي في قاعدة البيانات Response.write تحميل الملف: <span style = color: red ؛> & saveFilename & </span> كان تحميل الملف ناجحًا! <a href = 'choise.asp' '> تابع تحميل الملف </a> <br /> إنهاء إذا آخر استجابة. write تحميل الملف: <span style = color: red ؛> هو غير صحيح! </span> <a href = & request.servervariables (url) &> repload file </a> <br/> إنهاء إذا آخر ٪> <لغة البرنامج النصي = javaScript> <!- وظيفة ValiverInput () { if (document.upform.upfile.value ==) { تنبيه (الرجاء تحديد ملف تحميل!) document.upform.upfile.focus () العودة كاذبة } العودة الحقيقية } // -> </script> <form action = '<٪ = request.servervariables (url) ٪>' method = 'post' name = upform onSubmit = return validinput () enctype = multipart/form-data> تحميل الملف: <type type = 'file' name = 'upfile' size = 40> <input type = 'submit' value = upload> </form> <٪ إنهاء إذا تعيين formstream_h = لا شيء تحميل stream.close قم بتعيين التحميل = لا شيء ٪> </body> </html> |
مشاركة: تفسير رمز حقن ASP المضاد لـ SQL ما يلي هو المحتوى المشار إليه: dim sql_injdata ، sql_inj ، sql_get ، sql_data ، sql_post sql_injdata = '| و exec | insert | select | delete | update |