<% @ 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"
%>
帮我看下那里错了谢谢了
