求asp用户登录系统！！

来源：百度知道编辑：UC知道时间：2024/05/18 01:04:18

这是我的logon.asp的代码？不知道哪里错了。
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
谁帮帮我！不行的化给我一个简单的用户登陆系统，适合初学者就可以了，最好是有一整套简单的代码下载。

<%@ Language=VBScript %>
<%
dim sql,rs,conn
name = Request.Form("name")
passwd = Request.Form("passwd")
sql = "select name,passwd,type from usertype where name =’" & name & "’"
set conn = server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("date/xhbook.mdb")
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
if rs.EOF then
response.write "错误的用户名或密码！"
rs.Close
set rs = nothing
conn.Close
set conn = nothing
Response.End
end if
if not (rs("passwd"

rs.Open sql,conn,1,1

改为
<%@ Language=VBScript %>
<%
dim sql,rs,conn
name = Request.Form("name")
passwd = Request.Form("passwd")
sql = "select name,passwd,type from usertype where name =’" & name & "’"
set conn = server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("date/xhbook.mdb")
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn1,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("

求asp用户登录系统！！跪求ASP用户登录实例 asp用户登录验证关于ASP用户登录 asp用户登录 ASP系统用户登录后很快会过期求asp+access用户登录代码:index.asp为登录界面, 求一段类似ASP用户登录的代码. asp用户登录的问题 ASP+代码的用户登录