ASP-Tutorial: Einige notwendige Kenntnisse für jeden ASP-Programmierer
Datenbankanbindung:
Nachfolgend der zitierte Inhalt:
<%
set conn=server.createobject(adodb.connection)
conn.open Driver={Microsoft Access Driver (*.mdb)};dbq=&server.mappath(Datenbankname)
%>
Öffnen Sie die Datenbank:
Nachfolgend der zitierte Inhalt:
exec=select * aus der Datenbanktabelle
set rs=server.createobject(adodb.recordset)
rs.open exec,conn,1,1
Parameter 1, 1 wird gelesen
Inhaltsformat lesen: <%=rs(field)%>
Datensatzhandler hinzufügen:
Nachfolgend der zitierte Inhalt:
<%
set conn=server.createobject(adodb.connection)
conn.open Driver={Microsoft Access Driver (*.mdb)};dbq=&server.mappath(Datenbankname)
name=request.form (field) name, tel, message sind die Feldwerte, die zum Absenden des Formulars festgelegt werden
tel=request.form(field)
message=request.form(field)
exec=in Tabellennamen (Feld)-Werte („+Feld+“) einfügen, durch Kommas getrennte Vielfache
conn.execute exec verwendet „execute“ zum Senden
Verbindung schließen
setze conn=nichts
%>
Suchhandler:
Nachfolgend der zitierte Inhalt:
<%
name=request.form(field) name,tel sind die zum Absenden des Formulars festgelegten Feldwerte
tel=request.form(field)
set conn=server.createobject(adodb.connection)
conn.open Driver={Microsoft Access Driver (*.mdb)};dbq=&server.mappath(Datenbankname)
exec=select * from table where name='+field+' and tel=+field
set rs=server.createobject(adodb.recordset)
rs.open exec,conn,1,1
%>
'Exportieren Sie den auf der Seite gesuchten Inhalt
<%
tun, während nicht rs.eof
%><tr>
<td><%=rs(name)%></td>
<td><%=rs(tel)%></td>
<td><%=rs(time)%></td>
</tr>
<%
rs.movenext
Schleife
%>
Datensatzhandler löschen:
Nachfolgend der zitierte Inhalt:
<%
set conn=server.createobject(adodb.connection)
conn.open Driver={Microsoft Access Driver (*.mdb)};dbq=&server.mappath(Datenbankname)
exec=delete * from table name where number=&request.form(id)
conn.execute exec
%>
Datensatzhandler ändern:
Nachfolgend der zitierte Inhalt:
<%
set conn=server.createobject(adodb.connection)
conn.open Driver={Microsoft Access Driver (*.mdb)};dbq=&server.mappath(Datenbankname)
exec=select * from table name where number=&request.form(id)
set rs=server.createobject(adodb.recordset)
rs.open exec,conn,1,3 '1,3 dient dazu, die Bedeutung zu ändern
rs(name)=request.form(field) 'name,tel,message sind die zum Absenden des Formulars festgelegten Feldwerte
rs(tel)=request.form(field)
rs(message)=request.form(field)
rs.update
rs.close
setze rs=nichts
Verbindung schließen
setze conn=nichts
%>
Datensatzausführungsprogramm ändern: Seite „ID-Nummer eingeben“>>>>Entsprechende ID-Daten exportieren>>>>>>Prozessor zur direkten Änderung
Beispiel für einen Hintergrund-Login-Handler:
Nachfolgend der zitierte Inhalt:
<%
dunkler Name, Passwort
name=request.form(name)
passwort=request.form(passwort)
dim exec,conn,rs
exec=select *from table name where(name='&field&' and password='&field&')
set conn=server.createobject(adodb.connection)
conn.open Driver={Microsoft Access Driver (*.mdb)};dbq=&server.mappath(Datenbankname)
set rs=server.createobject(adodb.recordset)
rs.open exec,conn
wenn nicht rs.eof dann
rs.Schließen
conn.Schließen
session(checked)=yes
session(check)=right
Antwort.Redirect index.asp
anders
Sitzung(geprüft)=nein
session(check)=falsch
Antwort.Redirect login.asp
Ende wenn
%>
Zu jeder Backend-Seite hinzufügen:
<%if not session(checked)=yes then 'definiere eine geprüfte String-Variable in der Sitzung
Antwort.Redirect login.asp
anders
%>