Nothing

C&Server.MapPath("database.mdb")

这句肯定不对吧

Nothing

使用这个工具，能看到报什么错
这个工具是我以前为了调试ASP程序写的

http://www.lihuasoft.net/download/show.php?id=32

Nothing

那个程序是VB写的，要用到richtextbox控件，你到网上下载一个。

Nothing

你的代码写的够烂的，你看看下面的if语句，有这样写的吗？？？？
  if rs.state=1 then rs.close
   else
   rs.open sql,conn,1,1
   end if
if rs.eof and rs.bof then
   response.Write "没有用户名".<a href=index.asp>返回</a>
   response.End()
end if
if request.Form("txtpwd")<>rs.fields("userpassword")
   response.Write"密码错误!"<a href=index.asp>返回</a>
end if

Nothing

主要是语法错误，你有些地方都没有引号，还有if then这样基本的语句都不行，建议你找本基础的书，把语法看一遍再说吧，这个别人没办法教你。

Nothing

语法：
if .... then ....
这是一种写法，不支持else等
if .... then
....
end if
这种在then后面不能有东西。

if .... then
...
else
...
end if
这也是一种结构。

Nothing

response.Write "没有用户名".<a href=index.asp>返回</a>

response.Write"密码错误!"<a href=index.asp>返回</a>
注意引号

response.Write "没有用户名.<a href=index.asp>返回</a>"

response.Write"密码错误!<a href=index.asp>返回</a>"

Nothing

你先把access中的表名改一下，不要叫user，这个可能和系统冲突，然后再改SQL语名，原来不是表名叫account吗？user是系统的一个变量，不能乱叫

或是
sql="select loginuser,userpassword from user where loginuser='"& loginname &"'"
改成
sql="select loginuser,userpassword from [user]where loginuser='"& loginname &"'"

如果还不行，可以修改成以下的：

第11行改成
rs.Open sql, conn, 1, 3, adCmdText

还有一种更简便的写法
将
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open sql,conn,1,1
改成
set rs=conn.execute(sql)

Nothing

基本的recordset操作参数，你找本书看看

Recordset.Open参数说明

语法:
    recordset.Open Source, ActiveConnection, CursorType, LockType, Options

参数说明:
Source                可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。 ActiveConnection     可选。变体型，计算有效 Connection 对象变量名；或字符串，包含  ConnectionString 参数。
CursorType       可选，CursorTypeEnum 值，确定提供者打开 Recordset 时应该使用的游标类型。
可为下列常量之一（参阅 CursorType 属性可获得这些设置的定义）。
值  常量                 说明
--- ------------------- -----------------------
0   AdOpenForwardOnly   默认值）打开仅向前类型游标。
1   AdOpenKeyset             打开键集类型游标。
2   AdOpenDynamic         打开动态类型游标。
3   AdOpenStatic               打开静态类型游标。

LockType              可选。确定提供者打开 Recordset 时应该使用的锁定（并发）类型的 LockTypeEnum 值，可为下列常量之一（参见 LockType 属性可获得详细信息）。
值  常量                                   说明
--- -------------------------------- -----------------------
1   AdLockReadOnly           （默认值）只读 — 不能改变数据。
2   AdLockPessimistic         保守式锁定,提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录。
3   AdLockOptimistic            开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录。
4   AdLockBatchOptimistic  开放式批更新—用于批更新模式（与立即更新模式相对）。

Nothing

你在添加新用户的时间，先查看一下用户表里有没有同名用户，有的话提示一下
sql="select loginuser from account"
应当改成
sql="select loginuser from account where username='"& request.Form("txtuser") &"'"