<% dim rs,sql,i filePath = Server.MapPath("66.mdb") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath set rs =Server.CreateObject("adodb.recordset") sql="select * from info order by id" rs.open sql,oConn,1,1%><% rs.pagesize=20 page=clng(Request("page")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.AbsolutePage = page%><table width="620" border="0"> <% for i=1 to rs.pagesize %> <tr> <td width="128" valign="top"><% response.write rs("tel") %></td> <td width="482"><% response.write rs("text") %></td> </tr> <% rs.movenext If rs.EOF Then Exit For End If next %></table><script Language="JavaScript">function ChkFields() { if (document.Myform.page.value=='') { window.alert ("请输入页数"); Myform.page.focus(); return false } Myform.action="aa.asp"; Myform.submit(); return true}</script><form mehtod="POST" name="Myform" >输入页数:<input type="text" name="page" size="4"><input type="button" name="B1" value="确定" onclick="ChkFields()"><% if page>1 then Response.write("<a href=aa.asp?page=1>第一页</a> ") Response.write("<a href=aa.asp?page="&(page-1)&">上一页</a> ") end if if page <> rs.pagecount then Response.write("<a href=aa.asp?page="&(page+1)&">下一页</a> ") Response.write("<a href=aa.asp?page="&rs.pagecount&">最后一页</a> ") end if%><% for i=1 to rs.pagecount if i <> page then response.write "<a href=aa.asp?page="&i&">" &i& "</a> " else response.write i&" " end if next%>页数:<% =page %>/<% =rs.pagecount %></form>
评论