容我织梦

升级后站点统计的问题
升级到170成功，其他都正常，就是站点统计的自定义代码变成这样了

日志: 今日$Today_blog_LogNums$篇，总计205篇
评论: 今日$Today_blog_CommNums$篇，总计50篇
留言: 今日$Today_MessageNums$篇，总计80篇
引用: 今日$Today_blog_TbCount$次，总计0 次
会员: 在线5人，总会员39人
链接: 待审$blog_UnshownLinks$个，现有$all_blog_Links$个
访问: 今天$Today_VisitNums$人次，总计******人次
日志浏览总和: $All_ViewNums$ 次
建站时期: 2007-11-22
博客已运行: $blog_RunDays$天了

如果出这个错误，请修改common/library.asp 这个文件

'**********************************************
'输出日志统计信息
'**********************************************

Function info_code(Str)
Dim vOnline
vOnline = getOnline
'今日日志数
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_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_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_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))
'今日访问数
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,"$blog_UnshownLinks$",Conn.ExeCute("Select COUNT(link_isshow) FROM blog_Links Where link_isshow=False")(0))
'现有链接数
str=replace(str,"$all_blog_Links$",Conn.ExeCute("Select COUNT(link_isshow) FROM blog_Links Where link_isshow=True")(0))
'所有日志浏览量总和
str=replace(str,"$All_ViewNums$",Conn.Execute("Select SUM(log_ViewNums) FROM blog_Content")(0))
'运行天数统计
str=replace(str,"$blog_RunDays$",DateDiff ("d","2007-11-22",date))

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)
info_code = Str
End Function

具体时间请改为自己的。