Datenbankverbindung:
Das Folgende ist der Referenzinhalt:
<%
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Driver = {Microsoft Access Treiber (*.mdb)};
%>
Öffnen Sie die Datenbank:
Das Folgende ist der Referenzinhalt:
exec = select * aus der Datenbanktabelle
Setzen Sie rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,1
Parameter 1, 1 zum Lesen
Lesen Sie das Inhaltsformat: <%= Rs (Feld)%>
Datensatzverarbeitungsprogramm hinzufügen:
Das Folgende ist der Referenzinhalt:
<%
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Driver = {Microsoft Access Treiber (*.mdb)};
Name = Request.Form (Feld) Name, Tel, Nachricht zum Senden des Feldwerts
tel = request.form (Feld)
Message = Request.Form (Feld)
exec = in den Tabellennamen einfügen (Feld) Werte ('+field+') wird durch ein Komma mit einem Komma getrennt
Conn.execute Exec verwendet Execute -Einreichung
conn.close
Setzen Sie Conn = nichts
%>
Suchverarbeitungsprogramm:
Das Folgende ist der Referenzinhalt:
<%
Name = Request.Form (Feld) Name, Tel ist der Feldwert, der durch die Formulareinstellung des Formulars festgelegt wurde
tel = request.form (Feld)
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Driver = {Microsoft Access Treiber (*.mdb)};
exec = select * aus der Tabelle wobei Name = '+Feld+' und Tel =+Feld
Setzen Sie rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,1
%>
'Der Inhalt der Seite durchsucht
<%
tun, während nicht Rs.Eof
%> <tr>
<td> <%= rs (Name)%> </td>
<td> <%= rs (tel)%> </td>
<td> <%= rs (Zeit)%> </td>
</tr>
<%
Rs.Movenext
Schleife
%>
Datensatzverarbeitungsprogramm löschen:
Das Folgende ist der Referenzinhalt:
<%
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Driver = {Microsoft Access Treiber (*.mdb)};
exec = delete * aus Tabellenname wobei Number = & Request.Form (ID)
Conn.execute Exec
%>
Ändern Sie das Datensatzverarbeitungsprogramm:
Das Folgende ist der Referenzinhalt:
<%
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Driver = {Microsoft Access Treiber (*.mdb)};
exec = select * aus Tabellenname wobei Number = & request.form (id)
Setzen Sie rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,3 '1,3 wird geändert
Rs (name) = request.form (field) 'name, tel, meldung ist der Feldwert, der durch die Einreichung des Formulars festgelegt ist
rs (tel) = request.form (Feld)
Rs (message) = request.form (Feld)
Rs.Update
Rs.close
Setzen Sie Rs = nichts
conn.close
Setzen Sie Conn = nichts
%>
Ändern Sie das Programm zur Ausführung des Datensatzes: Geben Sie die Seite der ID -Nummer ein >>> das entsprechende ID -Daten >>>>>> direkt geändertes Verarbeitungsprogramm
Beispiel für Anmeldeverarbeitungsverfahren:
Das Folgende ist der Referenzinhalt:
<%
Dimer Name, Passwort
name = request.form (name)
password = request.form (Passwort)
Dim Exec, Conn, Rs
exec = select *aus Tabellenname wo (name = '& field &' und password = '& field &')
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Driver = {Microsoft Access Treiber (*.mdb)};
Setzen Sie rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn
wenn nicht rs.eof dann
Rs.close
conn.close
Sitzung (überprüft) = Ja
Sitzung (Überprüfung) = rechts
Antwort.Redirect Index.asp
anders
Sitzung (überprüft) = Nein
Sitzung (Überprüfung) = w
Antwort.Redirect Login.asp
Ende wenn
%>
Jede Hintergrundseite plus:
<%wenn nicht Sitzung (überprüft) = Ja ', dann' Sitzung definieren eine geprüfte Zeichenfolgevariable
Antwort.Redirect Login.asp
anders
%>