Exemple d'astuce ASP: à propos du programme de formulaires d'exploitation

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

'[email protected]

'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é!

%>