数据问题

天山花芯 · 发表于 2010-1-10 01:31:28

源代码
<body>
<%
  dim nname,password
  nname=request.Form("nname")
  password=request.Form("password")
  set conn=server.CreateObject("adodb.connection")
  set rs=server.CreateObject("adodb.recordset")
  DSNtemp="Driver={microsoft access driver (*.mdb)};"
  DSNtemp=dsntemp & "dbq=" & server.MapPath("注册.mdb")
  conn.open DSNtemp
  rs=conn.execute("select * from load where 账号=nname",howmany,adcmdtext)
  if rs then
response.Redirect("liuyan.asp")
  else
msgbox "请重新输入用户名和密码或注册一个账号"
end if
%>
错误提示
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/mysecsite/03/login.asp, 第 19 行

玲珑之翼 · 发表于 2010-1-10 01:31:32

if rs  这个我还没见到过？
<%
  dim nname,password
  nname=request.Form("nname")
  password=request.Form("password")
  set conn=server.CreateObject("adodb.connection")
  set rs=server.CreateObject("adodb.recordset")
  DSNtemp="Driver={microsoft access driver (*.mdb)};"
  DSNtemp=dsntemp & "dbq=" & server.MapPath("注册.mdb")
  conn.open DSNtemp
sql="select * from load where 账号=" & nname
  set rs=conn.execute(sql)
  if not rs.eof then
response.Redirect("liuyan.asp")
  else
response.write "<script language='vbscript'>msgbox '请重新输入用户名和密码或注册一个账号'</script>"
end if
%>

这样试一下！

为爱种菜！ · 发表于 2010-1-10 01:31:36

<%
  dim nname,password
  nname=request.Form("nname")
  password=request.Form("password")
  set conn=server.CreateObject("adodb.connection")
  set rs=server.CreateObject("adodb.recordset")
  DSNtemp="Driver={microsoft access driver (*.mdb)};"
  DSNtemp=dsntemp & "dbq=" & server.MapPath("注册.mdb")
  conn.open DSNtemp
  rs=conn.execute("select * from load where 账号=nname",howmany,adcmdtext)'应该是select * from load where 账号="&nname&" ...
  if rs then 'rs.eof
response.Redirect("liuyan.asp")
  else
msgbox "请重新输入用户名和密码或注册一个账号" 'msgbox只能用在客户端
end if
%>

(のkisδ≒雪 · 发表于 2010-1-10 01:31:39

如果你不太会写conn execute 的话  把它改成很直观的 sql=""这种形式。从这里开始改，，，注意查看报错的信息是什么！
rs.open sql ，conn,1,3
sql="select * from load where 账号='"&nname&"'",howmany,adcmdtext后面的是什么？
  if rs then 应该是  not rs.eof then 吧
response.Redirect("liuyan.asp")

不过这个报错看样子是  rs=conn.execute("select * from load where 账号=nname",howmany,adcmdtext)这一具有问题

玩QQ名字千万 · 发表于 2010-1-10 01:31:43

dim nname,password,conn,rs
  nname=request.Form("nname")
  password=request.Form("password")
  set conn=server.CreateObject("adodb.connection")
  DSNtemp="Driver={microsoft access driver (*.mdb)};"
  DSNtemp=dsntemp & "dbq=" & server.MapPath("注册.mdb")
  conn.open DSNtemp
set  rs=conn.execute("select * from load where 账号=nname")
  if rs then
response.Redirect("liuyan.asp")
  else
msgbox "请重新输入用户名和密码或注册一个账号"
end if

试试看

大天使路西法 · 发表于 2010-1-10 01:31:49

不行，上面的方法都不对，不知问题出在哪儿，不过还是谢谢啦！

肖林 · 发表于 2010-1-22 13:05:03

虎躯一震，三分走人

		自动登录	找回密码
密码			注册