If you are talking about server access, simply setup user account in active
driectory.
If you are talking about website access look at the following:
Key elements here are the preload (At top), Submit_UNPW, the asp code within
the body, and the page_load routine on each page you wish to protect.
Login page
<%@ Page Explicit="True" Language="VB" Debug="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>YourHomePage</title>
</head>
<Script Runat="server">
Sub Submit_UNPW(Sender as Object, E as EventArgs)
If page.isvalid then
Dim cnUsers as OleDbConnection
Dim daUsers as OleDbDataAdapter = New OleDbDataAdapter
Dim dsUsers as DataSet = New DataSet
Dim drUsers as System.Data.DataRowView
Dim dvUsers as DataView
Dim ConnectionString, SelectStatement as String
SelectStatement = "Select * From Users Where Username = '" &
tbUsername.Text & "' AND Password = '" & tbPassword.Text & "'"
cnUsers = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\Inetpub\wwwroot\YourWebSite\fpdb\Users.mdb")
daUsers.SelectCommand = New OleDbCommand(SelectStatement, cnUsers)
daUsers.Fill(dsUsers, "Users")
dvUsers = dsUsers.Tables("Users").DefaultView
'Check for Matching User
if dvUsers.count = 1 then
lError.Text = ""
drUsers=dvUsers.Item(0)
Session("UserID") = drUsers("ID")
Session("UserName") = drUsers("UserName")
Session("PassCode") = "valid"
Session("AccessCode") = drUsers("AccessCode")
Session("FirstName") = drUsers("FirstName")
Session("LastName") = drUsers("LastName")
response.redirect("staff_menu.aspx")
Else
lError.Text = "The Username and Password you have entered do not match
our records.<br>Please try again."
End If
End If
End Sub
</script>
<body stylesrc="../bg.htm" topmargin="0" leftmargin="0">
<form Runat="Server">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse:
collapse; border-right: 1px solid #000000" bordercolor="#111111" width="629"
background="../images/EmSB.jpg" height="100%">
<tr>
<td align="center" valign="top"><font face="Arial"
size="1"> </font><font face="Arial" size="5"><b><br>
Please Login Below</b></font><p> </p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111" width="300">
<tr>
<td width="150" align="right">
<p style="margin-right: 5"><b><font
face="Arial">Username:</font></b></td>
<td align="left" width="150"><b><font face="Arial">
<asp:TextBox ID="tbUsername" Columns="18" MaxLength="10"
runat="server"/>
<asp:RequiredFieldValidator ControlToValidate="tbUserName"
Display="Dynamic" Text="<br>Required Field" Runat="Server"/>
</font></b></td>
</tr>
<tr>
<td width="150" align="right">
<p style="margin-right: 5"><b><font
face="Arial">Password:</font></b></td>
<td align="left" width="150"><b><font face="Arial">
<asp:TextBox ID="tbPassword" Textmode="Password" Columns="20"
MaxLength="10" runat="server"/>
<asp:RequiredFieldValidator ControlToValidate="tbPassword"
Display="Dynamic" Text="<br>Required Field" Runat="Server"/>
</font></b></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111" width="300">
<tr>
<td><b><font face="Arial"> </font></b></td>
</tr>
<tr>
<td align="center"><b><font face="Arial">
<asp:Button Text="Submit" OnClick="Submit_UNPW" Runat="Server"/>
</font></b></td>
</tr>
</table>
</center>
</div>
<p><font face="Arial" color="#FF0000">
<asp:Label ID="lError" Runat="Server"/><b>
</font></b>
<p> </td>
</tr>
</table>
</div>
</form>
</body>
</html>
Place this on each page you wish to protect.
<Script Runat="server">
Sub page_load(Sender as Object, E as EventArgs)
if NOT(Session("PassCode") = "valid") then
response.redirect("
http://www.YourHomePage.com")
else
'Session("UserName")
'Session("AccessCode")
lFN.Text = Session("FirstName")
lLN.Text = Session("LastName")
end if
End Sub
</script>
