<% @ language=vbscript %>
<%
name=request.form("name")
passwd=request.form("passwd")

set conn =Server.Createobject("adodb.connection")
conn.open("driver={Microsoft access driver (*.mdb)}; dbq="+Server.Mappath("user.mdb"))
set rs =Server.Createobject("adodb.recordset")
sql="密码表"
rs.open("select name.passwd.type from sql where name="name")

if rs.eof then
response.write"错误的用户名或密码"
rs.close
set rs=nothing
rs.close
set conn=nothing
response.end
end if
if not(rs("passwd")=passwd)then
response.write "错误的用户名或密码"
rs.close
set rs =nothing
conn.close
set conn=nothing
response.end
end if
session("username")=rs("name")
session("usertype")=rs("type")
rs.close
set rs=nothing
sql="update visit set visitnum=visitnum+1"
conn.execute spl
conn.close
set conn=nothing
response.redirect"123.html"
%>
帮我看下那里错了谢谢了

rs.open("select name.passwd.type from sql where name="name")
rs.open("select name,passwd,type from 密码表 where name="name")'(不要用中文)
================
rs.close
set rs=nothing
rs.close
set conn=nothing''多了

可能还有

<% @ language=vbscript %>
<%
name=request.form("name")
passwd=request.form("passwd")

set conn =Server.Createobject("adodb.connection")
conn.open("driver={Microsoft access driver (*.mdb)}; dbq="+Server.Mappath("user.mdb"))
set rs =Server.Createobject("adodb.recordset")
sql="密码表"
rs.open "select name,passwd,type from sql where name="&name,conn,1

if rs.eof then
response.write"错误的用户名或密码"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
if not(rs("passwd")=passwd)then
response.write "错误的用户名或密码"
rs.close
set rs =nothing
conn.close
set conn=nothing
response.end
end if
session("username")=rs("name")
session("usertype")=rs("type")
rs.close
set rs=nothing
sql="update visit set visitnum=visitnum+1"
conn.execute sql
conn.close
set conn=nothing
response.redirect"123.html"
%>