为PJ3 170版本增加内分页

dim fenyefu:fenyefu="[pagebreak]"

Function Aliasx(id, fen)
    dim cname,ccate,chtml,ccateID,ccateExec,cnames,ctype,cc
    set cc=conn.execute("select top 1 log_CateID,log_cname,log_ctype from blog_Content where log_ID="&id)

    ccateID = cc(0)
    cname = cc(1)
    ctype = cc(2)

    set ccateExec=conn.execute("select Cate_Part from blog_Category where cate_ID="&ccateID)

    If not ccateExec.EOF and not ccateExec.bof Then
        ccate = ccateExec(0).value
    end if

    if ccate="" or ccate=empty or ccate=null or len(ccate)=0 then
        ccate="article/"
    else
        ccate="article/"&ccate&"/"
    end if
    if len(cname)<1 or cname="" or cname=empty or cname=null then
        cnames=trim(id)
    else
        cnames=cname
    end if

    if ctype="0" then
        chtml="htm"
    else
        chtml="html"
    end if

    chtml="."&chtml
    set ccateExec = nothing
    set cc = nothing
    Aliasx=ccate&cnames&fen&chtml
End Function