|
This page shows the ASP and JavaScript code used in the
"Login" section.
login.asp |
<!--#INCLUDE
FILE="header.inc"-->
<!--#INCLUDE FILE="validateform.inc"-->
<blockquote>
<p align="center"><strong>The status
was:</strong><big></p>
</blockquote>
<blockquote>
<blockquote>
<!--#INCLUDE FILE="getresult.inc"-->
</blockquote>
</blockquote>
<blockquote>
</big><blockquote>
<big><p align="center"></big>Enter your login details you
added on the previous page and
test the login.<br>
The success or failure will be show above.</p>
</blockquote>
</blockquote>
<form ACTION="login.asp" name="saveform" METHOD="POST"
align="center">
<div align="center"><center><table border="0"
width="704" cellspacing="0" cellpadding="0">
<tr>
<td width="385"><div align="right"><table
border="0" height="59" width="226"
bgcolor="#FFFFFF" cellspacing="1" cellpadding="0">
<tr>
<td width="154" height="19" bgcolor="#800080"><div
align="right"><p><font
color="#FFFFFF"><small>Username:</small></font></td>
<td width="133" height="19" bgcolor="#800080"><div
align="left"><p><input NAME="username"
VALUE SIZE="8" MAXLENGTH="16" tabindex="1"></td>
<td width="64" height="19" bgcolor="#C0C0C0"
align="center"><div
align="center"><center><p><a
href="javascript:alert('The username must be between 4 and 16 characters
long.')"><small><small>Help</small></small></a></td>
</tr>
<tr align="center">
<td width="154" height="17" bgcolor="#800080"><div
align="right"><p><font
color="#FFFFFF"><small>Password:</small></font></td>
<td height="17" width="133" bgcolor="#800080"><div
align="left"><p><input type="password"
name="password" size="8" tabindex="2"
maxlength="8"></td>
<td height="17" bgcolor="#C0C0C0" align="center"><a
href="javascript:alert('The password must be between 4 and 8 characters
long.')"><small><small>Help</small></small></a></td>
</tr>
<tr align="center">
<td width="154" height="1"
bgcolor="#800080"></td>
<td width="133" height="1" bgcolor="#800080"><div
align="left"><p><input TYPE="button"
NAME="FormsButton2" VALUE="Test Login"
ONCLICK="validateForm()" tabindex="3"
style="font-family: Verdana; font-size: 8pt"></td>
<td width="64" height="1" bgcolor="#C0C0C0"
align="center"><a
href="javascript:alert('Click to save the
details')"><small><small>Help</small></small></a></td>
</tr>
</table>
</div></td>
<td align="center" width="319"><small><strong><a
href="getyourowndbonline.asp">Now move on
to the final section</a></strong></small></td>
</tr>
</table>
</center></div>
</form>
<p align="center"> </p>
<p align="center"><a href="logincode.asp">Click here to
view the ASP and JavaScript code</a>
used for this page.</p>
<p align="center"> </p>
<!--#INCLUDE FILE="footer.inc"--> |
|
getresult.inc |
<%
@LANGUAGE = VBScript %>
<%
Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
conString = "DBQ=D:\a\s\aspthedemosite\private\example.mdb"
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & conString
Set objRS = Server.CreateObject("ADODB.RecordSet")
strQ = "SELECT * from members where username = '" &
Request.Form("username")
strQ = strQ & "' and password = '" & Request.Form("password")
& "'"
objRS.Open strQ, objConn
If Request.Form("password") > "" Then
If objRS.EOF Then
Response.Write "<font color=#ff0000><Center><b>**Failed
Login**</b></Center></font>"
Else
Response.Write "<font color=#008000><Center><b>**Successful
Login**</b></Center></font>"
End If
Else
Response.Write "<font color=#ff8000><Center><b>**No login
attempted**</b></Center></font>"
End If
objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%> |
|
< Go Back<
|
|
