管理员能说些例子教教我吗?
我学了不久,很多东西都不会哦

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

不会吧.IF和then怎么错了? 能否解释一下吗?

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

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

谢谢管理员来帮忙,有不懂的我再来问哦..
万分感谢

<%
Set Conn=Server.CreateObject("Adodb.Connection")
C& Server.MapPath("database.mdb")
Conn.Open ConnStr
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select loginuser,userpassword from account where loginuser='"&trim(request("txtusername"))&"'"
   if rs.state=1 then rs.close
rs.open sql,conn,1,1
if rs.eof=true then
   response.Write "没有用户名".<a href=index.asp>返回</a>
   response.End()
end if
if request.Form("txtpwd")<>rs.fields("userpassword") then
   response.Write"密码错误!"<a href=index.asp>返回</a>
end if
   session("loginuser")=rs.fields("loginname")
   response.Redirect("login.asp")
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
这样写我是HTTP500出错阿:'( .还有那里错呢?

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>"

<%
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("upload.mdb")
Conn.Open ConnStr
%>

<%
sql="select loginuser,userpassword from user where loginuser='"& trim(request("txtusername"))&"'"
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open sql,conn,1,1
   if rs.eof and rs.bof then
             response.Write "用户不存在，<a href=index.asp>返回</a>"
                         response.End
        end if   
        if rs.fields("userpassword")<>request("txtpassword") then
                    response.Write "用户密码错误，<a href=index.asp>返回</a>"
                                response.End
        end if
        session("loginuser")=rs.fields("loginuser")
    response.Redirect("login.asp")
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
11行出现了Microsoft JET Database Engine 错误 '80040e14'

FROM 子句语法错误。
请问这里怎解决呢？

你先把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)

明白了。我试一下。谢谢管理员