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

菠菜

<tr>
        <th colspan="11" align="left" valign="top" bgcolor="#F09400" scope="row"><span class="style16">
          <% dim va
         comprice=request("price")
                if comprice<>"" then   
                    elseif price="3000" then
                    va="3000元以下"
                 elseif  price="3000-4000" then
                          va="3000-4000元"
                         elseif  price="4000-5000" then
                                  va="4000-5000元"
                                 elseif price="5000-6000" then
                                         va="5000-6000元"
                                         elseif price="6000-7000" then
                                                 va="6000-7000元"
                                                elseif price="7000-8000" then
                                                   va="7000-8000元"
                                                                  elseif price="8000" then
                                                         va="8000元以上"
                                                else va="网友"
        end if %>
        <% response.write va %>电脑配置</th>
        </tr>

prcsc

ddd

lyscu

我没有看出来。sdlkfj7

菠菜

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

vincenthan

讨论ASP，的确有点牵强sdlkfj5

haiqin

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

wtucel

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

菠菜

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

菠菜

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

surlary

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

菠菜

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

菠菜

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

surlary

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

菠菜

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

缺少 'End'

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

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

缺少对象: 'rs'

/123.asp，行28

菠菜

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


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


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

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 编辑 ]

菠菜

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

菠菜

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

菠菜

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

surlary

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