数据问题

wenlinyang 发布于 2008-05-04 21:54， 674 次点击

源代码
<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 行

5 回复

tudou5212008-05-05 11:41

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

试试看

qhscqb2008-05-05 12:47

从局部看_代码有好多问题哦

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

lele20072008-05-05 13:13

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

这样试一下！

[[it] 本帖最后由 lele2007 于 2008-5-5 13:17 编辑 [/it]]

wenlinyang2008-05-07 10:09

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

dhdhzzw2008-05-07 10:15

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

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

[[it] 本帖最后由 dhdhzzw 于 2008-5-7 10:23 编辑 [/it]]