Για τα παρακάτω θα πρέπει πρώτα να δημιουργήσετε τη database.
1) Δημιουργήστε μια Βάση δεδομένων
USERS
2) Στη βάση δημιουργήστε ένα πίνακα USERS
3) Στο πίνακα users δημιουργήστε τα παρακάτω πεδία με σειρά
name, email, sex, title,
link, summary
Παρακάτω είναι το αρχείο form.asp
Αντιγράψτε τα παρακάτω και σώστε το αρχείο ως
form.asp
<!--#include file="adovbs.asp"-->
<%
' H φόρμα στο κάτω μέρος της σελίδας.
if request.form("name") <> "" then
' Έλεγχος αν τοποθετήθηκαν λέξεις στα πεδία.
' Αν ναι τότε τοποθετούνται στη βάση
set dbConn=server.createobject("adodb.connection")
ConnString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &Server.MapPath("\users\users.mdb") & ";user=;PASSWORD="
' Η database είναι στο "users" folder του root.
' Στο παράδειγμα ή βάση μας είναι η users.mdb
dbConn.Open ConnString
' Σύνδεση με τη βάση.
dim rs
set rs = Server.CreateObject("ADODB.RecordSet")
rs.cursorlocation = adUseServer
rs.CursorType = adOpenKeySet
rs.LockType = adLockOptimistic
rs.open "users",dbconn, , ,adCmdTable
rs.addnew
if request.form("name") <> "" then
' Έλεγχος αν τοποθετήθηκαν λέξεις στα πεδία.
rs("name") = request.form("name")
end if
if request.form("email") <> "" then
rs("email") = request.form("email")
end if
if request.form("sex") <> "" then
rs("sex") = request.form("sex")
end if
if request.form("title") <> "" then
rs("title") = request.form("title")
end if
if request.form("link") <> "" then
rs("link") = request.form("link")
end if
if request.form("summary") <> "" then
rs("summary") = request.form("summary")
end if
RS.update
rs.close
set rs = nothing
dbconn.close
set dbconn = nothing
' Κλείνουμε την σύνδεση
response.write "Η βάση ανανεώθηκε με επιτυχία"
' Εμφάνιση επιτυχούς μηνύματος
else
' Αν δεν συμπληρώθηκε η φόρμα τότε θα παρουσιάσουμε τη φόρμα.
%>
<FORM METHOD="POST" ACTION="form.asp">
<!-Πρόσεξες παρουσιάζει τη φόρμα από μόνο του. -->
<TABLE cellpadding="4" cellspacing="4" border="0">
<TR>
<TD align="right"><span class="highlight">Όνομα (Required):</span></TD>
<TD><INPUT TYPE="TEXT" NAME="name"></TD>
</TR>
<TR>
<TD align="right"><span class="highlight">E-mail:</span></TD>
<TD><INPUT TYPE="TEXT" NAME="email"></TD>
</TR>
<TR>
<TD valign="top" align="right"><span class="highlight">Φύλο:</span></TD>
<TD><input type="radio" value="Αρσενικό" name="sex">Αρσενικό
<br><input type="radio" value="Θηλυκό" name="sex">Θηλυκό</TD>
</TR>
<TR>
<TD align="right"><span class="highlight">Τίτλος του site:</span></TD>
<TD><INPUT TYPE="TEXT" NAME="title"></TD>
</TR>
<TR>
<TD align="right"><span class="highlight">Link ή URL:</span></TD>
<TD><INPUT TYPE="TEXT" NAME="link"></TD>
</TR>
<TR>
<TD valign="top" align="right"><span class="highlight">Περιγραφή:</span></TD>
<TD><textarea rows="8" cols="40" name="summary"></textarea></TD>
</TR>
<TR>
<TD colspan=2 align=center><input type="submit" value="Submit"> <input type="reset" value="Reset"></TD>
</TR>
</TABLE>
</FORM>
<%
end if
%>
Κατεβάστε από εδώ το
adovbs.asp και τοποθετήστε το στο users folder.