请各位大虾指点迷津:
我下面这段分页程序(即完整的report_pc2.asp程序)运行后,没有出错信息,但是那些红色语句并没有执行!因为显示了3行数据库里的三条记录数据后,再显示了一个长空行???(本来在此应该显示123之类的数字,并且能在点击此数字后转到相应的页面)
<% connstr="dbq="+server.mappath("tl.mdb")+";defaultdir=; driver={microsoft access driver (*.mdb)};" set conn=server.createobject("adodb.connection") conn.open connstr set rs1=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset")
%> <% sql_str="select ph_large,ph_fj,product_content,gdz,operator from produce_da order by ph_large desc" rs1.open sql_str,conn %> <html>
<head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>生产批报</title> <meta name="Microsoft Theme" content="citrus 011, default"> </head>
<body> <form name="form1" method="get" action="report_pc2.asp"> <h1><center>生产批报</center>
</h1> <p align="center"> </p> <table border="1" width="100%"> <tr> <td width="58%">流水线大生产批次(点+即可查看该大生产批次包含的四个工序小生产批次)</td> <td width="15%">包含发酵完整大罐罐批</td> <td width="11%">本大生产批次工作内容</td> <td width="9%">工段负责人</td> <td width="7%">登录员</td> </tr> <%
rs1.pagesize=3
page=Clng(request.querystring("page")) if page="" or page<1 then page=1 if page>rs1.pagecount then page=rs1.pagecount if rs1.pagecount>0 then rs1.AbsolutePage=page for i=1 to rs1.pagesize response.write "<tr>" for j=0 to rs1.fields.count-1 response.write "<td>"&rs1.fields(j).value&"</td>" next response.write "</tr>" rs1.movenext if rs1.eof then exit for next response.write "<tr><td colspan=5 align=right>" for i=1 to rs1.pagecount %> <a href=report_pc2.asp?page="<%=i%>"><%=i%></a> <%next%>
</td></tr> </table> <% rs1.close set rs1=nothing conn.close set conn=nothing %> </form> </body>