Recommandé: Routine: Utilisez ASP pour déterminer si l'adresse du fichier est valide Ce qui suit est le contenu cité: <% Response.Write (<A-Head> <style> <! - Span {Font-Size: 9pt} -> </ Style> </ Head & G
| Ce qui suit est le contenu cité: Insertion du contenu du formulaire dans la base de données avec ASP. <% '- Loader.asp - '- Version 1.5.2 '- Dernier 12/5/2002 mis à jour ' 'Faisal Khan 'www.stardevelopper.com 'Classe pour gérer les téléchargements binaires Chargeur de classe Dict privé Private Sub class_inialize Set dict = server.createObject (scripting.dictionary) Sub-Sub Sous-classe privée_terminée Si isObject (intdict) alors intdict.removeall Set intdict = rien Terminer si Si isObject (dict) alors dict.removeall Définir le dict = rien Terminer si Sub-Sub La propriété publique est compté Comte = dict.Count Propriété finale Sous-initialisation du public Si demande.totalbytes> 0 alors Sombre bindata bindata = request.binaryread (request.totalbytes) getdata bindata Terminer si Sub-Sub Fonction publique getfiledata (nom) Si dict.exists (nom) alors getFileData = dict (nom) .item (valeur) Autre getFileData = Terminer si Fonction finale Fonction publique getValue (nom) Gv sombre Si dict.exists (nom) alors gv = cstr (dict (nom) .item (valeur)) gv = gauche (gv, len (gv) -2) getValue = gv Autre getValue = Terminer si Fonction finale Fonction publique Savetofile (nom, chemin) Si dict.exists (nom) alors Température temp = dict (nom) .item (valeur) DIM FSO Set fso = server.createObject (scripting.fileSystemObject) Fichier Set file = fso.createtextfile (chemin) Pour tpoint = 1 à Lenb (temp) file.write chr (ascb (midb (temp, tpoint, 1)))) Suivant file.close SaveTofile = True Autre Savetofile = faux Terminer si Fonction finale Fonction publique getFileName (nom) Si dict.exists (nom) alors Tempère faible, Temppos temp = dict (nom) .item (nom de fichier) temppos = 1 instrrrev (temp, /) getFileName = mid (temp, temppos) Autre getFileName = Terminer si Fonction finale Fonction publique getFilepath (nom) Si dict.exists (nom) alors Tempère faible, Temppos temp = dict (nom) .item (nom de fichier) temppos = instrrev (temp, /) getFilepath = mid (temp, 1, temppos) Autre getFilepath = Terminer si Fonction finale Fonction publique getFilePathComplete (nom) Si dict.exists (nom) alors getFilePathComplete = dict (nom) .item (nom de fichier) Autre getFilePathComplete = Terminer si Fonction finale Fonction publique getfilesize (nom) Si dict.exists (nom) alors getFileSize = Lenb (dict (nom) .item (valeur)) Autre getfilesize = 0 Terminer si Fonction finale Fonction publique getFileSizetRanslated (nom) Si dict.exists (nom) alors temp = LENB (dict (nom) .item (valeur)) Si temp <= 1024 alors getFileSizetRanslated = temp & octets Autre temp = formatNumber ((temp / 1024), 2) getFileSizEtranslated = temp & kiloBytes Terminer si Autre getFileSizetRanslated = Terminer si Fonction finale Fonction publique getContentType (nom) Si dict.exists (nom) alors getContentType = dict (nom) .item (contentType) Autre getContentType = Terminer si Fonction finale Sub GetData privé (RawData) Séparateur sombre séparateur = midb (rawdata, 1, instrb (1, rawdata, chrb (13)) - 1) Fossoir de faiblesse LenseParator = LENB (séparateur) DIM Currentpos currentpos = 1 Talent instrbyte = 1 Valeur sombre, mValue Faible tempvalue tempvalue = Tandis que l'instruction> 0 instrbyte = instrb (currentpos, rawdata, séparateur) mValue = instrbyte - currentpos Si mValue> 1 alors Valeur = Midb (RawData, CurrentPos, MValue) DIM BEGPOS, ENDPOS, MIDEVALUE, NVALUE Intdict DIM SET INTDICT = Server.CreateObject (Scripting.Dictionary) BegPos = 1 instrb (1, valeur, chrb (34)) EndPos = instrb (BegPos 1, valeur, chrb (34)) nvalue = terming Namen sombre namen = midb (valeur, begpos, endpos - begpos) Dim nameValue, isvalid isValid = true Si instrb (1, valeur, stringToByte (contenu-type))> 1 alors BEGPOS = 1 instrb (EndPos 1, valeur, chrb (34)) EndPos = instrb (BegPos 1, valeur, chrb (34)) Si endpos = 0 alors EndPos = Begpos 1 isvalid = false Terminer si midValue = midb (valeur, begpos, endpos - begpos) nom de fichier intdict.add, garniture (bytetoString (mi-valeur)) begpos = 14 instrb (endpos 1, valeur, stringtoByte (type de contenu :)) EndPos = instrb (begpos, valeur, chrb (13)) midValue = midb (valeur, begpos, endpos - begpos) Intdict.add ContentType, Trim (BytetoString (MidValue)) Begpos = Endpos 4 EndPos = Lenb (valeur) nameValue = midb (valeur, begpos, ((endpos - begpos) - 1)) Autre nameValue = Trim (bytetoString (midb (valeur, nvalue 5))) Terminer si Si isvalid = true alors valeur intdict.add, nameValue nom intdict.add, namen dict.add bytetostring (namen), intdict Terminer si Terminer si CurrentPos = LenseParator instrbyte Se promener Sub-Sub Classe finale Fonction privée StringToByte (TOCONV) Temphar Pour i = 1 à len (toconv) tempChar = mid (toconv, i, 1) StringToByte = StringToByte & Chrb (ASCB (TempChar)) Suivant Fonction finale Fonction privée bytetoString (toconv) Pour i = 1 à Lenb (toConv) bytetoString = bytetoString & chr (ascb (midb (toconv, i, 1)))) Suivant Fonction finale %> 1. Interface utilisateur: <Script Language = JavaScript> Fonction CheckAll (formulaire) {pour (var i = 0; i <form.elements.length; i) {var e = form.Elements [i]; if (e.name! = 'chkall') e.checked = form.chkall.checked; } } </cript> </ head> <body> <formulaire méthode = post-action = del.asp name = form1> <ballage> <tr> <Td> <Type d'entrée = Valeur à cocher = 111 Name = Tradename> Email 1 </td> </tr> <tr> <Td> <Type de saisie = Valeur à cocher = 111 Name = Tradename> Email 2 </td> </tr> <tr> <Td> <Type d'entrée = Valeur à cocher = 111 Name = Tradename> Email 3 </td> </tr> <tr> <Td> <Type d'entrée = Valeur à cocher = 111 Name = Tradename> Email 4 </td> </tr> <tr> <Td> <Type d'entrée = Valeur à cocher = 111 Name = Tradename> Email 5 </td> </tr> <tr> <Td> <Type d'entrée = Valeur à cocher = 111 Name = Tradename> Email 6 </td> </tr> <tr> <td bgColor = # f1fbfc height = 25 Colspan = 2> <p align = Left> <input type = checkbox name = chkall value = on onclick = checkAll (this.form)> <font color = # ff9900> sélectionnez tous les messages affichés </font> </p> </td> <Nenter> </tr> </ table> </ form> 2. Supprimer le fichier del.asp <% 'Cette ligne écrit le code se connectant à la base de données id dim, Strid stride = Pour chaque étape dans demande.form (Tradename) Id = Cint (Strid) Si Strid <> alors Delrs = server.createObject (adodb.recordSet) Conn.execcute Supprimer de tbname où id = & cstr (id) stride = terminer si Suivant Conn.Close Définir Conn = Rien Response.redirect avec succès supprimé! %> |
Partager: ASP Advanced: Utilisez ASP pour déterminer si l'adresse du fichier est valide <% Response.Write (<A-Head> <style> <! - Span {Font-Size: 9pt} -> </ Style> </ Head>) sur l'erreur R