这个问题应该不难,是基本的登录验证,给你个例子吧:
登录页面:login.htm<html>
<head>
<title>后台登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function Juge(theForm)
{
  if (theForm.account.value == "")
  {
    alert("请输入管理员帐户!");
    theForm.account.focus();
    return (false);
  }
    if (theForm.passwd.value == "")
  {
    alert("请输入管理员密码!");
    theForm.passwd.focus();
    return (false);
  }}
//-->
</SCRIPT>
</head><body text="#000000" onload="window.document.form1.account.focus();">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="245">
  <tr>
    <td width="29%">&nbsp;</td>
    <td width="40%">&nbsp;</td>
    <td width="31%">&nbsp;</td>
  </tr>
  <tr>
    <td height="144" width="29%">&nbsp;</td>
    <td height="144" width="40%">
      <form name="form1" method="post" action="adminlogin_check.asp" onSubmit="return Juge(this)">
      <br><p align="center"><font color="#008000">管 理 员 登 录</font><br>        
        <p align="center"> 登录帐户:<input type="text" name="account"  style="BORDER-BOTTOM: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; FONT-SIZE: 9pt">
        </p>
        <p align="center"> 登录密码:<input type="password" name="passwd" style="BORDER-BOTTOM: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; FONT-SIZE: 9pt">
        </p>
        <p align="center"> 
          <input type="submit" name="Submit2" value=" 登 录 ">
          <input type="reset" name="Button" value=" 取 消 ">
        </p>
      </form>
    </td>
    <td height="144" width="31%">&nbsp;</td>
  </tr>
  <tr>
    <td width="29%">&nbsp;</td>
    <td width="40%">&nbsp;</td>
    <td width="31%">&nbsp;</td>
  </tr>
</table>
</body>
</html>
----------------------------------登录验证页面:adminlogin_check.asp
<%
'连接数据库
dim conn   
dim connstr
on error resume next
connstr="DBQ="+server.mappath("你的数据库名称.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr username=trim(request("account"))
password=trim(request("passwd"))'判断是用户的用户名称和密码是否合法
Dim rs_user,sql_user
set rs_user=server.createobject("ADODB.RecordSet")
sql_user="select * from 你的用户表名 where username='" & trim(username) & "' and password='" & trim(password) & "'"
%>
<html>
<head>
<title>登陆处理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/main.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
rs_user.open sql_user,conn
if  not rs_user.eof then
response.write "<p align=center>您已经成功登录!</p>"
else
response.write "<p align=center>对不起,您输入的用户名或者密码不正确,请重新输入!</p>"
response.write "<p align=center><a href='javascript:onclick=history.go(-1)'>点击返回重新登录</a></p>"
end if 
rs_user.close
set rs_user=nothing
%>
</body>
</html>
----------------------------------
这只是个简单的登录及验证方法,如果要更安全些,还要增加一些功能,自己慢慢研究吧。