给你一个简单的ASP分页代码: 数据库连接代码你自己写. Page = Trim(Request.QueryString("Page")) If Page&"" = "" Or Not IsNumeric(Page) Then Page = 1 Set Rs = Server.CreateObject("Adodb.RecordSet") Sql = "Select UserName From [User]" Rs.Open Sql,Conn,1,1 Rs.PageSize = 10 For II = 1 To Rs.PageSize * ( Page - 1 ) If Rs.Eof Then Exit For Rs.MoveNext Next I = 1 Do While Not Rs.Eof Response.Write(Rs("UserName")&"
") I = I + 1 If I > Rs.PageSize Then Exit Do Rs.MoveNext Loop Call DispCutPage("",Page,Rs.PageCount) Rs.Close Set Rs = Nothing Set Conn = Nothing '◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ '作用：显示分页； '参数：分页文字链接，当前页数字，全部页数字； Public Sub DispCutPage(Alink,PageNum,AllPage) Dim Sp PageNum=Cint(PageNum) If PageNum1 And AllPage>1 Then If Instr(Alink,"?")=0 Then Response.Write"|首页|" Else Response.Write"|首页|" End If Else Response.Write"|首页|" End If If AllPage>1 And PageNum下一页|" Else Response.Write"下一页|" End If Else Response.Write"下一页|" End If If PageNum>1 And PageNumAllPage And AllPage>1 Then If Instr(Alink,"?")=0 Then Response.Write"尾页|" Else Response.Write"尾页|" End If Else Response.Write"尾页|" End If Response.Write ",转到"&Vbcrlf For Sp=1 To AllPage If Sp = PageNum Then If Instr(Alink,"?")=0 Then Response.Write""&Sp Else Response.Write""&Sp End If Response.Write""&Vbcrlf Else If Instr(Alink,"?")=0 Then Response.Write""&Sp Else Response.Write""&Sp End If Response.Write""&Vbcrlf End If Next Response.Write"页"&Vbcrlf End Sub165368576 |
