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 11, 2001

Try this code :

<%
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

sendpwtry = Request("sendpwtry&quot

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 colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="default.asp?forgot=True">Forgot password ?</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
%> Regards

Big Dave

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

Guest_imported · Nov 11, 2001

Hey thanks Dave........I will give that a try.......looks like the code i need........Would you know of a comprehensive quality ASP Shopping cart script that is Access 2000 driven?.....I need one fairly quickly to include into my site.......hey thanks again for your help.

BigBadDave · Nov 11, 2001

Sure,
I'll make you one 2morrow, Off to bed now as it's 5 oclock in the morning. Regards

Big Dave

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

Guest_imported · Nov 11, 2001

ok, Dave...........much appreciated...see ya then

Rydel · Nov 11, 2001

FYI -- next time you post on ASP, just to let you know there is another forum on this site just for ASP.

First you make a page that requests user's email, then the action page checks the database table for this email, and if it finds the record, it sends the password field from this table to that email via CDONTS or any other mailing component.

HTH,
Rydel
---

http://www.geocities.com/rydel23/

---

cbokowski · Nov 12, 2001

http://www.15seconds.com/component/default.htm

has a bunch of shopping carts.

Guest_imported · Nov 12, 2001

To Dave.......with the script you supplied above........do i need to name each page with a specific name and will i need to create an access 2000 database.........As you probably gathered i am new to asp and need some help setting it up.......i have tried to run the scripts in IIS but they wont work.....can you help with these questions??

Thanks

BigBadDave · Nov 12, 2001

Yes, the reason the script I made dosn't work on your machine, is because you havn't got the DB set-up. Regards

Big Dave

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

BigBadDave · Nov 12, 2001

And in answer to the other question, the script runs from one page only. It is just default.asp Regards

Big Dave

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

Guest_imported · Nov 12, 2001

which script do i name default.asp.........the first part of the script??..........i have added each block of asp code into a seperate page..and at this stage i have just named them asp1 through to asp5

BigBadDave · Nov 12, 2001

If you need a pre-done ACCESS 2000 DB click here :

http://www.icuk.co.uk/clients/bbd/asp_login/site.mdb

Regards

Big Dave

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

Guest_imported · Nov 12, 2001

Dave.....do i create a database table with the field of Username and another for password.........and is that all?

BigBadDave · Nov 12, 2001

by the way you can try the script out from there as well :

http://www.icuk.co.uk/clients/bbd/asp_login/

username : admin

password : admin Regards

Big Dave

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

BigBadDave · Nov 12, 2001

You need fields :

username

password

email

ok Regards

Big Dave

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

BigBadDave · Nov 12, 2001

Oh yeah,
You will need to set the mail component bit up to match the mail component you have on the server, if you don't know how to do that then just say. Regards

Big Dave

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

Guest_imported · Nov 12, 2001

Dave......do i name the first block of asp code as the default.asp page.............or is it one of the other sections...............hey thanks for your help too

BigBadDave · Nov 12, 2001

just cut and paste the whole code, and save the whol chunk as default.asp (from : <% to : %> ) Regards

Big Dave

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

Guest_imported · Nov 12, 2001

One more question Dave , then i wont bother you again.........if the user is new to the site how can i have a registration page to initally let them set up their account as a new user??

BigBadDave · Nov 12, 2001

Yup,
I will do you a demo 2morrow. Regards

Big Dave

** If I am wrong I am sorry, but i'm only trying to 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

New member

Programmer

New member

Programmer

New member

Programmer

Programmer

New member

Programmer

Programmer

New member

Programmer

New member

Programmer

Programmer

Programmer

New member

Programmer

New member

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor