请写一个最简单的ASP小程序,验证name,pass,连接Access数据库,可以修改.

连接数据库：
<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("database\messages.mdb")/数据库表名
set rs=server.CreateObject("adodb.recordset")
%>
登陆
<!--#include file="conn.asp"-->
<% name1=Request.Form("name1")
password=Request.Form("password")
%>
<%sql="SELECT * FROM admins "
Set Rs=conn.Execute(sql)

if name1=rs("name1") and password=rs("password") Then
response.Redirect("login.asp")

end if

%>
验证name和pass：
<script language="JavaScript">
function CheckForm()
{
if (document.denglu.name1.value.length == 0)
{
alert("请输入用户名.");
document.denglu.name1.focus();
return false;
}
if (documen