国产福利在线免费,伊人久色,99在线精品国产不卡在线观看,国产免费美女,伊人久久大香线蕉综合影,久久91精品国产91久久跳舞,亚洲一区二区三区四区在线

Z-Blog性能優(yōu)化和評(píng)論IP顯示

建站經(jīng)驗(yàn) / 2010-01-22 10:24:00

前些天的一些突發(fā)事件，使得我發(fā)現(xiàn)了Z-Blog存在的一個(gè)很嚴(yán)重的性能問題，就是當(dāng)單篇文章日訪問量數(shù)萬的時(shí)候，會(huì)有大量并發(fā)用戶同時(shí)寫Access數(shù)據(jù)庫(kù)，會(huì)導(dǎo)致數(shù)據(jù)庫(kù)死鎖，之后的外在表現(xiàn)就是CPU占用猛增。

經(jīng)過對(duì)Z-Blog的代碼進(jìn)行分析，我發(fā)現(xiàn)其原因是大并發(fā)用戶同時(shí)寫數(shù)據(jù)庫(kù)產(chǎn)生的原因。

我這里想到了一個(gè)針對(duì)這個(gè)問題的解決方案，就是時(shí)間緩存，定時(shí)寫數(shù)據(jù)庫(kù)，在一定時(shí)間內(nèi)，數(shù)據(jù)只寫入內(nèi)存，不寫入數(shù)據(jù)庫(kù)，當(dāng)緩存時(shí)間到了以后，再把內(nèi)存的數(shù)據(jù)寫入數(shù)據(jù)庫(kù)。這樣，即使再大的并發(fā)量，也不會(huì)再發(fā)生數(shù)據(jù)庫(kù)死鎖的問題了。

經(jīng)過初步的代碼修改和測(cè)試，發(fā)現(xiàn)修改完了以后就沒有這個(gè)問題了。

修改方法是，打開FUNCTION目錄下的c_html_js.asp文件，修改UpdateCountInfo函數(shù)為以下代碼即可。

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
 ''如果當(dāng)前時(shí)間與上次保存計(jì)數(shù)值的時(shí)間差大于設(shè)定的時(shí)間間隔，則把計(jì)數(shù)值重新寫入數(shù)據(jù)庫(kù)
  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

另外，默認(rèn)的Z-Blog留言評(píng)論是沒有用戶IP地址顯示的，通過一些修改，可以在留言中增加用戶IP地址前三位的顯示功能，具體實(shí)現(xiàn)方法如下。

修改c_system_lib.asp文件的Public Function MakeTemplate（strC）函數(shù)，加入下面語(yǔ)句：

 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()函數(shù)，將 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#>標(biāo)簽。

之后，文章評(píng)論就會(huì)出現(xiàn)評(píng)論者的IP地址欄，不過有個(gè)問題是，當(dāng)評(píng)論有人回復(fù)的是時(shí)候，只能留下最后一個(gè)回復(fù)者的IP地址。（原文）

訂閱號(hào)

上饒幫

服務(wù)號(hào)

獵人傳媒