Fonctions couramment utilisées de l'ASP, j'espère qu'elles pourront être utilisées.
<%
dob db
db = dbms.mdb
'**************************************************************************
«Exécutez l'instruction SQL sans renvoyer la valeur. La meilleure instruction SQL est la suivante:
'Mise à jour le nom de la table définit le nom de champ = valeur, nom de champ = valeur où le nom de champ = valeur
«Supprimer du nom de la table où le nom de champ = valeur
«Insérer dans le nom de la table (nom de champ, nom de champ) Valeurs (valeur, valeur)
'**************************************************************************
Sous-noresulte (SQL)
tabar
Dim Connstr
Définir Conn = Server.CreateObject (ADODB.Connection)
Connstr = fournisseur = Microsoft.Jet.oledb.4.0; Data Source = & Server.Mappath (& db &)
Conn.Open Connstr
Conn.execcute SQL
Conn.Close
Définir Conn = Rien
Sub-Sub
'***********************************************************************************
'Exécutez l'instruction SELECT et renvoyez l'objet RecordSet. Cet objet est en lecture seule. C'est-à-dire qu'il ne peut pas être mis à jour
'***********************************************************************************
Résultat de la fonction (SQL)
tabar
Dim Connstr
RCS DIM
Définir Conn = Server.CreateObject (ADODB.Connection)
Connstr = fournisseur = Microsoft.Jet.oledb.4.0; Data Source = & Server.Mappath (& db &)
Conn.Open Connstr
Set rcs = server.createObject (adodb.recordSet)
RCS.Open SQL, Conn, 1,1
Définir le résultat = RCS
Fonction finale
'***********************************************************************************
'La boîte de dialogue apparaît
'***********************************************************************************
Sous-alerte (message)
message = remplacer (message, ', /')
Réponse.write (<cript> alert ('& message &') </cript>)
Sub-Sub
'***********************************************************************************
'Retour à la page précédente, généralement utilisée après avoir jugé si les informations sont complètement soumises
'***********************************************************************************
Sub goback ()
Réponse.Write (<Script> History.go (-1) </cript>)
Sub-Sub
'***********************************************************************************
'Rediriger une autre connexion
'***********************************************************************************
Sub Go (URL)
Réponse.write (<cript> location.href ('& url &') </cript>)
Sub-Sub
'***********************************************************************************
'Remplacez la balise HTML
'***********************************************************************************
fonction htmlencode2 (str)
résultat dim
dim l
Si ISNULL (STR) alors
htmlencode2 =
fonction de sortie
terminer si
l = len (str)
résultat =
dim je
pour i = 1 à L
Sélectionnez Case Mid (Str, I, 1)
cas <
résultat = résultat + <
cas>
résultat = résultat +>
Case Chr (13)