LVALÖteNode(2,"stats","")).text="ʧ°Ü£¬Ô­Òò£ºÕÒ²»µ½Ïà¹Ø¼Ç¼¡£" Else posttable=Rs("posttable") LockTopic=Rs("boardid") boardid=rs("LockTopic") If AnnounceID=rootid Then 'AnnounceID=rootid˵Ã÷Òª»¹Ô­µÄÊÇÖ÷Ìâ If LockTopic=444 Then Set Rs=Dvbbs.Execute("Select Count(*) From " & posttable &" where RootID="& Rootid &" and boardid<> 777") Child=Rs(0) If IsNull(Child) Then Child=1 Child=Child-1 Node.attributes.setNamedItem(XMLDom.createNode(2,"topic","")).text=1 Node.attributes.setNamedItem(XMLDom.createNode(2,"child","")).text=Child Node.attributes.setNamedItem(XMLDom.createNode(2,"boardid","")).text=boardid Node.attributes.setNamedItem(XMLDom.createNode(2,"stats","")).text="³É¹¦¡£" Dvbbs.Execute("update " & posttable &" set boardid="&boardid&",LockTopic=0 Where RootID="& Rootid &" and boardid<> 777") Dvbbs.Execute("update dv_topic Set boardid="&boardid&",LockTopic=0,Child="&Child&" Where topicid="& rootid) Else Node.attributes.setNamedItem(XMLDom.createNode(2,"topic","")).text=0 Node.attributes.setNamedItem(XMLDom.createNode(2,"child","")).text=0 Node.attributes.setNamedItem(XMLDom.createNode(2,"stats","")).text="ʧ°Ü£¬Ô­Òò£ºÖ÷Ìâ²»ÔÚ»ØÊÕÕ¾ÖС£" End If Else Set Rs=Dvbbs.Execute("Select ParentID From " & posttable &" where RootID="& Rootid &" and AnnounceID="& AnnounceID &" and boardid=444") If Rs.EOF Then Node.attributes.setNamedItem(XMLDom.createNode(2,"topic","")).text=0 Node.attributes.setNamedItem(XMLDom.createNode(2,"child","")).text=0 Node.attributes.setNamedItem(XMLDom.createNode(2,"stats","")).text="ʧ°Ü£¬Ô­Òò£º´ËÌù²»ÔÚ»ØÊÕÕ¾ÖС£" Else If Rs(0)=0 Then 'Ö÷ÌâÌù£¬»¹Ô­µ¥¸öÖ÷ÌâÌù¡£¸úÌù²»»¹Ô­¡£ Child=0 If LockTopic <> 444 Then boardid=LockTopic End If Dvbbs.Execute("update dv_topic Set boardid="&boardid&",LockTopic=0,Child="&Child&" Where topicid="& rootid) Dvbbs.Execute("update " & posttable &" set boardid="&boardid&",LockTopic=0 Where RootID="& Rootid &" and AnnounceID="& AnnounceID) Node.attributes.setNamedItem(XMLDom.createNode(2,"topic","")).text=1 Node.attributes.setNamedItem(XMLDom.createNode(2,"child","")).text=Child Node.attributes.setNamedItem(XMLDom.createNode(2,"boardid","")).text=boardid Node.attributes.setNamedItem(XMLDom.createNode(2,"stats","")).text="³É¹¦¡£" Else If LockTopic <> 444 Then boardid=LockTopic Dvbbs.Execute("update " & posttable &" set boardid="&boardid&",LockTopic=0 Where RootID="& Rootid &" and AnnounceID="& AnnounceID) Dvbbs.Execute("update dv_topic Set boardid="&boardid&",LockTopic=0,Child=Child+1 Where topicid="& rootid) Node.attributes.setNamedItem(XMLDom.createNode(2,"topic","")).text=0 Node.attributes.setNamedItem(XMLDom.createNode(2,"child","")).text=1 Node.attributes.setNamedItem(XMLDom.createNode(2,"boardid","")).text=boardid Node.attributes.setNamedItem(XMLDom.createNode(2,"stats","")).text="³É¹¦¡£" Else Node.attributes.setNamedItem(XMLDom.createNode(2,"topic","")).text=0 Node.attributes.setNamedItem(XMLDom.createNode(2,"child","")).text=0 Node.attributes.setNamedItem(XMLDom.createNode(2,"stats","")).text="ʧ°Ü£¬Ô­Òò£ºÖ÷ÌâÌù»¹ÔÚ»ØÊÕÕ¾ÖУ¬ÇëÏÈ»¹Ô­Ö÷Ìâ¡£" End If End If End If End If End If Next Dim allpost,alltopic allpost=0 alltopic=0 'ͳ¼ÆÒ»Ï¸üÐÂÇé¿ö For each boardid in Application(Dvbbs.CacheName&"_sboardlist").documentElement.selectNodes("board/@boardid") Set Node =XMLDom.documentElement.selectNodes("result[@boardid="& boardid.text &"]") If Node.length > 0 Then topic=0 Child=0 For Each TmpID in node topic=topic+CLng(tmpid.selectSingleNode("@topic").text) Child=Child+CLng(tmpid.selectSingleNode("@child").text) Next If topic+Child >0 Then alltopic=alltopic+topic allpost=allpost+topic+Child UpDate_BLVAL×oardInfoAndCache BoardID.text,topic,Child End If End If Next If allpost >0 Or alltopic >0 Then Dvbbs.Execute("update dv_setup Set forum_postNum=forum_postNum+"& allpost &",forum_TopicNum=forum_