Startseite>ASP-Quellcode>Andere Kategorien
Herunterladen

#: Entwicklung geht weiter - Entwicklung geht weiter :#

ClassicASP-Helfer

(TR) Es ist die erste bekannte kompakte, klassische ASP-Dienstprogrammbibliothek (meiner Recherche zufolge). Es verfügt über eine Struktur, die die von Ihnen häufig durchgeführten Vorgänge verkürzt, Ihnen hilft, Ihre Datenbankarbeit und Softwareentwicklungsphasen praktisch zu beschleunigen und Ihre Entwicklungen zu vereinfachen. Sie können es in Ihre vorhandenen Bibliotheken integrieren, entwickeln und verteilen. Bitte vergessen Sie nicht, ihm einen Stern zu geben und ihn Ihrer Beobachtungsliste hinzuzufügen.

(DE) Erstes klassisches Hilfsprogramm zur ASP-Codierung

Verwendung

(TR) Fügen Sie zunächst die Datei aus ihrem physischen Pfad in Ihre Projektdatei ein. (DE) ... 

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

(TR) Wenn Sie die Bibliothek selbst starten möchten, fügen Sie den folgenden Code zu Ihrem Projekt hinzu, um ihn zuerst auszuführen (EN) ... 

 < %
Set Query = New QueryManager
% >

(TR) Jetzt müssen Sie nur noch die Variable Query für alle Ihre Operationen verwenden. (DE) ... 

 < %
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

Einfügen/Aktualisieren

Wenn wir eine SQL-Abfrage EINFÜGEN oder AKTUALISIEREN möchten, müssen die Werte unserer Formulareingabenamen mit den Spaltennamen der relevanten Tabelle übereinstimmen. Die Bibliothek leistet hier einiges.

  • Stimmen die eingehenden FORM/POST-Namensparameter und Zieltabellenspaltennamen überein? Wenn es nicht übereinstimmt, werden Daten außerhalb des Feldes nicht importiert.
  • Entsprechen die eingehenden Daten dem Datentyp der Zielspalte? (INT, VARCHAR/LONGTEXT, DATE/DATETIME)
  • Sind die eingehenden Daten leer?

Als Ergebnis werden zwei Arten von Antworten von der Bibliothek zurückgegeben.

  • Wenn die INSERT-Operation erfolgreich ist, werden der ID-Parameter und die zuletzt hinzugefügte Datensatznummer (INT) zurückgegeben.
  • Wenn die UPDATE-Operation erfolgreich ist, wird „true“ zurückgegeben, wenn sie fehlschlägt, wird „false“ (BOOLEAN) zurückgegeben.

- RunExtend(INSERT)

(TR) Die RunExtend-Funktion ist eine einfache Rückgabefunktion und der INSERT-Parameter gibt den Primärschlüsselwert (ID) (INT) der als Ergebnis der Operation hinzugefügten Zeile zurück. Dieses Ergebnis informiert darüber, ob die INSERT-Operation erfolgreich war oder nicht. (DE) ... 

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

(TR) Die folgende Struktur kann beispielsweise verwendet werden. (DE) ... 

 < %
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) Die Formularstruktur sollte wie folgt sein. (DE) ... 

 < 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) Die Datenbankstruktur ist wie folgt (EN) ...

FELDNAME TYP
AUSWEIS (INT) Primärschlüssel
NAME (VARCHAR)
NACHNAME (VARCHAR)
GEBURTSTAG (DATUM)

- RunExtend(UPDATE)

(TR) Die RunExtend-Funktion ist eine einfache Rückgabefunktion und der UPDATE-Parameter gibt als Ergebnis der Operation „true“ oder „false“ (boolean) zurück. Dieses Ergebnis informiert darüber, ob der UPDATE-Vorgang erfolgreich war oder nicht (EN)... 

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

(TR) Die folgende Struktur kann beispielsweise verwendet werden. (DE) ... 

 < %
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) Die Formularstruktur sollte wie folgt sein. (DE) ... 

 < 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) Die Datenbankstruktur ist wie folgt (EN) ...

FELDNAME TYP
AUSWEIS (INT) Primärschlüssel
NAME (VARCHAR)
NACHNAME (VARCHAR)
GEBURTSTAG (DATUM)

