当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > Z-Blog留言评论显示IP地址和性能优化

CMS技巧
Zblog帮助:模板文件与模板标签
Joomla教程:模板覆盖方式修改系统输出
Joomla教程:为Joomla插件创建语言包
Joomla教程:文章页面中显示指定的模块
Joomla教程:控制Section中的分类列表页面的显示方式
Joomla教程:mod-rewrite是否真的被开启
在Joomla自定义HTML模块组合使用Google小工具
Joomla教程:本地搭建的Joomla站点发送邮件
Joomla教程:在Who is online模块中显示用户名
dedecms教程:栏目页面转换为单独页面
CMS可用性测评:帮助找到适合自己的内容管理系统
Joomla中文教程:构建多重站点
Joomla教程:在templateDetails.xml中添加语言文件声明
Joomla教程:为页面和模块添加独立的自定义Class
Joomla教程:为“read more”链接添加对应的文章标题
Joomla教程:查看并修改模板的CSS
Joomla中文教程:创建并使用插件对文章内容进行修改
Joomla教程:网站首页第一次加载时播放一次Flash动画
Joomla教程:禁止未分类文章被站内搜索
Joomla教程:去掉分类文章列表中的文章序号

No. « 7 8 9 10 »

技术文章搜索

关键字

CMS技巧 中的 Z-Blog留言评论显示IP地址和性能优化

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2010-01-30   浏览: 60 ::
收藏到网摘: n/a

前些天的一些突发事件，使得我发现了Z-Blog存在的一个很严重的性能问题，就是当单篇文章日访问量数万的时候，会有大量并发用户同时写Access数据库，会导致数据库死锁，之后的外在表现就是CPU占用猛增。

经过对Z-Blog的代码进行分析，我发现其原因是大并发用户同时写数据库产生的原因。

我这里想到了一个针对这个问题的解决方案，就是时间缓存，定时写数据库，在一定时间内，数据只写入内存，不写入数据库，当缓存时间到了以后，再把内存的数据写入数据库。这样，即使再大的并发量，也不会再发生数据库死锁的问题了。

经过初步的代码修改和测试，发现修改完了以后就没有这个问题了。

修改方法是，打开FUNCTION目录下的c_html_js.asp文件，修改UpdateCountInfo函数为以下代码即可。

Function UpdateCountInfo(id)

 Dim strLastUpdate
 Dim intArticleCount
 Dim aryArticleCount
 Dim objRS

 Application.Lock
 strLastUpdate=Application(ZC_BLOG_CLSID&"LAST_UPDATE")
 aryArticleCount=Application(ZC_BLOG_CLSID&"CACHE_ARTICLE_VIEWCOUNT")
 aryArticleCount(id)=aryArticleCount(id)+1
 Application(ZC_BLOG_CLSID&"CACHE_ARTICLE_VIEWCOUNT")=aryArticleCount
 Application.UnLock

 If IsEmpty(strLastUpdate) Or Not IsDate(strLastUpdate) Then
  Application.Lock
  Application(ZC_BLOG_CLSID&"LAST_UPDATE") = Now()
  strLastUpdate = Application(ZC_BLOG_CLSID&"LAST_UPDATE")
  Application.UnLock
 End If

 If DateDiff("s",strLastUpdate,Now()) > 30 Then
 '如果当前时间与上次保存计数值的时间差大于设定的时间间隔，则把计数值重新写入数据库
  Call OpenConnect()

  Set objRS=objConn.Execute("SELECT [log_ID],[log_ViewNums] FROM [blog_Article] WHERE [log_ID] =" & id)
  If (not objRS.bof) And (not objRS.eof) Then
   intArticleCount=objRS("log_ViewNums")
  Else
   intArticleCount=0
  End If
  objRS.Close
  Set objRS=Nothing

  If aryArticleCount(id) > intArticleCount Then
   objConn.Execute("UPDATE [blog_Article] SET [log_ViewNums]=" & CStr(aryArticleCount(id)) & " WHERE [log_ID] =" & id)
   Application.Lock
   Application(ZC_BLOG_CLSID&"LAST_UPDATE") = Now()
   Application.UnLock
  Else
   aryArticleCount(id) = intArticleCount
   Application.Lock
   Application(ZC_BLOG_CLSID&"CACHE_ARTICLE_VIEWCOUNT")=aryArticleCount
   Application.UnLock
  End If

  Call CloseConnect()
 End If

End Function

另外，默认的Z-Blog留言评论是没有用户IP地址显示的，通过一些修改，可以在留言中增加用户IP地址前三位的显示功能，具体实现方法如下。

修改c_system_lib.asp文件的Public Function MakeTemplate（strC）函数，加入下面语句：

 ReDim aryTemplateTagsName(12)
  ReDim aryTemplateTagsValue(12)

  aryTemplateTagsName( 12)="article/comment/ip"
  if AuthorID=1  then
   aryTemplateTagsValue(12)=""
  else
   aryTemplateTagsValue(12)="ip：" + Left(IP, InStrRev(IP, ".")) + "*"
  end if

　　修改TArticle的Function Export_CMTandTB()函数，将 objComment.LoadInfoByArray(Array(objRS("comm_ID"),objRS("log_ID"),objRS("comm_AuthorID"),objRS("comm_Author"),objRS("comm_Content"),objRS("comm_Email"),objRS("comm_HomePage"),objRS("comm_PostTime"),"","")) 改为 objComment.LoadInfoByArray(Array(objRS("comm_ID"),objRS("log_ID"),objRS("comm_AuthorID"),objRS("comm_Author"),objRS("comm_Content"),objRS("comm_Email"),objRS("comm_HomePage"),objRS("comm_PostTime"),objRS("comm_IP"),""))

　　修改 b_article_comment.html ，增加 <#article/comment/ip#>标签。

之后，文章评论就会出现评论者的IP地址栏，不过有个问题是，当评论有人回复的是时候，只能留下最后一个回复者的IP地址。（原文）