推荐下天枫常用ASP函数封装，推荐大家使用(24)

                constellation="<img src=images/Constellation/f.gif title='射手座 Sagittarius'>"
            elseif MyConstellation > 1221 then
                constellation="<img src=images/Constellation/g.gif title='魔羯座 Capricorn'>"
            end if
        end if
    End Function

    '=================================================
    '函数名：autopage
    '作  用：长文章自动分页
    '参  数：id,content,urlact
    '=================================================
    Function AutoPage(content,paramater,pagevar)
            contentStr=split(content,pagevar) 
            pagesize=ubound(contentStr)
            if pagesize>0 then
                If Int(Request("page"))="" or Int(Request("page"))=0 Then 
                    pageNum=1 
                Else 
                    pageNum=Request("page") 
                End if 
                if pageNum-1<=pagesize then
                    AutoPage=AutoPage&contentStr(pageNum-1)
                    AutoPage=AutoPage&"<div style=""margin-top:10px;text-align:right;padding-right:15px;""><font color=blue>页码:</font><font color=red>"
                    For i=0 to pagesize 
                        if i=pageNum-1 then