• 

    <progress id="j5gwc"></progress>
    

    

    
  
    
    
    
    
  
    

    





    
  
    
    
    
      
    
      

      
    Z-Blog性能優(yōu)化和評論IP顯示
    
      
    建站經(jīng)驗 / 2010-01-22 10:24:00
    
      
    
      
    
      
            		
    前些天的一些突發(fā)事件，使得我發(fā)現(xiàn)了Z-Blog存在的一個很嚴重的性能問題，就是當單篇文章日訪問量數(shù)萬的時候，會有大量并發(fā)用戶同時寫Access數(shù)據(jù)庫，會導致數(shù)據(jù)庫死鎖，之后的外在表現(xiàn)就是CPU占用猛增。
    經(jīng)過對Z-Blog的代碼進行分析，我發(fā)現(xiàn)其原因是大并發(fā)用戶同時寫數(shù)據(jù)庫產(chǎn)生的原因。
    我這里想到了一個針對這個問題的解決方案，就是時間緩存，定時寫數(shù)據(jù)庫，在一定時間內，數(shù)據(jù)只寫入內存，不寫入數(shù)據(jù)庫，當緩存時間到了以后，再把內存的數(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
     ''如果當前時間與上次保存計數(shù)值的時間差大于設定的時間間隔，則把計數(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
                    		        
        
    另外，默認的Z-Blog留言評論是沒有用戶IP地址顯示的，通過一些修改，可以在留言中增加用戶IP地址前三位的顯示功能，具體實現(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 ，增加 <#article/comment/ip#>標簽。
                    		        
        
    之后，文章評論就會出現(xiàn)評論者的IP地址欄，不過有個問題是，當評論有人回復的是時候，只能留下最后一個回復者的IP地址。（原文）
            
     
    

      
    
      
      
    
    
    
    
  
    

    




    

    
  
  
  
  
  
  
  
    
    
    訂閱號
    
    
    
    
    上饒幫
    
  
    
  
    
    
    服務號
    
    
    
    
    獵人傳媒
    
  
    

    

    


    
  

    
 



 


亚洲中文无码手机版,亚洲国产片在线观看,一本大道东京热无码视频,亚洲日韩欧美大秀


    • 

    <progress id="j5gwc"></progress>