用的sql的数据库,
conn.asp
<%
dim conn
dim connstr,db
db="database_data.mdf"
on error resume next
set conn=server.createobject("ADODB.connection")
connstr= "PROVIDER=SQLOLEDB;DATA SOURCE=a20;UID=sa;PWD=password;DATABASE=db"
if err then
err.clear
else
conn.open connstr
end if
%>


index.asp里是这样调用的
<form name="Login" action="ChkLogin.asp" method="post" >


chklogin.asp
<!--#include file="conn.asp"-->
<%
dim rs,sql
dim username,userpassword
username=request.Form("username")
userpassword=request.Form("userpassword")
set rs=server.CreateObject(adodb.recordset)
sql="select username,userpassword from user where username='"&username&"' and userpassword='"&userpassword&"'"
rs.open sql,conn,1.3
if username="" then
response.write "<script language=javascript>alert('用户名不能为空!');history.back();</script >"
end if
if userpassword="" then
response.write "<script language=javascript>alert('用户密码不能为空!');history.back();</script >"
end if
if rs.bof and rs.eof then
response.write "<script language=javascript> alert('您输入的用户名或密码不存在!');history.back();</script >"
else
session.Timeout=60
session("username")=username
response.Redirect"admin.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

到底错在哪里了???请大侠们指教~~~~~~~