| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1557 人关注过本帖
标题:[求助]十天学会ASP第八天出问题了!
只看楼主 加入收藏
rcy1001
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-1-21
收藏
 问题点数:0 回复次数:24 
[求助]十天学会ASP第八天出问题了!
请各位高手指点迷津,我在运行文件时出现在了如下问题:
  • 错误类型:
    Microsoft VBScript 运行时错误 (0x800A000D)
    /biaodan8.asp, 第 19 行

  • 浏览器类型:
    Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

  • 页:
    GET /biaodan8.asp
    源程序如下:
    id=request.querystring("id")
    if id<>"" then
    exec="select * from guestbook where id="&id
    set rs=server.createobject("adodb.recordset")
    rs.open exec,conn,1,1
    end if
    %>
    <form name="form1" method="post" action="modifysave.asp">
    <table width="748" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td>aa</td>
    <td>bb</td>
    </tr>
    <tr>
    <td>
    <input type="text" name="aa" value="<%=rs(aa)%>">
    </td>
    <td>
    <input type="text" name="bb" value="<%=rs("bb")%>">
    <input type="submit" name="Submit" value="提交">
    <input type="hidden" name="id" value="<%=request.querystring("id")%>">
    </td>
    </tr>
    </table>
    </form>
    <%
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    %>
  • 搜索更多相关主题的帖子: ASP 学会 
    2006-01-21 14:19
    conn
    Rank: 2
    等 级:新手上路
    威 望:5
    帖 子:420
    专家分:0
    注 册:2005-11-27
    收藏
    得分:0 
    第19行是哪一行?

    我是新手,但我很虚心,对我发的问题请不要取笑,谢谢
    2006-01-21 14:25
    rainic
    Rank: 6Rank: 6
    等 级:贵宾
    威 望:27
    帖 子:2367
    专家分:0
    注 册:2005-8-9
    收藏
    得分:0 
    看起来没错~

    2006-01-21 14:32
    阳光白雪
    Rank: 7Rank: 7Rank: 7
    等 级:贵宾
    威 望:39
    帖 子:2220
    专家分:0
    注 册:2005-11-18
    收藏
    得分:0 
    if id<>"" then
    exec="select * from guestbook where id="&id
    set rs=server.createobject("adodb.recordset")
    rs.open exec,conn,1,1
    end if
    如果ID等于空时,红色部分是不会出错,但后面的程序就会出错了,<%=rs(aa)%>,ID 空时 RS 就没有定义

    专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
    2006-01-21 14:46
    adleyliu
    Rank: 1
    等 级:新手上路
    帖 子:146
    专家分:0
    注 册:2005-5-8
    收藏
    得分:0 
    同上

    Microsoft VBScript 运行时错误 (0x800A000D)

    错误引用rs变量(rs对像已关闭或未定义)


    这些错误码很有用,建议了解一下!






    易点通WEB源http://www..cn/ QQ:14339095 E-mail:adleyliu@
    2006-01-21 14:51
    rcy1001
    Rank: 1
    等 级:新手上路
    帖 子:27
    专家分:0
    注 册:2006-1-21
    收藏
    得分:0 
    如果ID等于空时,红色部分是不会出错,但后面的程序就会出错了,<%=rs(aa)%>,ID 空时 RS 就没有定义
    那这个问题怎么解决,因为
    if id<>"" then
    exec="select * from guestbook where id="&id
    set rs=server.createobject("adodb.recordset")
    rs.open exec,conn,1,1
    end if
    这一段原来的程序是这样子
    exec="select * from test where id="&request.querystring("id")
    set rs=server.createobject("adodb.recordset")
    rs.open exec,conn
    但出现了Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
    /biaodan8.asp, 第 6 行
    这个错误换成原来的句子解决了,出现了第十九行错误
    <input type="text" name="aa" value="<%=rs(aa)%>">
    怎么办呀?

    2006-01-21 14:55
    rainic
    Rank: 6Rank: 6
    等 级:贵宾
    威 望:27
    帖 子:2367
    专家分:0
    注 册:2005-8-9
    收藏
    得分:0 
    错误的原因是:id的值空了,想想
    exec="select * from guestbook where id="&id
    如果id的值空了,上面那句就变成
    select * from guestbook where id=
    这样不错才怪

    加了if id<>"" then后,因为id是空的,红色的那三句就不执行了,rs自然也不存在,
    所以在后面用到rs(aa)等就会出错。

    2006-01-21 15:10
    rcy1001
    Rank: 1
    等 级:新手上路
    帖 子:27
    专家分:0
    注 册:2006-1-21
    收藏
    得分:0 
    那应该怎么改?不好意思哦,因为我刚学,什么都不会!
    2006-01-21 15:13
    rainic
    Rank: 6Rank: 6
    等 级:贵宾
    威 望:27
    帖 子:2367
    专家分:0
    注 册:2005-8-9
    收藏
    得分:0 
    id=request.querystring("id")
    if id<>"" then
    exec="select * from guestbook where id="&id
    set rs=server.createobject("adodb.recordset")
    rs.open exec,conn,1,1
    %>
    <form name="form1" method="post" action="modifysave.asp">
    <table width="748" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td>aa</td>
    <td>bb</td>
    </tr>
    <tr>
    <td>
    <input type="text" name="aa" value="<%=rs(aa)%>">
    </td>
    <td>
    <input type="text" name="bb" value="<%=rs("bb")%>">
    <input type="submit" name="Submit" value="提交">
    <input type="hidden" name="id" value="<%=request.querystring("id")%>">
    </td>
    </tr>
    </table>
    </form>
    <%
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    end if
    %>

    end if放在最后就不会错
    上一个页的url是什么样的?
    应该是这样子才对
    test.asp?id=1

    2006-01-21 15:15
    rcy1001
    Rank: 1
    等 级:新手上路
    帖 子:27
    专家分:0
    注 册:2006-1-21
    收藏
    得分:0 
    谢谢你,现在没错误了出来,但是页面是空白的,我先看看modifysave.aspe 有没有问题,另外我还有一个问题请教
  • 错误类型:
    Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
    /guessbook.asp, 第 17 行

  • 浏览器类型:
    Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

  • 页:
    GET /guessbook.asp
    其中guessbook.asp的程序如下:
    <html>
    <head>
    <tetle>lyb</title>
    </head>
    <body bgcolor="#ccccf0">
    <p>留言簿</p>
    <form METHOD="POST" action="guestbook.asp">
    <input type="hidden" name="task" value="insert">
    <p>姓名:<input TYPE="text" size="20" NAME="xm"></p>
    <p>留言:</p>
    <p><textarea ROWS="5" COLS="80" NAME="ly"></textarea></p>
    <p><input TYPE="submit" VALUE="记入留言簿" NAME="B1"><input TYPE="reset"
    VALUE="复原" NAME="B2" ></p>
    </form>
    <%
    set conn=Server.CreateObject("ADODB.Connection")
    conn.Open "lybdsn"," "," "
    if Request("task")="insert" then
    xm=Request("xm")
    sj=Date()
    sj=sj&" "&Hour(Time())&":"&Minute(Time())
    If Request("ly")=" " then
    Response.write("留言不能不输吧")
    Response.end
    else
    ly=Request("ly")
    end if
    sql="INSERT INTO lyb(xm,sj,ly) VALUES('"& xm & "','" & sj & "','" & ly & "')"
    conn.execute sql
    end if
    sql="SELECT * FROM lyb ORDER BY sj DESC"
    Set rs=conn.Execute(sql)%>
    <% on Error Resume Next
    rs.MoveFirst
    do while Not rs.eof%>
    <hr>
    姓名:<%=Server.HTMLEncode(rs.Fields("xm").Value)%><br>
    留于:<%=Server.HTMLEncode(rs.Fields("sj").Value)%><br>
    留言:<%=Server.HTMLEncode(rs.Fields("ly").Value)%>
    <% rs.MoveNext
    loop %>
    </body>
    </html>
    听说是因为查询刷新不了的问题,我添加了一个匿名用户:IUR_RCY,而且也将wwwroot作了共享,还是解决不了,网上很多资料说行但我设置不能用,我用的是2000操作系统



  • 2006-01-21 16:00
    快速回复:[求助]十天学会ASP第八天出问题了!
    数据加载中...
     
       



    关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

    编程中国 版权所有,并保留所有权利。
    Powered by Discuz, Processed in 0.026940 second(s), 7 queries.
    Copyright©2004-2024, BCCN.NET, All Rights Reserved