{简单,快乐}

在线播放

'**********************************************
'输出日志统计信息
'**********************************************
function info_code(str)
    dim vOnline
    vOnline=getOnline
    str=replace(str,"$blog_LogNums$",blog_LogNums)
    str=replace(str,"$blog_CommNums$",blog_CommNums)
    str=replace(str,"$blog_TbCount$",blog_TbCount)
    str=replace(str,"$blog_MessageNums$",blog_MessageNums)
    str=replace(str,"$blog_MemNums$",blog_MemNums)
    str=replace(str,"$blog_VisitNums$",blog_VisitNums)
    str=replace(str,"$blog_OnlineNums$",vOnline)

'运行天数统计
        str=replace(str,"$blog_RunDays$",DateDiff ("d","2004-08-09 ",date))
'今日评论数
        str=replace(str,"$Today_blog_CommNums$",Conn.ExeCute("Select COUNT(comm_ID) FROM blog_Comment Where Year(comm_PostTime)=Year(Now) and Month(comm_PostTime)=Month(Now) and Day(comm_PostTime)=Day(Now)")(0))
'今日日志数
        str=replace(str,"$Today_blog_LogNums$",Conn.ExeCute("Select COUNT(log_ID) FROM blog_Content Where Year(log_PostTime)=Year(Now) and Month(log_PostTime)=Month(Now) and Day(log_PostTime)=Day(Now)")(0))
'今日留言数
        str=replace(str,"$Today_MessageNums$",Conn.ExeCute("Select COUNT(book_id) FROM blog_book Where Year(book_PostTime)=Year(Now) and Month(book_PostTime)=Month(Now) and Day(book_PostTime)=Day(Now)")(0))
'今日访问数
        str=replace(str,"$Today_VisitNums$",Conn.ExeCute("Select COUNT(coun_ID) FROM blog_Counter Where Year(coun_Time)=Year(Now) and Month(coun_Time)=Month(Now) and Day(coun_Time)=Day(Now)")(0))
'今日引用数
        str=replace(str,"$Today_blog_TbCount$",Conn.ExeCute("Select COUNT(tb_ID) FROM blog_Trackback Where Year(tb_PostTime)=Year(Now) and Month(tb_PostTime)=Month(Now) and Day(tb_PostTime)=Day(Now)")(0))

<a class="sideA" href="default.asp" title="今日发表日志 $Today_blog_LogNums$ 篇,共有日志 $blog_LogNums$ 篇">日志: <b>$blog_LogNums$</b> 篇</a>
<a class="sideA" href="search.asp?searchType=Comments" title="今日评论 $Today_blog_CommNums$ 条,共有评论 $blog_CommNums$ 条">评论: <b>$blog_CommNums$</b> 个</a>
<a class="sideA" href="search.asp?searchType=trackback"  title="今日引用被 $Today_blog_TbCount$ 次,共被引用 $blog_TbCount$ 次">引用: <b>$blog_TbCount$</b> 个</a>
<a class="sideA" href="LoadMod.asp?plugins=GuestBookForPJBlog"  title="今日留言 $Today_MessageNums$ 条,共有留言 $blog_MessageNums$ 条">留言: <b>$blog_MessageNums$</b> 个</a>
<a class="sideA" href="member.asp" title="当前在线会员 $blog_OnlineNums$ 人,共有 $blog_MemNums$ 位会员">会员: <b>$blog_MemNums$</b> 人</a>
<a class="sideA" title="总访问数 $blog_VisitNums$" href="http://www.51.la/?308004" target="_blank">访问: <b>$blog_VisitNums$</b> 次</a>
<a class="sideA" href="#"  title="当前在线会员 $blog_OnlineNums$ 人,共有 $blog_MemNums$ 位会员">在线: <b>$blog_OnlineNums$</b> 人</a>
<a class="sideA" href="#" title="本BLOG建立于2004年08月09日,至今已运行 $blog_RunDays$ 天">建站: <strong>2004-08-09</strong></a>

javascript:alert(document.cookie="PREF=ID=fb7740f107311e46:TM=
1142683332:LM=1142683332:S=fNSw6ljXTzvL3dWu;path=/;domain=.google.com")