Page d'accueil>Code source ASP>Autres catégories
Télécharger

# : Le développement continue - Le développement continue :#

Aide ASP classique

(TR) Il s'agit de la première bibliothèque d'utilitaires ASP classique compacte connue (d'après mes recherches). Il a une structure qui raccourcit les opérations que vous effectuez fréquemment, vous aide à accélérer le travail de votre base de données et les étapes de développement de logiciels de manière pratique et facilite vos développements. Vous pouvez l'intégrer à vos bibliothèques existantes, le développer et le distribuer. N'oubliez pas de lui donner une étoile et de l'ajouter à votre liste de surveillance.

(FR) Premier utilitaire d'aide au codage ASP classique

Usage

(TR) Tout d’abord, incluez le fichier depuis son chemin physique dans votre fichier de projet. (FR) ... 

 <!--#include file= "/{path}/casphelper.asp" -->

(TR) Si vous souhaitez démarrer la bibliothèque vous-même, ajoutez le code ci-dessous à votre projet pour l'exécuter en premier (EN) ... 

 < %
Set Query = New QueryManager
% >

(TR) Il ne vous reste plus qu'à utiliser la variable Query pour toutes vos opérations. (FR) ... 

 < %
Dim Query
Set Query = New QueryManager
  Query.Debug          = False
  Query.Host           = "localhost"
  Query.Database       = "my_db_name"
  Query.User           = "my_db_username"
  Query.Password       = "MyS3c3tP4ssw0d"
  Query.Connect()
% >

SQL

Insérer/Mettre à jour

Si nous voulons INSÉRER ou METTRE À JOUR une requête SQL, nous devons conserver les valeurs de nom d'entrée de notre formulaire les mêmes que les noms de colonnes de la table concernée. La bibliothèque fait quelques choses ici.

  • Les paramètres de nom FORM/POST entrants et les noms de colonnes de la table cible correspondent-ils ? Si cela ne correspond pas, les données en dehors du champ ne seront pas importées.
  • Les données entrantes correspondent-elles au type de données de la colonne cible ? (INT, VARCHAR/LONGTEXT, DATE/DATETIME)
  • Les données entrantes sont-elles vides ?

En conséquence, deux types de réponses sont renvoyés par la bibliothèque.

  • Si l'opération INSERT réussit, le paramètre ID et le dernier numéro d'enregistrement ajouté (INT) sont renvoyés.
  • Si l'opération UPDATE réussit, elle renvoie vrai, si elle échoue, elle renvoie faux (BOOLEAN).

- RunExtend (INSÉRER)

(TR) La fonction RunExtend est une fonction de retour simple et le paramètre INSERT renvoie la valeur PrimaryKey (ID) (INT) de la ligne ajoutée à la suite de l'opération. Ce résultat indique si l'opération INSERT a réussi ou non. (FR) ... 

 Query.RunExtend( "INSERT" , "table_name" , Null)

(TR) La structure suivante peut être utilisée à titre d'exemple. (FR) ... 

 < %
If Query.Data( "Cmd" ) = "InsertSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "INSERT" , "tbl_users" , Null)
    If IsNumeric( QueryResult ) Then
        Response.Write "Başarılı / Success"
        Response.Write "ID: " & QueryResult
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) La structure du formulaire doit être la suivante. (FR) ... 

 < form action =" /?Cmd=InsertSample " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Insert </ button >
</ form >

(TR) La structure de la base de données est la suivante (EN) ...

NOM DU CHAMP TAPER
IDENTIFIANT (INT) Clé primaire
NOM (VARCHAR)
NOM DE FAMILLE (VARCHAR)
ANNIVERSAIRE (DATE)

- RunExtend (MISE À JOUR)

(TR) La fonction RunExtend est une fonction de retour simple et le paramètre UPDATE renvoie vrai ou faux (booléen) à la suite de l'opération. Ce résultat indique si l'opération UPDATE a réussi ou non (EN)... 

 Query.RunExtend( "UPDATE" , "table_name" , "ID={ID}" )

(TR) La structure suivante peut être utilisée à titre d'exemple. (FR) ... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "UPDATE" , "tbl_uyeler" , "ID={ID}" )
    If QueryResult = True Then 
        Response.Write "Başarılı / Success"
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) La structure du formulaire doit être la suivante. (FR) ... 

 < form action =" /?Cmd=UpdateSample&ID=123 " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Update </ button >
</ form >

(TR) La structure de la base de données est la suivante (EN) ...

NOM DU CHAMP TAPER
IDENTIFIANT (INT) Clé primaire
NOM (VARCHAR)
NOM DE FAMILLE (VARCHAR)
ANNIVERSAIRE (DATE)

-CollectForm & Run (obsolète)

(TR) La combinaison des commandes Collector et Run dans la première version de la bibliothèque est la suivante. La fonction CollectForm collecte les paramètres Request.Form fournis avec la méthode FORM Post et les combine pour INSERT ou UPDATE. Il n'existe aucun mécanisme de contrôle. L’erreur de paramètre revient à Error Raise. (FR) ... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
	Query.CollectForm( "INSERT" )
	Query.AppendRows    = "EKSTRA1, EKSTRA2"
	Query.AppendValues  = "'Manuel Eklenecek Veri 1', 'Manuel Eklenecek Veri 2'"
	Query.Run( "INSERT INTO tbl_tableName(" & Query.Rows & ") VALUES(" & Query.Values & ")" )
	Query.Go( "?Msg=Success" )
