谁会ASP 的paging function?

stephanie83

如题，谁有 sample code which display 10 records from mysql in each page using ASP? 谢谢！

www.asp101.com/samples/db_paging.asp
不过不是mysql database

stephanie83

原帖由 cky_2004 于 6-4-2006 03:50 PM 发表
www.asp101.com/samples/db_paging.asp
不过不是mysql database

我要的是MYSQL
anyway谢谢

max5007

MYSQL 就容易了。。你可以用
SELECT ＊ FROM TABLE LIMIT １，１０

改后面的两个VALUE就可以了如第一面是
SELECT ＊ FROM TABLE LIMIT １，１０（第一行算起１０个RECORD）
，
第二面是SELECT ＊ FROM TABLE LIMIT 10，20桨

stephanie83

原帖由 max5007 于 6-4-2006 04:31 PM 发表
MYSQL 就容易了。。你可以用
SELECT ＊ FROM TABLE LIMIT １，１０

改后面的两个VALUE就可以了如第一面是
SELECT ＊ FROM TABLE LIMIT １，１０（第一行算起１０个RECORD）
，
第二面是SELECT ＊ FROM TAB ...

问题是我不懂以后会有多少records add进database
如果我50 records 在 database
然后limit 一个 page display 10 records
这样写得话，其余的40 records怎样display出来?

goatstudio

原帖由 stephanie83 于 6-4-2006 04:14 PM 发表


我要的是MYSQL
anyway谢谢

你用 MySQL + ASP, 那么应该是运行在 windows 吧? 如果运行在 windows 上, 非安装 MySQL ODBC 不可... 只要是用 ODBC, 写法和 cky_2004 给的网页例子大同小异.

红发

我假设你的ASP已经connect到MySQL了.

1. 
   
2. <%
   
3. If trim(Request("page")) = "" Then
   
4. intPage = 1
   
5. Else
   
6. intPage = cint( trim(Request.Querystring("page")) )
   
7. End If
   
8. 
   
9. Set rs = Server.CreateObject("ADODB.Recordset")
   
10. PageSize = 2    '<-这里要改的也就是一叶你要display多少个data
    
11. rs.PageSize = PageSize
    
12. rs.CacheSize = PageSize
    
13. rs.CursorLocation = 3
    
14. 
    
15. sql="Select * From mydata"
    
16. rs.Open sql,conn
    
17. 
    
18. If Not rs.Eof Then
    
19. 
    
20.    rs.AbsolutePage = intPage
    
21.    i = 1
    
22.    While Not rs.Eof And i <= PageSize
    
23.    No= i%>
    
24.                                 <tr>
    
25.                                         <td width="37">&nbsp;</td>
    
26.                                         <td width="138"><%=rs("data1")%></td>
    
27.                                         <td width="211"><%=rs("data2")%></td>
    
28.                                         <td width="314">??</td>
    
29.                                 </tr>
    
30. <%i=i+1
    
31. rs.MoveNext  
    
32. Wend
    
33. End If%>        
    
34.                                 <tr>
    
35.                                         <td colspan="4"><%=Paging(intPage, rs.PageCount, rs.RecordCount)%>
    
36.                                         <%Function Paging(ByVal intPage, ByVal intPageCount, ByVal intRecordCount)
    
37. 
    
38.                                 If intPage > intPageCount Then
    
39.                                         intPage = intPageCount
    
40.                                 ElseIf intPage < 1 Then
    
41.                                         intPage = 1
    
42.                                 End If
    
43.                                 
    
44.                                 If intRecordCount = 0 Then
    
45.                                         strRet = "No Records Found"
    
46.                                 ElseIf intPageCount = 1 Then
    
47.                                         strRet = "End of hits"
    
48.                                 Else
    
49.                                         For i = 1 To Request.QueryString.Count
    
50.                                                 If LCase(Request.QueryString.Key(i)) <> "page" Then
    
51.                                                         strQueryString = strQueryString & "&"
    
52.                                                         strQueryString = strQueryString & Server.URLEncode(Request.QueryString.Key(i)) & "="
    
53.                                                         strQueryString = strQueryString & Server.URLEncode(Request.QueryString.Item(i))
    
54.                                                 End If
    
55.                                         Next
    
56.                        
    
57.                                         For i = 1 To Request.Form.Count
    
58.                                                 If LCase(Request.Form.Key(i)) <> "page" Then
    
59.                                                         strQueryString = strQueryString & "&"
    
60.                                                         strQueryString = strQueryString & Server.URLEncode(Request.Form.Key(i)) & "="
    
61.                                                         strQueryString = strQueryString & Server.URLEncode(Request.Form.Item(i))
    
62.                                                 End If
    
63.                                         Next
    
64.                        
    
65.                                         If Len(strQueryString) <> 0 Then
    
66.                                                 strQueryString = "?" & Mid(strQueryString, 2) & "&"
    
67.                                         Else
    
68.                                                 strQueryString = "?"
    
69.                                         End If
    
70.                        
    
71.                                         strScript = Request.ServerVariables("SCRIPT_NAME") & strQueryString
    
72.                                 
    
73.                                         If intPage <= 10 Then
    
74.                                                 intStart = 1
    
75.                                         Else
    
76.                                                 If (intPage Mod 10) = 0 Then
    