-CollectForm & Run (veraltet)

(TR) Die Kombination der Collector- und Run-Befehle in der ersten Version der Bibliothek ist wie folgt. Die CollectForm-Funktion sammelt die Request.Form-Parameter, die mit der FORM-Post-Methode geliefert werden, und kombiniert sie für INSERT oder UPDATE. Es gibt keinen Kontrollmechanismus. Der Parameterfehler kehrt zu „Error Raise“ zurück. (DE) ... 

 < %
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
% >

RecordExist(sql)

(TR) Gibt das Ergebnis einer SQL-Abfrage als wahr oder falsch zurück. Es wird in herkömmlichen Methoden als EOF-Ersatz verwendet. (DE) ... 

 < %
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
% >

MaxID

(TR) Ermöglicht die Rückgabe des maximalen ID-Werts (PrimaryKey) in jeder Tabelle und Bedingung. Es erfolgt keine Fehlerprüfung. (DE) ... 

 Query.MaxID( "tbl_tableName" )

(TR) Für bedingte Situationen (EN) ... 

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

SQL ausführen [ conn.Execute(sqlQuery) ]

(TR) Die einzige Anpassung für diese Funktion besteht darin, dass die zu empfangenden Daten durch Request.Querystring ersetzt werden können. Wenn die URL-Struktur /?Cmd=Update&ID=123 lautet, wird der Parameter {ID} in der Abfrage auf 123 aktualisiert. . Es implementiert den Standardparameter obj.Execute(sql). (DE) ... 

 < %
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 " )
% >

Anfrage und Antwort

- Request.Form/QueryString

(TR) Wenn Sie Formular- oder Abfragezeichenfolgendaten erhalten möchten, können Sie diese als Query.Data("key") oder inline als {key} abrufen. Ihre Software erfasst alle Parameter auch in der 404-URL-Struktur. Kann anstelle von Requet.Form(key) oder Request.QueryString(key) verwendet werden. (DE) ... 

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

(TR) Wenn die Existenz der Daten nicht gefunden wird (Null, Empty), kann das Ergebnis immer mit Empty zurückgegeben werden. (DE) ... 

 /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)
% >

- Response.Redirect

(TR) Response.Redirect ist ein Befehl, den Sie nach Abschluss Ihrer Transaktion anstelle von „url.asp?some=string“ verwenden können. Sie können aktuelle Anforderungsdaten verarbeiten. Parametrische Updates können zum Abrufen von Formular- oder Querystring-Parametern verwendet werden. (DE) ... 

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

- Antwort.Schreiben

(TR) Anstelle der Standard -Response.Write("test") kann Query.Echo("test") verwendet werden. (DE) ... 

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

- Antwort.Ende

(TR) Query.Kill() kann anstelle des Standard -Response.End() verwendet werden. (DE) ... 

 < %
Query.Kill()
% >

Helfer

-Existieren()

(TR) Es kann die Existenz jeder Variablen überprüfen. Führt IsNull-, IsEmpty- und Len()>0-Prüfungen durch und gibt ein wahres oder falsches (boolesches) Ergebnis zurück (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(String, Array)

(TR) Sucht nach beliebigen Zeichenfolgendaten in einer Array-Gruppe. Es führt eine Prüfung auf exakte Übereinstimmung durch und wendet automatisches Trim() an. Wenn ein Ergebnis gefunden wird, wird die Indexnummer zurückgegeben. Wenn kein Ergebnis gefunden wird, wird ein Null- Ergebnis zurückgegeben. (DE) ... 

 < %
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
% >

- AllowedMethod(MethodName)

(TR) In manchen Fällen können Sie den Zugriff auf den relevanten Transaktionsbereich nur durch bestimmte Methoden beschränken. Wenn Sie beispielsweise Method="POST" für ein Formular verwenden, können Sie in der Begrüßung bestätigen, dass die Methode tatsächlich „POST“ ist. (DE) ... 

 < %
If Query.AllowedMethod( "POST" ) = False Then
    Query.Echo "Only POST Method Allowed"
    Query.Kill
End If
% >
Expandieren
Zusätzliche Informationen
Ähnliche Anwendungen
Empfohlen für Sie
Ähnliche Nachrichten Alle