动网论坛教程：最后回复显示为贴子内容而不是主题的修改方法

核心提示： LastPost=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "

　 LastPost=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & Replace(cutStr(toptopic,20),"$","") & "$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID
　 LastPost=reubbcode(Replace(LastPost,"'",""))
　Else
　 If ihaveupfile=1 Then Dvbbs.Execute("update dv_upfile set F_AnnounceID='"&RootID&"|"&AnnounceID&"',F_Readme='"&Topic&"',F_flag=0  where F_ID in ("&upfileinfo&")")
　 LastPost=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & Replace(cutStr(topic,20),"$","") & "$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID
　 LastPost=reubbcode(Replace(LastPost,"'",""))
　End If


就可以了。