vb.net 生成静态页面列表分页

  Sub test()
        Dim t As list静态分页 = New list静态分页()
        Dim ec As Encoding = Encoding.Unicode
        Dim format As ArrayList = New ArrayList()

        format.Add("1温--家---宝：彻底解决中印边界问题需耐心和时间 全文 专题")
        format.Add("2新拆迁条例回迁规定被指笼统 评：应回应民意 ")
        format.Add("3广东等8省13条道路因降雪结冰受阻 南方雨雪趋于结束 ")
        format.Add("4滚动 高清图 航班 天气查询 视频 严寒天气防病须知 ")
        format.Add("5菲律宾称不会赔偿人质事件遇难者家属 被指缺诚意 ")
        format.Add("6篮彩| 关注NBA看高手5万倍投3连中 5天收益翻番 ")
        format.Add("7亚残奥理事会--主----席--阿布扎林盛赞广州亚残运志愿者 ")
        format.Add("8中国资本微博圈成立 股市20周年微博研讨会 精彩回顾 ")
        format.Add("9热门| 地球上最古怪的世界奇迹 晒滑雪计划赢超级大奖 ")
        format.Add("10美食| 提高记忆食谱 型男厨房水果羹 美腿养成五美食 ")

        Dim con As Integer = 2 '每页显示的数量
        Dim ys As Integer = format.Count / con '要分成的页数
        Dim strb = "<a href="
        Dim stre = "_</a>"
        Dim pg = ""
        Dim ifr = "<iframe width=""60%""  id=""frame_content"" name=""main"" scrolling=""no"" frameborder=""0"" marginheight=""0"" marginwidth=""0"" > </iframe><p><p><br>"
        Dim ifr2 = "<iframe width=""60%""  id=""frame_content"" scrolling=""no"" frameborder=""0"" marginheight=""0"" marginwidth=""0"" src=""lf.thm"" > </iframe><p><p><br>"
        For c As Integer = 1 To ys Step 1
            pg += strb + "b" + c.ToString + ".htm>" + c.ToString + stre
        Next c

        For i As Integer = 1 To ys Step 1 '分几页就循环几次

            t.saveFileFromContent("<a href=# target=main  >" + format(i * con - con) + "</a><br>" + "<a href=# >" + format(i * con - con + 1) + "</a><br>" + pg, "bclass\b" + i.ToString + ".htm", ec)

            ' MsgBox(pg)
            'MsgBox("外部循环第" + i.ToString + "次")
            For j As Integer = (i * con - con) To (i * con - 1) Step 1 '每页显示几条就循环几次

                t.saveFileFromContent(format(j).ToString + strb + (j + 2).ToString + "test.htm" + ">进入下一页，当前是第" + i.ToString + stre, "html\" + (j + 1).ToString + "test.htm", ec)

            Next j

        Next i
        t.saveFileFromContent(ifr + ifr2, "bclass\" + "index.htm", ec)
        ' t.saveFileFromContent(pg, "bclass\" + "lf.htm", ec)

    End Sub
详细的源码请下载工程查看（vs2010开发环境）