学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机，支持月付专业 MSSQL 数据库空间，支持月付专业 MySQL 数据库空间，支持月付
‹‹ 上一主题 | 下一主题 ››
发新话题
打印

数据问题

wenlinyang

新手上路

Rank: 1

帖子
5 
精华
0 
注册时间
2008-4-26 
1# 大 中 小 发表于 2008-5-4 21:54  只看该作者

数据问题

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

TOP

tudou521

新手上路

Rank: 1

帖子
14 
精华
0 
注册时间
2008-4-29 
2# 大 中 小 发表于 2008-5-5 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

试试看

TOP

qhscqb

中级会员

Rank: 3Rank: 3

帖子
329 
精华
0 
性别
男 
注册时间
2007-2-3 
3# 大 中 小 发表于 2008-5-5 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
%>
编程快乐,快乐编程! 没有最好，只有更好!

TOP

lele2007

中级会员

Rank: 3Rank: 3

帖子
389 
精华
0 
性别
男 
来自
广东省清远市 
注册时间
2007-9-4 
4# 大 中 小 发表于 2008-5-5 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
%>

这样试一下！

[ 本帖最后由 lele2007 于 2008-5-5 13:17 编辑 ]
学建网站：http://www.lele1988.cn

TOP

wenlinyang

新手上路

Rank: 1

帖子
5 
精华
0 
注册时间
2008-4-26 
5# 大 中 小 发表于 2008-5-7 10:09  只看该作者

?

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

TOP

dhdhzzw

高级会员

Rank: 4

帖子
600 
精华
0 
性别
男 
注册时间
2007-8-13 
6# 大 中 小 发表于 2008-5-7 10:15  只看该作者
如果你不太会写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)这一具有问题

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

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题