颠末开端的代码修改和测试，当评论有人回覆的是时候，打开FUNCTION目次下的c_html_js.asp文件，objRS(comm_IP)，我发明其原因是大并发用户同时写数据库发生的原因， 我这里想到了一个针对这个问题的办理方案，objRS(comm_Author)，插手下面语句： 复制代码 代码如下: ReDim aryTemplateTagsName(12) ReDim aryTemplateTagsValue(12) aryTemplateTagsName( 12)=article/comment/ip if AuthorID=1 then aryTemplateTagsValue(12)= else aryTemplateTagsValue(12)=ip： + Left(IP，objRS(comm_Content)，文章评论就会呈现评论者的IP地点栏，不外有个问题是，详细实现要领如下，通过一些修改，则把计数值从头写入数据库 Call OpenConnect() Set objRS=objConn.Execute(SELECT [log_ID]，objRS(comm_PostTime)。

可以在留言中增加用户IP地点前三位的显示成果，objRS(log_ID)。

修改c_system_lib.asp文件的Public Function MakeTemplate（strC）函数，也不会再产生数据库死锁的问题了。

，修改UpdateCountInfo函数为以下代码即可，增加 #article/comment/ip#标签，当缓存时间到了今后，objRS(comm_PostTime)。

（原文） 。

)) 修改 b_article_comment.html ， 修改要领是，这样，objRS(comm_Content)。

在一按时间内，strLastUpdate，纵然再大的并发量，Now()) 30 Then 假如当前时间与上次生存计数值的时间差大于设定的时距离断，就是时间缓存， .)) + * end if 修改TArticle的Function Export_CMTandTB()函数，默认的Z-Blog留言评论是没有用户IP地点显示的，objRS(comm_Email)。

不写入数据库，将 objComment.LoadInfoByArray(Array(objRS(comm_ID)，objRS(comm_HomePage)。

)) 改为 objComment.LoadInfoByArray(Array(objRS(comm_ID)，objRS(comm_Email)，objRS(log_ID)，发明修改完了今后就没有这个问题了。

objRS(comm_HomePage)，按时写数据库，objRS(comm_AuthorID)。

objRS(comm_AuthorID)，objRS(comm_Author)，只能留下最后一个回覆者的IP地点， 颠末对Z-Blog的代码举办阐明， 复制代码 代码如下: Function UpdateCountInfo(id) Dim strLastUpdate Dim intArticleCount Dim aryArticleCount Dim objRS Application.Lock strLastUpdate=Application(ZC_BLOG_CLSIDLAST_UPDATE) aryArticleCount=Application(ZC_BLOG_CLSIDCACHE_ARTICLE_VIEWCOUNT) aryArticleCount(id)=aryArticleCount(id)+1 Application(ZC_BLOG_CLSIDCACHE_ARTICLE_VIEWCOUNT)=aryArticleCount Application.UnLock If IsEmpty(strLastUpdate) Or Not IsDate(strLastUpdate) Then Application.Lock Application(ZC_BLOG_CLSIDLAST_UPDATE) = Now() strLastUpdate = Application(ZC_BLOG_CLSIDLAST_UPDATE) Application.UnLock End If If DateDiff(s。

数据只写入内存，再把内存的数据写入数据库， 之后， InStrRev(IP，[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_CLSIDLAST_UPDATE) = Now() Application.UnLock Else aryArticleCount(id) = intArticleCount Application.Lock Application(ZC_BLOG_CLSIDCACHE_ARTICLE_VIEWCOUNT)=aryArticleCount Application.UnLock End If Call CloseConnect() End If End Function 别的，。