If you want to store a user name and password in a database you cn do this:
I posted this for someone else a few weeks ago
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
You need a server that will host Active Server Pages.
I use http://www.ewebcity.com so go there and open an account as a "General User" - don't worry it is free!
Once you've don that you'll need an Access 97 database with fields:
username, password,lastlogin and anything else you want.
call it users.mdb and
put it in a directory called db on your ewebcity site.
copy this code to a file called login.asp
the line:
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\rlculver\db\users.mdb"))
needs to contain your account name. Here I've put in rlculver but you'll open an account with a better name than that though!
<%@ Language=VBScript %>
<%
dim username
dim password
dim strSQL
dim rst
username = request("txtUser")
password = request("txtPass")
strSQL = "SELECT * FROM Users WHERE Username = '" & username & "' AND password = '" & password & "';"
Set Conn = Server.CreateObject("ADODB.Connection")
'next line is for on site
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\rlculver\db\users.mdb"))
'this line is devmode
'Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\users.mdb")
Set rst = Conn.Execute(strSQL)
%>
<html>
<head>
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
</head>
<body BGCOLOR="#FFFFFF" BACKGROUND="">
<center><BR><BR>
<%
if rst.eof then
'login fail
%>
<form name="form1" method="post" action="login.asp">
<table width="75%" cellpadding="0" cellspacing="0">
<tr><td><FONT face="Verdana, Arial" color="#000080">This site may only be viewed by authorised users.
<p>Click <a href="mailto:someone@somewhere">here</a> to request a User ID or login below.</font><p><br></td></tr>
<tr><td align="center">
<b>Enter your User ID:</b> <input name="txtUser" size="10" maxlength="10"><BR>
<b>and Password:</b> <input type = password name="txtPass" size="10" maxlength="10">
<input type="submit" value="Login.asp">
</td></tr>
</table>
</form>
<%
else
'login sucessful...
%>
<FONT SIZE="2" FACE="arial, helvetica" color="#0000ff"><b>Login successful</b></font>
<p><b>Good
<%
if (hour(now()) > 0) and (hour(now()) < 12) then%>
Morning
<%else%>
Afternoon
<%end if%>
<%=rst("username")%>
<p><b>You may now proceed.</b>
<p>Click <A HREF="http://rlculvers_pornsite">here</a> to proceed.
<p><br><FONT SIZE="2" FACE="arial, helvetica" size="1" face="Verdana, Arial">Last login on: <%=rst("LastLogin")%></font>
<%
strSQL = "UPDATE Users set LastLogin = '" & Now() & "' WHERE Username = '" & username & "'"
conn.Execute(strsql)
%>
</b>
<%end if
set rst = nothing
set conn = nothing
%>
</CENTER>
</body>
</html>
Ok it need some formatting but it works.
On you own website use put a frame in the default page
index.htm, or default.htm usually
with the source pointing to your ewebcity .....\login.asp page.
a sucessfull login will give access to a set hyperlink. You could change this so the link is stored in the database and each user is sent somewhere else.
to do this change the line:
<p>Click <A HREF="http://www.rlculvers_pornsite">here</a> to proceed.
to
<p>Click <A HREF="<%=hyperlink%>">here</a> to proceed.
where hyperlink is a field name in your database.