---

 

前些天的一些突發事件，使得我發現了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地址。（原文）

  Tag: 設計公司 | 網頁設計公司 | 廣告公司 | 網站設計 | 平面設計 | 互動媒體 | 網頁設計 | Web design | Website design | design house | 媒體公司 | Iphone app | 程式設計 | Flash 網頁 | Flash game | 動畫設計 | 後期製作 | 網上商店 | 網上宣傳 | 網頁服務 |