In ASP wird ein Code -Stück mit einem Rückgabewert als Funktion bezeichnet. Wir können einen Code schreiben, um zu berechnen, ob eine natürliche Zahl eine Primzahl ist, und dann zum Anrufprogramm zurückkehren. Heute wird der neue Technologiekanal mit Ihnen teilen. Was sind die häufig verwendeten Funktionen von ASP? Der Herausgeber erklärt es Ihnen im Detail.
<%
Dim db
db = "dbms.mdb"
'******************************************
'Führen Sie die SQL -Anweisung aus, ohne den Wert zurückzugeben. Die beste SQL -Anweisung lautet wie folgt:
'Aktualisieren der Tabelle Name Set Feldname = Wert, Feldname = Wert Wobei Feldname = Wert
'Löschen Sie aus Tabellenname, wobei Feldname = Wert
'In den Tabellennamen einfügen (Feldname, Feldname) Werte (Wert, Wert)
'******************************************
Subnoresult (SQL)
Dim Conn
Dim Connstr
Setzen Sie conn = server.createObject ("adodb.Connection").
connStr = "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath ("" & db & "")
Conn.open Connstr
Conn.execute SQL
conn.close
Setzen Sie Conn = nichts
Ende sub
'***************************************************
'Führen Sie die Auswahlanweisung aus und geben Sie das RecordSet -Objekt zurück. Dieses Objekt ist schreibgeschützt. Das heißt, es kann nicht aktualisiert werden
'***************************************************
Funktionsergebnis (SQL)
Dim Conn
Dim Connstr
dunkler RCS
Setzen Sie conn = server.createObject ("adodb.Connection").
connStr = "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath ("" & db & "")
Conn.open Connstr
Setzen Sie rcs = server.createObject ("adodb.recordset").
RCS.Open SQL, Conn, 1,1
Setzen Sie Ergebnis = RCS
Endfunktion
'***************************************************
'Das Dialogfeld wird angezeigt
'***************************************************
Sub Alarm (Nachricht)
message = ersetzen (message, "'", "/'")
Response.write ("<Script> alert ('" & message & "') </script>")
Ende sub
'***************************************************
'Kehren Sie zur vorherigen Seite zurück, die normalerweise nach der Beurteilung verwendet wird, ob die Informationen vollständig eingereicht werden
'***************************************************
Sub goveback ()
Response.write ("<Script> history.go (-1) </script>")
Ende sub
'***************************************************
'Eine andere Verbindung umleiten
'***************************************************
Sub Go (URL)
Response.write ("<Script> location.href ('" & url & "') </script>")
Ende sub
'***************************************************
'Ersetzen Sie das HTML -Tag
'***************************************************
Funktion htmlencode2 (STR)
Dimes Ergebnis
dumm l
Wenn isnull (str) dann
htmlencode2 = ""
Ausgangsfunktion
Ende wenn
l = len (str)
Ergebnis = ""
dim i
für i = 1 bis l
Wählen Sie den Fall Mid (str, i, 1)
Fall "<" <"
Ergebnis = Ergebnis+"<"
Fall ">"
Ergebnis = Ergebnis+">"
Fall Chr (13)
Ergebnis = Ergebnis+"<br>"
Fall CHR (34)
Ergebnis = Ergebnis+"" "
Fall "&"
Ergebnis = Ergebnis+"&"
Fall CHR (32)
'Ergebnis = Ergebnis+""
Wenn i+1 <= l und i-1> 0 dann
Wenn mittel (str, i+1,1) = chr (32) oder mittel (str, i+1,1) = chr (9) oder mittel (str, i-1) = chr (32) oder mittel (str, i-1,1) = chr (9), dann
Ergebnis = Ergebnis+""
anders
Ergebnis = Ergebnis+""
Ende wenn
anders
Ergebnis = Ergebnis+""
Ende wenn
Fall Chr (9)
Ergebnis = Ergebnis+""
Fall sonst
Ergebnis = Ergebnis+Mitte (str, i, 1)
Ende auswählen
nächste
htmlencode2 = Ergebnis
Endfunktion
'***************************************************
'Überprüfen Sie, ob es in der SQL -Zeichenfolge einzelne Zitate gibt und ob es vorhanden ist
'***************************************************
Funktionsprüfung (STR)
Dim Tstr, L, I, Ch
STR = Trim (str)
l = len (str)
für i = 1 bis l
CH = MID (STR, I, 1)
Wenn ch = "'" dann
tstr = tstr+"'" "
Ende wenn
TSTR = TSTR+CH
nächste
Checkstr = tstr
Endfunktion
%>
Welche gemeinsamen Funktionen, die in ASP vom neuen Technologiekanal im heutigen Artikel eingeführt werden? Ich glaube, dass jeder durch die obige Einführung es gründlich gelernt hat, aber es muss es noch überprüfen, um dieses Wissen zu konsolidieren.