77.                                                         intStart = intPage - 9
    
78.                                                 Else
    
79.                                                         intStart = intPage - (intPage Mod 10) + 1
    
80.                                                 End If
    
81.                                         End If
    
82.                        
    
83.                                         intEnd = intStart + 9
    
84.                                         If intEnd > intPageCount Then intEnd = intPageCount
    
85.                                 
    
86.                                         strRet = "Page " & intPage & " of " & intPageCount & ": "
    
87.                                 
    
88.                                         If intPage <> 1 Then
    
89.                                                 strRet = strRet & "<a href=""" & strScript
    
90.                                                 strRet = strRet & "page=" & intPage - 1
    
91.                                                 strRet = strRet & """><<Prev</a> "
    
92.                                         End If
    
93.                                 
    
94.                                         For i = intStart To intEnd
    
95.                                                 If i = intPage Then
    
96.                                                         strRet = strRet & "<b>" & i & "</b> "
    
97.                                                 Else
    
98.                                                         strRet = strRet & "<a href=""" & strScript
    
99.                                                         strRet = strRet & "page=" & i
    
100.                                                         strRet = strRet & """>" & i & "</a>"
     
101.                                                         If i <> intEnd Then strRet = strRet & " "
     
102.                                                 End If
     
103.                                         Next
     
104.                                 
     
105.                                         If intPage <> intPageCount Then
     
106.                                                 strRet = strRet & " <a href=""" & strScript
     
107.                                                 strRet = strRet & "page=" & intPage + 1
     
108.                                                 strRet = strRet & """>Next>></a> "
     
109.                                         End If
     
110.                                 End If
     
111.                                 
     
112.                                 Paging = strRet
     
113.                         End Function%>  
     

复制代码

好像有一点长

[ 本帖最后由 红发 于 7-4-2006 12:30 AM 编辑 ]

max5007

原帖由 stephanie83 于 6-4-2006 04:55 PM 发表


问题是我不懂以后会有多少records add进database
如果我50 records 在 database
然后limit 一个 page display 10 records
这样写得话，其余的40 records怎样display出来?

汗。。。你可以用VALUE来控制啊。。我有一个TABLE超过１百万的RECORD也是这样用，

LIMIT A，B

A和B就用基本的＋－X / 来计算咯。。你自己尝试想一下。不难的

红发

原帖由 max5007 于 7-4-2006 09:46 AM 发表


汗。。。你可以用VALUE来控制啊。。我有一个TABLE超过１百万的RECORD也是这样用，

LIMIT A，B

A和B就用基本的＋－X / 来计算咯。。你自己尝试想一下。不难的

这个我是用在PHP的哦。

但ASP也可以的。

max5007

原帖由 红发 于 7-4-2006 11:36 AM 发表



这个我是用在PHP的哦。

但ASP也可以的。

只要是用MYSQL就可以了＾＾

红发

原帖由 max5007 于 7-4-2006 11:48 AM 发表


只要是用MYSQL就可以了＾＾

对咯，如果他换DB的话就没有的用了。

还有MySQL有一个问题就是不可以用rs.recordcount这个function

stephanie83

不好意思，我不明白

红发

原帖由 stephanie83 于 10-4-2006 09:41 AM 发表
不好意思，我不明白

美女那里不明白

stephanie83

如果我的sql只放
SELECT ＊ FROM TABLE LIMIT １，１０
只会出10个 records  
然后没有第二面，第三面
so,该怎么写

max5007

就酱啊
SELECT ＊ FROM TABLE LIMIT １，１０－－page1
SELECT ＊ FROM TABLE LIMIT １１，１０--page2
SELECT ＊ FROM TABLE LIMIT ２１，１０--page3

就这样简单。。。
在LIMIT后面的VALUE可以SET一个INT来代替

原帖由 红发 于 7-4-2006 01:15 PM 发表



对咯，如果他换DB的话就没有的用了。

还有MySQL有一个问题就是不可以用rs.recordcount这个function

我也同意红发说法。
不过，关于 recordcount 的问题，没错的话，用 rs.cursorlocation=aduseclient，应该是可以了。。

红发

原帖由 HUCKKEON 于 10-4-2006 11:40 AM 发表


我也同意红发说法。
不过，关于 recordcount 的问题，没错的话，用 rs.cursorlocation=aduseclient，应该是可以了。。

是吗！！

我是写一个function在那里的哦

stephanie83

原帖由 max5007 于 10-4-2006 11:36 AM 发表
就酱啊
SELECT ＊ FROM TABLE LIMIT １，１０－－page1
SELECT ＊ FROM TABLE LIMIT １１，１０--page2
SELECT ＊ FROM TABLE LIMIT ２１，１０--page3

就这样简单。。。
在LIMIT后面的VALUE可以SET一个IN ...

我明白
可是这样写就会有第二面马

原帖由 红发 于 10-4-2006 11:53 AM 发表



是吗！！

我是写一个function在那里的哦

不介意分享它的error msg ?
个人觉得用limit的方法执行速度会比较快。

红发

原帖由 HUCKKEON 于 10-4-2006 12:12 PM 发表


不介意分享它的error msg ?
个人觉得用limit的方法执行速度会比较快。

什么error msg??

见人见知吧

这个我会test看。
现在没有办法test
rs.cursorlocation=aduseclient