ASP Login Script 1

Guest_imported · Nov 11, 2001

Can anyone tell me where i can find a good ASP Login Script with a 'Forgotten Password' section included. Most of the ASP sites dont have what i am looking for.

Thanks.

P.S. I am also looking for a ASP Shopping cart script that is quality code with good features and Access 2000 driven.

Hope someone can help!!!

BigBadDave · Nov 13, 2001

Here is the updated script with new user signup:

<%
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("site.mdb&quot

username = Request("username&quot

password = Request("password&quot

try = Request("try&quot

forgot = Request("forgot&quot

newuser = Request("newuser&quot

sendpwtry = Request("sendpwtry&quot

newentry = Request("newentry&quot

newusername = Request("newusername&quot

newpassword = Request("newpassword&quot

newemail = Request("newemail&quot

If newentry = "True" Then
Set rsset = Server.CreateObject("ADODB.Recordset&quot

rsset.Open "login", data_source, 2, 2

rsset.addnew

rsset("password&quot

= newpassword
rsset("username&quot

= newusername
rsset("email&quot

= newemail

rsset.Update
rsset.Movelast
rsset.Close
Set rsset = Nothing

session("access&quot

=("True&quot

Response.Redirect "default.asp"

Else
If newuser = "True" Then
%>
<html>
<head>
<title>
</title>
</head>
<body>
<form action="default.asp" method="post">
<input type="hidden" name="newentry" value="True">
<table>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Username :</font></td>
<td><input type="text" name="newusername"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Password :</font></td>
<td><input type="password" name="newpassword"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">E-mail:</font></td>
<td><input type="text" name="newemail"></td>
</tr>
<tr>
<td colspan="2" align="right"><input type="submit" value="Signup"></td>
</tr>
</table>
</form>
</body>
</html>
<%
Else
If sendpwtry = "True" Then
Set rsp = Server.CreateObject("ADODB.Recordset&quot

rsp.Open "select * from login where ( username = '" & USERNAME & "' )", data_source
If rsp.EOF And rsp.BOF Then
%>
<html>
<head>
<title>
</title>
</head>
<body>
<form action>
<input type="hidden" name="sendpwtry" value="True">
<table>
<tr>
<td><img alt="""" src=""../img/spacer.gif"" height=""10"" width=""1""></td>
</tr>
<tr>
<td colspan=""2""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">That username does not exist in the database</font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Username :</font></td>
<td><input type="text" name="username"></td>
</tr>
<tr>
<td colspan="2" align="right"><input type="submit" value="Request Password"></td>
</tr>
</table>
</form>
</body>
</html>
<%
rsp.Close
Set rsp = Nothing
Else
%>
<html>
<head>
<title>
</title>
</head>
<body>
<table>
<tr>
<%
name = "Your-Site admin"
senderEmail = "admin@your-site.com"
subject = "You password is..."
recipient = rsp("email&quot

body = "... Hello " & rsp("username&quot

& " your password is : ' " & rsp("password&quot

& " '"

set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = true
msg.silent = true

msg.From = senderEmail
msg.FromName = name

msg.AddRecipient recipient

msg.body = body

If not msg.Send("mail.your-server.co.uk" ) Then
Response.Write "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">" & msg.log & "</font></td>"
Else
Response.Write "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Your password has been e-mailed to : " & rsp("email&quot

& "</font></td>"
End If

rsp.Close
Set rsp = Nothing
%>
</tr>
</table>
</form>
</body>
</html>
<%
End If
Else
If forgot = "True" Then
%>
<html>
<head>
<title>
</title>
</head>
<body>
<form action>
<input type="hidden" name="sendpwtry" value="True">
<table>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Username :</font></td>
<td><input type="text" name="username"></td>
</tr>
<tr>
<td colspan="2" align="right"><input type="submit" value="Request Password"></td>
</tr>
</table>
</form>
</body>
</html>
<%
Else
If try = "True" Then
If session("access&quot

= "True" Then
Response.Write ""
Else
Set rsp = Server.CreateObject("ADODB.Recordset&quot

rsp.Open "select * from login where ( username = '" & USERNAME & "' ) and ( password = '" & PASSWORD & "')", data_source
If rsp.EOF And rsp.BOF Then
rsp.Close
Set rsp = Nothing
eror = "<tr><td><img alt="""" src=""../img/spacer.gif"" height=""10"" width=""1""></td></tr><tr><td colspan=""2""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><h1>Login Incorrect</h1>Please retype your <strong>username</strong> and <strong>password</strong></font></td></tr>"
Else
pword = rsp("password&quot

uname = rsp("username&quot

rsp.Close
Set rsp = Nothing
If pword = password And uname = username Then
session("access&quot

=("True&quot

End If
End If
End If
End If
If Not session("access&quot

= "True" Then
%>
<html>
<head>
<title>
</title>
</head>
<body>
<form action="default.asp" method="post">
<input type="hidden" name="try" value="True">
<table>
<tr>
<td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Enter you login information below.</font></td>
</tr>
<% =eror %>
<tr>
<td><img alt="" src="../img/spacer.gif" height="10" width="1"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Username :</font></td>
<td><input type="text" name="username"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Password :</font></td>
<td><input type="password" name="password"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="default.asp?forgot=True">Forgot password ?</a></font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="default.asp?newuser=True">New user ?</a></font></td>
</tr>
<tr>
<td colspan="2" align="right"><input type="submit" value="Login"></td>
</tr>
</table>
</form>
</body>
</html>
<%
Else
%>
<html>
<head>
<title>
</title>
</head>
<body>
<table>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">You are now logged in.</font></td>
</tr>
</table>
</body>
</html>
<%
End If
End If
End If
End If
End If
%> Regards

Big Dave

** If I am wrong I am sorry, but i'm only trying to help!! **

jasonsalas · Nov 13, 2001

Here's a good and simple construct I did which embeds the USERNAME/PASSWORD combination within the coding of the page.

http://www.kuam.com/techtalk/

The benefits herein are that:

(1) You don't have to mess with the overhead of a database connection and worry about persistence of variables or session data.
(2) You can reference a simple SSI include file that will password-protect any or all files within a directory...so they bounce the user back to the login page if he/she tries to access protected pages directly via typing the URL.

It's not a hardcore, e-commerce level solution, but it works for simple matters.

Jason
jason@kuam.com

Guest_imported · Nov 13, 2001

Thanks guys for your help!

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

ASP Login Script 1

Guest_imported

New member

BigBadDave

Programmer

jasonsalas

IS-IT--Management

Guest_imported

New member

Similar threads

Part and Inventory Search

Sponsor