最近作网站。用DM里面的分页功能。看起来很不好看。求一个漂亮简单的分页代码！

来源：百度知道 编辑：UC知道 时间：2024/07/02 05:14:15
最近作网站。用DM里面的ASP的分页功能。看起来效果很不好。求一个漂亮简单的分页代码！最好介绍的详细点。让我能看懂，粘上就能用！谢谢各个GG们喽~
加什么，改什么啊？ 我不懂程序，说的详细点~ 好使了，多给分。谢谢~

<%
dim cnn,rst,msql,currentPage, rowCount, i
currentPage = Request.QueryString("currentPage")
If currentPage = "" Then
currentPage = 1
End If

Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("data.mdb")
'"01.udl"
'"driver={microsoft access driver(*.mdb)};dbq=note.mdb"
cnn.open
mSQL = "SELECT id,fid,fname,fphoto,fdate,fsell,fvip,fhua,fzhonlei,fcolor,fhy FROM flower order by fdate desc"
rst.CursorType = adOpenStatic
rst.PageSize = 5
rst.Open mSQL, cnn
rst.AbsolutePage = CInt(currentPage)
rowCount = 0
%>
<%
For i = 0 To rst.Fields.Count - 1
next<