Empfohlen: Routine: Verwenden Sie ASP, um festzustellen, ob die Dateiadresse gültig ist Das Folgende ist der zitierte Inhalt: <% response
| Das Folgende ist der zitierte Inhalt: Einfügen von Forminhalten in Datenbank mit ASP. <% ' -lader.asp - ' - Version 1.5.2 ' - Zuletzt aktualisiert 12.12.2002 '' 'Faisal Khan 'www.stardeveloper.com 'Klasse zum Umgang mit binären Uploads Klassenlader Privates Diktat Private sub class_initialize Setzen Sie dict = server.createObject (scripting.Dictionary) Ende sub Private sub class_terate Wenn isObject (intDict) dann intdict.removeall Setze intDict = nichts Ende wenn Wenn isObject (dikt) dann dict.removeall Setzen Sie dikte = nichts Ende wenn Ende sub Öffentliches Eigentum erhalten Count Count = dict.count Beenden Sie Eigentum Öffentliches Subinitialisieren Wenn request.totalbytes> 0 dann Dim Bindata Bindata = Request.BINYREAD (request.totalbytes) getData bindata Ende wenn Ende sub Öffentliche Funktion getFiledata (Name) Wenn dict. existiert (Name), dann getFiledata = dict (name) .Item (Wert) Anders GetFiledata = Ende wenn Endfunktion Öffentliche Funktion getValue (Name) Dim GV Wenn dict. existiert (Name), dann gv = cstr (dict (name) .Item (value)) GV = links (GV, Len (GV) -2) GetValue = GV Anders GetValue = Ende wenn Endfunktion Öffentliche Funktion Savetofile (Name, Pfad) Wenn dict. existiert (Name), dann Dim Temp temp = dict (name) .Item (Wert) Dim fso Setzen Sie fso = server.createObject (scripting.FilesystemObject) Dim -Datei Set File = fso.createTextFile (Pfad) Für tPoint = 1 bis lenb (temp) Datei.write chr (ASCB (Midb (Temp, tPoint, 1))) Nächste Datei.close SavetoFile = true Anders SavetoFile = false Ende wenn Endfunktion Öffentliche Funktion getFileName (Name) Wenn dict. existiert (Name), dann Dim Tempos, Temppos temp = dict (name) .Item (Dateiname) temppos = 1 Instrrev (Temp, /) GetFileName = Mid (Tempos, Temppos) Anders GetFileName = Ende wenn Endfunktion Öffentliche Funktion getFilepath (Name) Wenn dict. existiert (Name), dann Dim Tempos, Temppos temp = dict (name) .Item (Dateiname) temppos = instrrev (temp, /) getFilepath = Mid (Temp, 1, Temppos) Anders getFilepath = Ende wenn Endfunktion Öffentliche Funktion getFilePathComplete (Name) Wenn dict. existiert (Name), dann getFilePathComplete = dict (name) .Item (Dateiname) Anders GetFilePathComplete = Ende wenn Endfunktion Öffentliche Funktion getFileSize (Name) Wenn dict. existiert (Name), dann getFileSize = lenb (dict (name) .Item (Wert)) Anders getFileSize = 0 Ende wenn Endfunktion Öffentliche Funktion getFilesisetranslated (Name) Wenn dict. existiert (Name), dann temp = lenb (dict (name) .Item (value)) Wenn Temp <= 1024 dann GetFilesizetRanslated = Temp & Bytes Anders temp = formatnumber ((temp / 1024), 2) GetFileizetRanslated = Temp & Kilobytes Ende wenn Anders GetFilesizetRanslated = Ende wenn Endfunktion Öffentliche Funktion getContentType (Name) Wenn dict. existiert (Name), dann getContentType = dict (name) .Item (contentType) Anders getContentType = Ende wenn Endfunktion Private Sub GetData (Rawdata) Schwacher Trennzeichen Separator = Midb (Rawdata, 1, Instrb (1, Rawdata, CHRB (13)) - 1) Dim Lenseparator Lenseparator = Lenb (Trennzeichen) Dim CurrentPos currentpos = 1 Dim Instrbyte Instrbyte = 1 Schwacher Wert, mValue Dim TempValue tempValue = Während Instrbyte> 0 Instrbyte = Instrb (CurrentPos, Rawdata, Separator) MValue = Instrbyte - Strompos Wenn mValue> 1 dann Wert = Midb (Rawdata, Strompos, MValue) Dim Begpos, Endpos, Mid -Value, NValue Dim intDict Setzen Sie intDict = server.createObject (scripting.Dictionary) Begpos = 1 Instrb (1, Wert, CHRB (34)) Endpos = Instrb (Begpos 1, Wert, CHRB (34)) nValue = Endpos Dimnamen namen = midb (Wert, Begpos, Endpos - Begpos) Dim NamesValue, Isvalid isvalid = true Wenn Instrb (1, Wert, StringTobyte (Inhaltstyp))> 1 dann dann Begpos = 1 Instrb (Endpos 1, Wert, CHRB (34)) Endpos = Instrb (Begpos 1, Wert, CHRB (34)) Wenn Endpos = 0 dann Endpos = Begpos 1 isvalid = false Ende wenn MidValue = Midb (Wert, Begpos, Endpos - Begpos) intDict.add Dateiname, Trim (BytetoString (MidValue)) Begpos = 14 Instrb (Endpos 1, Wert, StringTobyte (Inhaltstyp :)) Endpos = Instrb (Begpos, Wert, Chrb (13)) MidValue = Midb (Wert, Begpos, Endpos - Begpos) intDict.add contentType, Trim (BytetoString (MidValue)) Begpos = Endpos 4 Endpos = lenb (Wert) NAMEVALUE = MIDB (Wert, Begpos, (Endpos - Begpos) - 1)) Anders NAMEVALUE = Trim (BytetoString (Midb (Wert, NValue 5))) Ende wenn Wenn isvalid = true dann intDict.add Value, NameValue intDict.add Name, Namen dict.add bytetostring (namen), intDict Ende wenn Ende wenn CurrentPos = Lenseparator Instrbyte Wend Ende sub Endklasse Private function StringTobyte (toconv) Dim Tempchar Für i = 1 zu len (toconv) tempchar = mid (toconv, i, 1) StringTobyte = stringTobyte & chrb (ASCB (tempar)) Nächste Endfunktion Private Funktion BytetoString (toconv) Für i = 1 bis lenb (toconv) bytetoString = bytetoString & chr (ascb (Midb (toconv, i, 1))) Nächste Endfunktion %> 1. Benutzeroberfläche: <script Language = JavaScript> Funktion Checkall (Formular) {für (var i = 0; i <form.elements.length; i) {var e = form.elements [i]; if (e.name! = 'chkall') e.Checked = form.chkall.Checked; } } </script> </head> <body> <formmethode = post action = del.asp name = Form1> <tabelle> <tr> <td> <Eingabe type = Kontrollkästchen value = 111 name = talaName> E -Mail 1 </td> </tr> <tr> <td> <Eingabe type = Kontrollkästchen value = 111 name = talaName> E -Mail 2 </td> </tr> <tr> <td> <Eingabe type = Kontrollkästchen value = 111 name = talaName> E -Mail 3 </td> </tr> <tr> <td> <Eingabe type = Kontrollkästchen value = 111 name = talaName> E -Mail 4 </td> </tr> <tr> <td> <Eingabe type = Kontrollkästchen value = 111 name = talaName> E -Mail 5 </td> </tr> <tr> <td> <Eingabe type = Kontrollkästchen value = 111 name = talaName> E -Mail 6 </td> </tr> <tr> <td bgcolor =#f1fbfc Höhe = 25 colspan = 2> <p Align = links> <Eingabetyp = Checkbox Name = chkall value = on onclick = checkAll (this.form)> <font color =#ff9900> Wählen Sie alle angezeigten Nachrichten </font> </p> Wählen Sie </font> </p> </td> <Center> </tr> </table> </form> 2. Löschen Sie die Datei del.asp <% 'Diese Zeile schreibt den Code, der mit der Datenbank eine Verbindung herstellt Dim ID, Strid Strid = Für jede Strid in Request.form (TradeName) Id = cint (Strid) Wenn Strid <> dann Delrs = server.createObject (adodb.recordset) Conn.execute löschen aus tbname wobei id = & cstr (id) Strid = Ende wenn Nächste Conn.close Setzen Sie Conn = nichts Response.Rect erfolgreich gelöscht! %> |
Teilen: ASP Advanced: Verwenden Sie ASP, um festzustellen, ob die Dateiadresse gültig ist <%Response