不知道错在哪了?我是菜鸟,刚学这个得!

菠菜

<%
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/diy2.mdb")
set conn= Server.CreateObject("ADODB.Connection")
conn.Open connstr%>

菠菜

<!--include file="conn.asp"-->
然后用这个直接就连上去了.后面就是上面那个了....

surlary

我用你的方法试过了，没有问题，可以得到RS。

1. 
   
2. Set Conn = CreateObject("ADODB.Connection")
   
3. Set RS = CreateObject("ADODB.RecordSet")
   
4. Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
   
5. Conn.Open
   
6. Set RS = Conn.Execute("select * from test", 5)
   
7. While Not RS.EOF
   
8.         '这里对RS取值
   
9.         rs.MoveNext
   
10. Wend
    
11. RS.Close
    
12. Conn.Close
    
13. Set RS = Nothing
    
14. Set Conn = Nothing
    

复制代码

surlary

有可能你的Conn.asp路径不对，看看是不是和页面在同一路径，不清楚的话干脆把include的内容复制到页面里来。

菠菜

<%
comprice=request("price")
if comprice<>"" then   
   if price="3000"   then
      set rs=conn.execute("select * from User_Scheme where totalprice<=3000")
      if rs.eof then
            response.Write("该价位没有配置单，请选择其他价位！")
        else
            do while not rs.eof
%>

<tr>
              <td><%=rs("typename")%></td>
        <td ><%=rs("totalprice")%></td>
        <td ><%=rs("usename")%></td>
              <td ><%=rs("usename")%></td>
              <td >(<%=rs("date")%>)</td>
        <td ><%=rs("score")%></td></tr>               
<%
             rs.movenext
             loop
      end if
      end if
        %>
                  
<%else
   set rs=conn.execute("select * from User_Scheme order by date")
    end if  
%>
    <tr>
                       <td><%=rs("typename")%></td>
                <td><%=rs("totalprice")%></td>
                <td ><%=rs("usename")%></td>
                <td ><%=rs("usename")%></td>
                                 < td >(<%=rs("date")%>)</td>
                <td ><%=rs("score")%></td></tr>       
<%          rs.close
                         set rs=nothing
                         conn.close
                        set conn=nothing
%>

菠菜

有些该去的,还是应该去点掉!!

菠菜

我用上面那个运行了一下,出错信息又变成:
类型不匹配:'RS'

surlary

把这段代码贴到一个新文件里浏览一下看看出什么错误。

1. 
   
2. <%
   
3. connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/diy2.mdb")
   
4. set conn= Server.CreateObject("ADODB.Connection")
   
5. conn.Open connstr
   
6. comprice=request("price")
   
7. if comprice<>"" then   
   
8.    if comprice="3000"   then
   
9.       set rs=conn.execute("select * from User_Scheme where totalprice<=3000")
   
10.       if rs.eof then
    
11.             response.Write("该价位没有配置单，请选择其他价位！")
    
12.         else
    
13.             do while not rs.eof
    
14. %>
    
15. 
    
16. <tr>
    
17.               <td><%=rs("typename")%></td>
    
18.         <td ><%=rs("totalprice")%></td>
    
19.         <td ><%=rs("usename")%></td>
    
20.               <td ><%=rs("usename")%></td>
    
21.               <td >(<%=rs("date")%>)</td>
    
22.         <td ><%=rs("score")%></td></tr>               
    
23. <%
    
24.              rs.movenext
    
25.              loop
    
26.       end if
    
27.              rs.close
    
28.              set rs=nothing
    
29.       end If
    
30. 
    
31. End If
    
32. 
    
33.                          conn.close
    
34.                         set conn=nothing
    
35. %>
    

复制代码

[ 本帖最后由 surlary 于 2007-8-15 14:19 编辑 ]

菠菜

<%else
   set rs=conn.execute("select * from User_Scheme order by date")
    end if  
%>


Microsoft VBBcript 运行时错误 ‘800a01a8’
缺少对象：‘CONN’


针对上面那句话,提示下面这句话

菠菜

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'rs'

/123.asp，行28

surlary

那个代码我编辑过了，你重新复制一下，然后在传递参数的时候这样，加一个变量比如123.asp?price=3000。

菠菜

如果我用的是多重循环得,是不是在每个循环上都得再加上
    rs.movenext
             loop
      end if
             rs.close
             set rs=nothing
      end If
这段代码

菠菜

我用了六条循环,只加了一段
<%          rs.close
                         set rs=nothing
                         conn.close
                        set conn=nothing
%>
这样可行`BO`

surlary

在获得RS以后，进行各行各字段的数据读取，也就是你的Do While循环，数据读取结束后执行RS.Close，当页面本次执行周期不再需要RS和Conn的时候Set 他们为 Nothing。

菠菜

原来下面的都米有错,
连接数据库的时候

菠菜

<!--include file="conn.asp"-->
这个东西竟然少写了一个#
<!--#include file="conn.asp"-->
郁闷呖!

wtucel

我晕,在这里讨论ASP,搞错没,这个是QTP专区......

haiqin

问一下，你这些代码写哪儿的，是在qtp中吗，是脚本吗

vincenthan

讨论ASP，的确有点牵强sdlkfj5

菠菜

我不知道,真是不好意思,下次一定注意..一定注意...