End If
% >

EnregistrerExiste(sql)

(TR) Renvoie le résultat d'une requête SQL sous la forme true ou false . Il est utilisé comme substitut à l’EOF dans les méthodes traditionnelles. (FR) ... 

 < %
Dim QueryResult
QueryResult = Query.RecordExist( "SELECT ID FROM tbl_users WHERE ID = 1" )
If QueryResult = True Then
    Response.Write "Record Exist"
Else
    Response.Write "Record Not Exist"
End If
% >

ID maximum

(TR) Permet de renvoyer la valeur d'ID maximale (PrimaryKey) dans n'importe quelle table et condition. Il n'y a pas de vérification des erreurs. (FR) ... 

 Query.MaxID( "tbl_tableName" )

(TR) Pour les situations conditionnelles (EN) ... 

 Query.MaxID( "tbl_tableName WHERE EMAIL = '[email protected]'" )

Exécuter SQL [ conn.Execute(sqlQuery) ]

(TR) La seule personnalisation de cette fonction est que les données à recevoir avec Request.Querystring peuvent être remplacées . Si la structure de l'URL est /?Cmd=Update&ID=123, le paramètre {ID} est mis à jour à 123 dans la requête. . Il implémente le paramètre standard obj.Execute(sql). (FR) ... 

 < %
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = {ID} " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = " & Query.Data( "ID" ) & " " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = 1 " )
% >

Demande et réponse

-Requête.Form/QueryString

(TR) Si vous souhaitez obtenir des données de formulaire ou de chaîne de requête, vous pouvez les obtenir sous la forme Query.Data("key") ou en ligne sous la forme {key} . Votre logiciel capturera tous les paramètres même dans la structure URL 404. Peut être utilisé à la place de Requet.Form(key) ou Request.QueryString(key). (FR) ... 

 < %
Dim SampleValue
SampleValue = Query.Data( "ID" )
% >

(TR) Si l'existence de la donnée n'est pas trouvée (Null, Empty), le résultat peut toujours être renvoyé avec Empty. (FR) ... 

 /script.asp?Cmd=Test&Data1=value&Data2=&Data3=value3
/ 404 url/params/?Cmd=Test&Data1=value&Data2=&Data3=value3

< %
Response.Write Query.Data( "Cmd" )    ' return Test (String)
Response.Write Query.Data( "Data1" )  ' return value (String)
Response.Write Query.Data( "Data2" )  ' return 
Response.Write Query.Data( "Data3" )  ' return value3 (String)
% >

- Réponse.Redirection

(TR) Response.Redirect est une commande que vous pouvez utiliser à la place de "url.asp?some=string" après avoir terminé votre transaction. Vous pouvez traiter les données de requête actuelles. Les mises à jour paramétriques peuvent être utilisées pour récupérer des paramètres de formulaire ou de chaîne de requête. (FR) ... 

 < %
Query.Go( "url.asp?some=string" )
Query.Go( "url.asp?some={ID}" )
% >

- Réponse.Écrire

(TR) Au lieu d'utiliser le standard Response.Write("test") , Query.Echo("test") peut être utilisé. (FR) ... 

 < %
Query.Echo( "test" )
% >

- Réponse.Fin

(TR) Query.Kill() peut être utilisé à la place du Response.End() standard. (FR) ... 

 < %
Query.Kill()
% >

Aides

-Exister()

(TR) Il peut vérifier l'existence de n'importe quelle variable. Effectue des vérifications IsNull, IsEmpty, Len()>0 et renvoie un résultat vrai ou faux (booléen) (EN) ... 

 < %
str_value1 = ""
str_value2 = 2
If Query.Exist(str_value1) = True Then
    ' return true
End If

If Query.Exist(str_value2) = False Then
    ' return false
End If
% >

- FindInArray (Chaîne, Tableau)

(TR) Recherche toutes les données de chaîne dans un groupe de tableaux. Il effectue une vérification de correspondance exacte et applique automatiquement Trim(). Si un résultat est trouvé, le numéro d'index est renvoyé. Si aucun résultat n'est trouvé, un résultat nul est renvoyé. (FR) ... 

 < %
Dim str_array
str_array = Array( "test" , "apple" , "fruit" , "banana" , "mercedes" )

Dim QueryResult
QueryResult = Query.FindInArray( "apple" , str_array)
If IsNull( QueryResult ) Then
    Query.Echo "Not Found"
Else
    Query.Echo "apple found in array index: " & QueryResult
End If
% >

- Méthode autorisée (Nom de la méthode)

(TR) Dans certains cas, vous pouvez limiter l'accès à la zone de transaction concernée uniquement par certaines méthodes. Par exemple, si vous utilisez Method="POST" pour un formulaire, vous pouvez confirmer dans le message d'accueil que la méthode est bien "POST". (FR) ... 

 < %
If Query.AllowedMethod( "POST" ) = False Then
    Query.Echo "Only POST Method Allowed"
    Query.Kill
End If
% >
Développer
Informations supplémentaires
Applications connexes
Recommandé pour vous
Actualités connexes Tout