领星多样式列表分页生成类 v2.2 (静态生成,多样式换肤,快速分页)
领星分页类 / 领星列表类

演示地址：
http://www.lxasp.com/_shtm/default.asp
动态：
http://www.lxasp.com/_shtm/index.asp
静态：
http://www.lxasp.com/_shtm/index.htm


生成静态页面的示例代码：
[quote]

Function mkhtming( CurHtm , aRS , iPage , TotalPage , RSCount )
    Dim percentnum
    
    If Not Response.IsClientConnected Then Response.End
    
    If iPage=1 Then
        allcount=TotalPage
        showui()
    End If
    
    percentnum = FormatNumber(iPage/allcount*100,0)
    If Len(percentnum)=0 Then percentnum="0"
    If lastper<>percentnum Then
        lastper=percentnum
        Response.Write "<script>oM.innerHTML=""系统生成进度百分比:[ " & percentnum & "% ]"";oP.style.width=" & percentnum & "+'%';</script>"
        Response.Flush
    End If

End Function

Sub MakeHTM()
    
    Dim outHTML,ok
    Dim lst,tpl
    
    Set lst=New clsGIListSHTM
    
    Set tpl=LoadPage("index")
    
    outHTML=tpl.GetOutput

    lst.Hgen=True
    
    lst.TPLOuter=outHTML
    lst.Htag="{=page_list}"
    lst.Hmax=999
    lst.PSize=50
    lst.PLink="index"
    lst.Hdir="."
    lst.Hext="htm"
    lst.PQStr="-p={=num}"
    lst.TPLFile=dirTPL&"list.htm"
    
    lst.SetRS(conn,Null)="SELECT uid, uname, udate FROM urls"
    
    lst.Hfun="mkhtming"
    
    ok=lst.GetOutput
    
    If lst.HasErr Then
        Response.Write lst.GetErr
    Else
        Response.Write "<script>oR.innerHTML=""成功生成静态页面数:[ " & ok-1 & " ]"";document.getElementById('ProgressBarTitle').innerHTML=""操作成功完成"";</script>"
    End If
    
    Response.Write "<script>oM.innerHTML=""程序执行耗时:[ " & FormatNumber((Timer-startime)*1000,3) & " ]"";alert('单击确定返回');window.location='./';</script>"
    
End Sub
Call MakeHTM()

[/quote]

下载请到我的论坛!