<% set conn = server.CreateObject("ADODB.Connection") conn.open "provider=sqloledb;data source=127.0.0.1;uid=sa;pwd=;database=wt" SET RS = server.CreateObject("adodb.recordset") rs.cursortype=adopenstatic rs.open"select * from jobs",conn rs.pagesize=4 page=clng(request("page")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount %> <table border=1> <tr><td>序号</td> <% for i=0 to rs.fields.count-1 response.Write("<td>" & rs.fields(i).name & "</td>") next %> </tr> <% '设置当前页面 rs.absolutepage=ipage '显示当前页面的纪录 for ipage=1 to rs.pagesize recno=(page-1)*rs.pagesize+ipage %> <tr><td><%=recno%></td> <%for i=0 to rs.fields.count-1%> <td><%=rs.fields(i).value%></td> <%next%> </tr> <% rs.movenext '如果已经到了纪录的末尾,则应该提前跳出循环 if rs.eof then exit for next %> </table> <p align="center"> <% '显示第一页,上一页,下一页,最后一页的信息及创建有效的连接 if page<>1 then response.Write "<a href=ch5ex18.asp?page=1>第一页</a> " response.Write "<a href=ch5ex18.asp?page=" & (page-1) & ">上一页</a> " end if if page<>rs.pagecount then response.Write "<a href=ch5ex18.asp?page=" & (page+1) & ">下一页</a> " response.Write "<a href=ch5ex18.asp?page=" &rs.pagecount & "最后一页</a>" end if %> </p><p align="center"页数: <%=page%>/<%=rs.pagecount%>></p> <% rs.close conn.close set rs=nothing set conn=nothing %> 显示的错误是 Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
ADODB.Recordset 错误 '800a0bb9'
变量或者类型不正确,或者不在可以接受的范围之内,要不就是与其他数据冲突。
/lianxi/fenye.asp,行22