Dans ASP, un morceau de code avec une valeur de retour est appelé une fonction. Nous pouvons écrire un morceau de code pour calculer si un nombre naturel est un numéro privilégié, puis revenir au programme d'appel. Aujourd'hui, le nouveau canal technologique partagera avec vous Quelles sont les fonctions couramment utilisées d'ASP? L'éditeur vous l'expliquera en détail.
<%
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 = "Provider = 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 = "Provider = 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 ()
Response.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)
résultat = résultat + "<br>"
Case Chr (34)
résultat = résultat + "" "
cas "&"
résultat = résultat + "&"
Case Chr (32)
'result = résultat + ""
Si i + 1 <= l et i-1> 0 alors
Si mi-(str, i + 1,1) = chr (32) ou mid (str, i + 1,1) = ch (9) ou mid (str, i-1,1) = ch (32) ou mid (str, i-1,1) = chr (9) puis
résultat = résultat + ""
autre
résultat = résultat + ""
terminer si
autre
résultat = résultat + ""
terminer si
Case Chr (9)
résultat = résultat + ""
cas d'autre
résultat = résultat + mid (str, i, 1)
fin de sélection
suivant
htmlencode2 = résultat
fonction finale
'***********************************************************************************
'Vérifiez s'il y a des devis uniques dans la chaîne SQL, et s'il y en a, convertissez-le
'***********************************************************************************
Fonction Checktr (STR)
dim tsstr, l, i, ch
str = trim (str)
l = len (str)
pour i = 1 à L
ch = mid (str, i, 1)
Si ch = "'" alors
TSTR = TSTR + "'"
terminer si
TSTR = TSTR + CH
suivant
Checkstr = TSTR
fonction finale
%>
Quelles sont les fonctions communes utilisées dans ASP introduit par le nouveau canal technologique dans l'article d'aujourd'hui? Je crois que grâce à l'introduction ci-dessus, tout le monde l'a bien appris, mais il doit encore le revoir pour consolider ces connaissances.