【下一篇】 【上一篇】
0

静态分页函数（原创）

作者：情留メ蚊子  发表于：2009年04月29日 22:00  分类：资源共享  2442 次阅读 

  1. '============================================ 
  2. '函数名：HtmlPage
  3. '作  用：静态分页函数
  4. '参  数：PageName------文件名（如qlwz_2.html中的qlwz）
  5. '参  数：intPageNow------现在的页数
  6. '参  数：intPageCount------总共有几页
  7. '============================================
  8.  
  9. Function HtmlPage(PageName,intPageNow,intPageCount) 
  10. Dim isEnd,intStartPage,intEndPage 
  11. isEnd = False 
  12.     intStartPage=(intPageNow\10)*10+1 
  13.     IF (intPageNow mod 10=0) then intStartPage=(intPageNow\10)*10-9 
  14.     intEndPage=intStartPage+9 
  15.     IF intPageNow>10 then 
  16.         HtmlPage = HtmlPage&"<a href="""&PageName&".html"" title=""第一页"" style=""text-decoration:none"">?</a>" 
  17.         HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intPageNow-1&".html"" page=""1"" title=""上一页"" style=""text-decoration:none;"">?</a>" 
  18.         HtmlPage = HtmlPage&" <a href="""&PageName&"_"&intStartPage-1&".html"" title=""前十页"" style=""text-decoration:none""><</a>" 
  19.     End IF 
  20.     For intStartPage = intStartPage To intEndPage 
  21.         If intStartPage = intPageNow Then 
  22.             HtmlPage = HtmlPage&"<strong>"& intStartPage &"</strong>" 
  23.         ElseIf intStartPage = 1 Then 
  24.             HtmlPage = HtmlPage&"<a href="""&PageName&".html"">"& intStartPage &"</a>" 
  25.         Else 
  26.             HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intStartPage&".html"">"& intStartPage &"</a>" 
  27.         End If 
  28.         If intStartPage >= intPageCount Then 
  29.             isEnd = True 
  30.             Exit For 
  31.         End IF 
  32.     Next 
  33.     If Not isEnd Then 
  34.         HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intPageNow+1&".html"" title=""下一页"" page=""3"" style=""text-decoration:none"">?</a>" 
  35.         HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intStartPage&".html"" title=""后十页""></a>" 
  36.         HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intPageCount&".html"" title=""最后一页"" style=""text-decoration:none"">?</a>" 
  37.     End If 
  38. Response.write HtmlPage 
  39. End Function 

 

本文固定链接: http://www.94qing.com/share/HtmlPage/ | 情留メ蚊子's Blog

作者: 情留メ蚊子
该日志由 情留メ蚊子 于2009年04月29日发表在资源共享分类下， 你可以发表评论，并 在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: 静态分页函数（原创） | 情留メ蚊子's Blog
关键词：, , , ,

您可能还会对这些文章感兴趣！

  1. 最熟悉的陌生人
  2. 情为何物
  3. 什么叫做温柔！
  4. ASP学习之Split函数
  5. 检查图片文件是否合法
  6. 文凭真的那么重要吗
  7. ASP整合UCenter API ASP For UCenter 增加演示
  8. 爱在西元前
  9. 404伪静态函数类
  10. ASP中模拟PHP的关联数组
  11. ASP解析JSON
  12. 《当你孤单你会想起谁》

静态分页函数（原创）：目前有0 条评论

    给我评论

    看不清？点击更换

    快捷键：Ctrl+Enter
    Copyright © 2007-2011 情留メ蚊子s Blog. All Rights Reserved . Design by Weisay
    粤ICP备08119471号 | MQBlog | RSS