I have been working on creating a basic login for a website now for 2 days and still have gotten no further.
So far I think the form is correct, it has to fields a username and a password field, this then gets submitted to the check.asp via the post method then the vb script is meant to link to the sql database and validate if the login information is present in the database. If it is redirect to welcome.asp, else goto login.asp
Here's what I have so far
login.asp
Expand|Select|Wrap|Line Numbers
- <html>
- <head>
- <title>login</title>
- </head>
- <body>
- <form action="check.asp" method="post" name="login">
- <table>
- <tr>
- <td><span class="style14">Username:</span> </td>
- <td><input name="username" type="text" size="30" maxlength="25" /></td>
- </tr>
- <tr>
- <td><span class="style14">Password:</span></td>
- <td><input name="password" type="password" size="30" maxlength="25" /></td>
- </tr>
- <tr>
- <td><div align="left"><a href="register.asp" class="style13">Sign up.... </a></div></td>
- <td align=right><input type="image" src="submit.jpg" alt="loginsubmit"/></td>
- </tr>
- </table>
- </form>
- </body>
- </html>
Expand|Select|Wrap|Line Numbers
- <%
- '#Connect to SQL database#'
- Dim objConn
- Set objConn = Server.CreateObject("ADODB.Connection")
- objConn.Open "dsn=Oracle;uid=username;pwd=password;"
- %>
- <%
- intUserid = Request.form("intUserid")
- txtUserpwd = Request.form("txtUserpwd")
- %>
- <%
- strSQL = "SELECT * FROM tblUser WHERE intUserid = '"&intUserid&"' AND txtUserpwd = '"&txtUserpwd&"'"
- Set objRs = objConn.execute(strSQL)
- If (objRs.BOF) then
- Response.Redirect "login.asp?fail try again"
- Else
- Response.Cookies("login")("intUserid") = intUserid
- Response.Cookies("login").Expires = Date + 1
- Response.Redirect "welcome.asp"
- End If
- %>