生成静态页列表的问题---已经解决.doc

生成静态页列表的问题已经解决 生成静态页列表的问题已经解决 已经解决（感谢智者） 老大，昨天搞定了生成内页，今天又被生成列表页卡住了。 如果这个时候能出现一个完整的demo该多好啊！ % Easp.Use tpl Easp.Use Fso Easp.Tpl.AspEnable = True Dim Path Sub pathset(ByVal languageid) If languageid = 1 Then Path = /en Easp.Tpl.FilePath = ../template/en ElseIf languageid = 2 Then Path = /zh Easp.Tpl.FilePath = ../template/zh End If End Sub ==============生成产品列表页面函数=========================== Function product_html(ByVal languageid) Call pathset(languageid) Easp.Tpl.Load product.html Dim rs, rs1, sql, i, j sql = select product_id,small_image from fs_product order by product_id desc Set rs = Easp.db.GPR(sql:16, sql) If rs.EOF And rs.bof Then pro_list = li暂无产品！/li Else For j = 1 To rs.pagecount Easp.Tpl.Reload Easp.Tpl metaTitle, about_base(languageid, meta_Title, 3) Easp.Tpl metaDescription, about_base(languageid, meta_Description, 3) Easp.Tpl metaKeywords, about_base(languageid, meta_Keywords, 3) Easp.Tpl pro_left_search, pro_left_search(languageid) Easp.Tpl pro_sort, pro_sort(languageid) Easp.Tpl leftorder, leftorder(languageid) Easp.db.SetPager technorati, div class=newpager{first}{prev}{list}{next}{last} 转到{jump}页/div, Array(listlong:10, first:首页, last:尾页, prev:上一页, next:下一页, list:第*页, link:Path/news/product_*.html) For i = 1 To rs.PageSize If rs.EOF Then Exit For Set rs1 = Easp.db.GRS(select name from fs_product_desc where product_id=rs(product_id) and language_id=languageid) Easp.Tpl duct_id, rs(product_id) Easp.Tpl product.small_image, rs(small_image) Easp.Tpl product.imgtitle, rs1(name) Easp.Tpl , LeftTrue(rs1(name), 4) Easp.Tpl.Update product rs.movenext Next Easp.Tpl _page, Easp.db.GetPager(technorati) Easp.Tpl.Update page