<table width="800" border="0" cellpadding="0" cellspacing="0" align="center" class="kuan">
  <tr> 
    <td align="left" valign="top" bgcolor="#FFFFFF"> 
      <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#DDF4FF">
        <tr> 
          <td width="100%" height="25" align="center" background="../images/system1.gif" class="table_title">图片管理</td>
        </tr>
        <tr align="center"> 
          <td valign="middle" bgcolor="#FFFFFF" class="linkfont"><br><table width="96%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><input name="Submit" type="submit" class="button2" value="===添加===" ></td>
            </tr>
          </table>
            <table width="96%"  border="0" cellpadding="0" cellspacing="3" class="tab_round">
   <tr align="center" bgcolor="#CCCCCC">
                <td width="9%" height="30" class="tab_round"><span class="linkfont">ID</span></td>
                <td width="35%" class="tab_round style2">标 题</td>
                <td width="18%" class="tab_round style2">所属栏目</td>
                <td width="23%" class="tab_round style2">发布时间</td>
                <td width="8%" class="tab_round style2">删除</td>
       <td width="7%" class="tab_round style2">查看</td>
     </tr>
     <%
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from picnew order by classid desc",conn,1,1
     if not rs.eof then
     i=0
     rs.pagesize=20
     page=chk(trim(request("page")))
     if page="" or page<=0 then page=1
     rs.absolutepage=page     
     do while not rs.eof 
   %>
              <tr >
       <td height="25" align="center" class="xia"><%=i+1%></td>
       <td class="xia"><%=rs("title")%></td>
       <td class="xia">
    
    
    <% 
  sql="select * from picnew_class where classid="& rs("classid") &" "
  set rs2=server.createobject("adodb.recordset")
  rs2.open sql,conn,1,1
  do while not rs2.EOF 
  %> 
  <%=rs2("classname")%>
  
  <%rs2.MoveNext 
        loop
        %>
    
    
    
    
    
    
    
    
    </td>
       <td align="center" class="xia"><%=rs("logintime")%></td>
       <td align="center" class="xia"><a href="picnew_del.asp?id=<%=rs("id")%>">删除</a></td>
       <td align="center" class="xia"><a href="picnew_view.asp?id=<%=rs("id")%>">查看</a></td>
              </tr>
              <%   rs.movenext
        i=i+1
     loop
     end if
   %>
              <tr align="center">
       <td height="30" colspan="6">【
      <% 
     response.write "第<font color=red>" &page&"</font>页/总<font color=red>" &rs.pagecount& "</font>页 "
     response.write "本页<font color=red>"&i&"</font>条/总<font color=red>" &rs.recordcount& "</font>条 "
     if page = 1 then 
     response.write "首页 前页 "
     else
       response.write "<a href='picnew.asp? page=1'>首页</a> <a href='picnew.asp? page=" &page-1& "'>前页</a> "
     end if
     if  page = rs.pagecount then
     response.write "后页 末页"
     else
       response.write "<a href='picnew.asp?page=" &page+1& "'>后页</a> <a href='picnew.asp?page=" &rs.pagecount & "'>末页</a>"
     end if  
     rs.close
     set rs=nothing
    %>
         】</td>
              </tr>
          </table>
          <br></td>
        </tr>
          <tr bgcolor="#F0F0F0"> 
            <td align="right" class="linkfont">&nbsp; </td>
          </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>

以上代码错误如下

：

技术信息（用于支持人员）

错误类型：
Active Server Pages, ASP 0113 (0x80004005)
超过了脚本运行的最长时间。可以为 Server.ScriptTimeOut 属性指定新值或更改 IIS 管理工具中的相应值来更改此限制。