| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 519 人关注过本帖
标题:请高手帮我看下这里为什么会出现在这个错误
只看楼主 加入收藏
kgdipbyve
Rank: 2
等 级:论坛游民
帖 子:346
专家分:35
注 册:2008-5-4
结帖率:92.31%
收藏
 问题点数:0 回复次数:0 
请高手帮我看下这里为什么会出现在这个错误
<table border=0 cellspacing=0 cellpadding=0 width=100% class=main_tab>
<%
cla=cint(replace(request("cla"),"'",""))
%>
<tbody>
        <tr>
          <td align=center valign=top>
          <table width="703">
          <tr>
          <td width="695" align="center">
          <%
          
    set rs=server.createobject("adodb.recordset")
    sql="select * from jcl_photo where P_type="&cla&" order by id desc"
    rs.open sql,conn,1,1
    if rs.eof then
    Response.Write "暂无该类图片或没有找到此类别"
    else
    '分页'
proCount=rs.recordcount
    rs.PageSize=8
        if not IsEmpty(Request("ToPage")) then
           ToPage=CInt(Request("ToPage"))
           if ToPage>rs.PageCount then
                    rs.AbsolutePage=rs.PageCount
                    intCurPage=rs.PageCount
           elseif ToPage<=0 then
                    rs.AbsolutePage=1
                    intCurPage=1
                else
                    rs.AbsolutePage=ToPage
                    intCurPage=ToPage
                end if
            else
                    rs.AbsolutePage=1
                    intCurPage=1
          end if
    intCurPage=CInt(intCurPage)
    For i = 1 to rs.PageSize
    if rs.EOF then     
    Exit For
    end if
          %>
<TABLE width="105%" height="154" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#E7E7E7" class="tebfont1">

<TR align="center" valign="middle" bgcolor="#F7F7F7">
    <TD width="22%" rowspan="2" >
    <table width="130" height="130" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="133" height="115"><img src="img/<%=rs("p_url")%>" width="133" height="103">&nbsp;</td>
      
      </tr>
      <tr>
        <td align="center" valign="middle"><%=rs("title")%></td>
      </tr>
    </table></TD>
    <TD width="45%" rowspan="2" align="left" valign="top"><p><a href="../newsdisp.asp?id=<%=rs("id")%>" target="_blank"><span class="unnamed2">
    </span></a>   
      <table width="285" height="75" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td>相关说明:<br>
            <%=left(rs("contnet"),300)%> </td>
        </tr>
      </table></TD>
    <TD width="21%" rowspan="2"><table width="130" height="130" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="25">上传时间:<%=rs("uptime")%></td>
      </tr>
      <tr>
        <td height="38">价格:<%=rs("p_money")%></td>
      </tr>
      <tr>
      
    
            
      
        <td height="51">
        所在类型:
         <%set rs1=server.createobject("adodb.recordset")
              sql="select * products_cla where midcls<>''  and id="&rs("p_lca")
            rs1.eof sql,conn,1,1
            do while not rs1.eof
             %><%=rs1("midds")%><%
             rs1.movenext
             LOOP
             rs1.close
             set rs1=nothing
             %></td>
      </tr>
    </table></TD>
    <TD width="12%" height="56" colspan="2"><a href="javascript:doempty(admin_products.asp?work=delproducts&cla=<%=cla%>&id=<%=rs("id")%>)">删除</a></TD>
</TR>
<% dim i,procount,topage,intcurpage
    set rsl=server.createobject("adodb.recordset")
    sql="select * from products where P_type="&cla&" order by id desc"
    rsl.open sql,conn,1,1
    if rsl.eof then
    Response.Write "暂无产品内容或没有找到产品类别"
    else

proCount=rsl.recordcount
    rsl.PageSize=8
        if not IsEmpty(Request("ToPage")) then
           ToPage=CInt(Request("ToPage"))
           if ToPage>rsl.PageCount then
                    rsl.AbsolutePage=rsl.PageCount
                    intCurPage=rsl.PageCount
           elseif ToPage<=0 then
                    rsl.AbsolutePage=1
                    intCurPage=1
                else
                    rsl.AbsolutePage=ToPage
                    intCurPage=ToPage
                end if
            else
                    rsl.AbsolutePage=1
                    intCurPage=1
          end if
    intCurPage=CInt(intCurPage)
    [bo]For i = 1 to rsl.PageSize[/bo]
    if rsl.EOF then     
    Exit For
    end if '利用for next 循环依次读出记录
%>

<TR bgcolor="#FFFFFF" align="center" valign="middle">
  <TD width="12%" height="60" colspan="2"><a href="admin_products.asp?work=editproducts&id=<%=rs("id")%>">编辑</a></TD>
</TR>
<%
rsl.MoveNext
next
%>
<form name="form1" method="post" action="?cla=<%=cla%>">
  <span class="tebfont1">总共:<font color="#ff0000"><%=rs.PageCount%></font>页, <font color="#ff0000"><%=proCount%></font>条新闻, 当前页:<font color="#ff0000"><%=intCurPage%> </font><%if intCurPage<>1 then
          %><a href="?cla=<%=cla%>">首页</a>|<a href="?cla=<%=cla%>&ToPage=<%=intCurPage-1%>">上一页</a>|<% end if
if intCurPage<>rs.PageCount then %><a href="?cla=<%=cla%>&ToPage=<%=intCurPage+1%>">下一页</a>|<a href="?cla=<%=cla%>&ToPage=<%=rs.PageCount%>"> 最后页</a>|
         <% end if%>跳转:</span><input name="topage" type="text" size="2" value="<%=intCurPage%>"> <input type="submit" name="go" value="转到"></form>
<%
rsl.close
Set rsl = Nothing
end if
%></table>
<div align="center"></div></td></tr></table>
</td>
</tr>
</tbody>
</table>




这里提示
错误类型:
Microsoft VBScript 编译器错误 (0x800A0410)
循环控制变量 'for' 无效
/f/后台制作/admin_products.asp, line 378, column 6
For i = 1 to rsl.PageSize
-----^
这是为什么???
搜索更多相关主题的帖子: cla table jcl 
2008-05-04 19:56
快速回复:请高手帮我看下这里为什么会出现在这个错误
数据加载中...
 
   



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

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