Alright, like lonewolf said, if you need it to be seriously locked down you need to do alot of home work. But here is a simple code I use to get to a secure area on our internal web:
Start script:
<%
' response.write("'" & Session("strUserId") & "'")
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>
WEB Page Title</TITLE>
<link rel="stylesheet" type="text/css" href="black.css">
</HEAD>
<BODY bgcolor="#ffffff" link="#FFFFFF" vlink="#FFFFCC" alink="#CCFFCC" style="background-color: #FFFFFF">
<FORM method='post' action='Security.asp'>
<INPUT Name = "DataBaseName" Type = "Hidden" VALUE = "Fab Tools">
<TABLE width="740" border="7" height="460" align="center" bgcolor="#FFFFFF"
bordercolor="#FFFFFF">
<TR>
<TD height="487"><TABLE border="1" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF">
<TR>
<TD height="110" width="242" align='center' valign='bottom' bordercolor="#FFFFFF">
<font color="#000000">;
Any description you wish</font></TD>
</TR>
<TR>
<TD width="242" valign="top" height="353" bgcolor="#FFFFFF" bordercolor="#FFFFFF"><TABLE cellspacing=0
cellpadding=0 border=0 align="center" style="HEIGHT: 236px; WIDTH: 228px">
<TR>
<TD valign=top height="300">
<TABLE border=1 width="240" background="images/circut3.jpg" height="200">
<TR>
<TD height="271" align='center' bgcolor="#FFFFFF" bordercolor="#FFFFFF">
<font face="Arial, Helvetica, sans-serif" size="4" color="#000000">Please Log In: </font>
<TABLE border=0 width="247">
<TR>
<TD width="96"><font color="#000000"><B><font face="Arial, Helvetica, sans-serif">Username:</font> </B>
</font></TD>
<TD width="105">
<INPUT TYPE="text" NAME="Name" SIZE="8"></TD>
<TD width="26"></TD>
</TR>
<TR>
<TD width="96"><B>
<FONT face="Arial, Helvetica, sans-serif"
size="3" color="#000000">Password:</FONT></B></TD>
<TD width="105">
<INPUT TYPE="password" NAME="PSW" SIZE="8"></TD>
</TR>
<TR>
<TD colspan="3" align='center' height="91" width="239">
<INPUT type="submit" value="Logon" name="SUBMIT"></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<P>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
</BODY></HTML>
That will reference another asp page (Security.asp noted above)to verify the password. You can also change the password in this script:
Start script:
<% @LANGUAGE = "VBScript" %>
<% Response.Buffer = True %>
<%
user = getUserId()
if user = "" then
response.write("no user")
response.redirect "LoginIMS.asp"
else
Session("STRUserid") = getuserid
Response.Write Session("STRUserid")
Session.TimeOut = 20
response.Redirect "
Place your web page redirect here "
end if
'************************************************************************************
'********************************* Subroutine ***************************************
'************************************************************************************
Function getUserId()
getUserId = ""
Const Request_POST = 1
Const Request_GET = 2
id = request.form("name")
Response.Write (id)
pw = request.form("psw")
If (id = "
Username") and (pw = "
password") then
getUserId = id
End if
Response.Write (id)
Response.Write ("
")
Response.Write (pw)
Response.Write ("
")
Response.Write (getUserId)
End Function
%>
