400-0628-117

Z-Blog性能优化和评论IP显示

2020-04-05 15:51

感谢大家关注《Z-Blog性能优化和评论IP显示》话题,搜易科技(www.soyikj.com)扎根企业网站建设、网站推广服务16年,对于《Z-Blog性能优化和评论IP显示》有自己独到的见解,希望能帮助到大家,部分内容摘抄自网络。


前些天的一些突发事件,使得我发现了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 ,增加

 

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

 


本文网址:https://www.soyikj.com/news/jianzhanjingyan/651.html,转载请注明出处!
上一篇:网站建设的安全性
下一篇:购买美国空间常见的四大误区 别给空间商忽悠

声明:本页内容由搜易科技通过网络收集编辑所得,所有资料仅供用户参考;本站不拥有所有权,也不承认相关法律责任。如您认为本网页中有涉嫌抄写的内容,请及时与我们联系进行举报,并提供相关证据,工作人员会在5个工作日内联系您,一经查实,本站将立刻删除涉嫌侵权内容。如果您对网站优化核心技术文章感兴趣,请点击查看网站建设网站推广的相关文章,请关注搜易科技官网(www.soyikj.com)

相关资讯 Releva ntnews
服务推荐 Hot sale ltem
  1. 我们的承诺
  2. 我们的实力
  3. 我们的未来
全国服务热线

400-0628-117

大客户专线

189-2726-4777

周一至周六 08:30~17:30

公司地址: 佛山市禅城区南庄镇紫洞南路106号南庄商业广场4座8楼801

佛山市禅城、南海、顺德、高明、三水五区均可提供上门洽谈服务

搜易科技--为你提供网站建设百度SEO网站优化网络推广百度排名百度快照优化等服务

Copyright © 2007-2020 佛山市搜易科技有限公司 粤ICP备16046293号 All Rights Reserved‬

微信二维码

QQ咨询
在线咨询
微信咨询
扫码咨询
联系电话
搜易科技联系电话 400-0628-117
预约上门
返回顶部
  • 搜易科技在线QQ咨询
    QQ咨询
  • 网站建设联系电话
    联系电话
  • 返回网站建设公司首页
    首页
  • 预约上门
    预约上门
  • 返回网页顶部
    返回顶部