Z-Blog性能優(yōu)化以及留言評論顯示IP地址
2019-04-16 來源：愛站科技
經(jīng)過對Z-Blog的代碼進(jìn)行分析，我發(fā)現(xiàn)其原因是大并發(fā)用戶同時寫數(shù)據(jù)庫產(chǎn)生的原因。
我這里想到了一個針對這個問題的解決方案，就是時間緩存，定時寫數(shù)據(jù)庫，在一定時間內(nèi)，數(shù)據(jù)只寫入內(nèi)存，不寫入數(shù)據(jù)庫，當(dāng)緩存時間到了以后，再把內(nèi)存的數(shù)據(jù)寫入數(shù)據(jù)庫。這樣，即使再大的并發(fā)量，也不會再發(fā)生數(shù)據(jù)庫死鎖的問題了。
經(jīng)過初步的代碼修改和測試，發(fā)現(xiàn)修改完了以后就沒有這個問題了。
修改方法是，打開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)前時間與上次保存計(jì)數(shù)值的時間差大于設(shè)定的時間間隔，則把計(jì)數(shù)值重新寫入數(shù)據(jù)庫
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留言評論是沒有用戶IP地址顯示的，通過一些修改，可以在留言中增加用戶IP地址前三位的顯示功能，具體實(shí)現(xiàn)方法如下。
修改c_system_lib.asp文件的Public Function MakeTemplate（strC）函數(shù)，加入下面語句：
?
?
?
?
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 ，增加 標(biāo)簽。
之后，文章評論就會出現(xiàn)評論者的IP地址欄，不過有個問題是，當(dāng)評論有人回復(fù)的是時候，只能留下最后一個回復(fù)者的IP地址。（原文）
?
標(biāo)簽： [db:TAGG]
版權(quán)申明：本站文章部分自網(wǎng)絡(luò)，如有侵權(quán)，請聯(lián)系：west999com@outlook.com
特別注意：本站所有轉(zhuǎn)載文章言論不代表本站觀點(diǎn)！
本站所提供的圖片等素材，版權(quán)歸原作者所有，如需使用，請與原作者聯(lián)系。
