Ich hoffe, dass sie häufig verwendet werden können.
<%
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)