通知插件for dvbbs7.0 sp2

插件名称：“您的帖子有人回复了”通知插件 for Dvbbs 7.0 Version 1.0 插件作者：老庙黄金 发布时间：2004年5月28日 功能描述：用于发布主题后有人回复时的通知信息。 演示论坛： http://www.shuijingjing.com/dvbbs7/index.asp 注意事项： 本插件需要修改七个动网标准文件，同时还要修改Dv_User表的数据结构，如果你是绿色环保主义者，请到此为止，不要继续看了，这个插件将是你深恶痛绝的，看下去将有害你的健康。 如果你从开始使用动网7.0以来，从来没有自己手动安装过或者安装成功过任何插件，那么请你到此为止，不要继续看了，这个插件只会给你带来噩梦和灾难。 安装办法： 一、将压缩包中的UpgradeReAnn.asp上传至论坛根目录，reply.wav上传至Skins/Default目录下 二、在IE地址栏输入： http://xxxx.xxxx.xxxx/xxxx/UpgradeReAnn.asp (其中http://xxxx.xxxx.xxxx/xxxx/是你论坛的访问地址） 按指示升级数据库。 数据库升级成功后请删除论坛根目录下的UpgradeReAnn.asp文件。 三、修改inc/Dv_ClsMain.asp： 找到： Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday" 改为： ' ==================显示帖子有人回复修改开始 by LaoMiao / 2004-5-28================== Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,'' as MyUserInfo37,UserSetting,ReAnn" ' ==================显示帖子有人回复修改结束 by LaoMiao / 2004-5-28================== 找到： If IsArray(Session(CacheName & "UserID")) Then MyUserInfo = "Dvbbs|||"& Now & "|||" & Session(CacheName & "UserID")(2) &"|||"& BoardID &"|||"& MyUserInfo &"||||||Dvbbs" Else MyUserInfo = "Dvbbs|||"& Now & "|||" & DateAdd("s",-3600,Now()) &"|||"& BoardID &"|||"& MyUserInfo &"||||||Dvbbs" End IF 改为： ' ==================显示帖子有人回复修改开始 by LaoMiao / 2004-5-28================== If IsArray(Session(CacheName & "UserID")) Then MyUserInfo = "Dvbbs|||"& Now & "|||" & Session(CacheName & "UserID")(2) &"|||"& BoardID &"|||"& MyUserInfo &"|||Dvbbs" Else MyUserInfo = "Dvbbs|||"& Now & "|||" & DateAdd("s",-3600,Now()) &"|||"& BoardID &"|||"& MyUserInfo &"|||Dvbbs" End IF ' ==================显示帖子有人回复修改结束 by LaoMiao / 2004-5-28================== 四、修改inc/Const.asp： 在文件最后一行“%>”的前边加入（如果你之前没有修改过Const.asp，你可以直接使用压缩包中的这个文件直接覆盖你原来的文件）： ' ==================显示帖子有人回复修改开始 by LaoMiao / 2004-5-28================== Function GetRe() Dim reBoardID Dim reID Dim reCount If DvBbs.UserID<>0 And UBound(DvBbs.MyUserInfo)=42 Then If Cint(DvBbs.MyUserInfo(40))<>0 And DvBbs.MyUserInfo(41)<>"" Then reCount=Split(DvBbs.MyUserInfo(41),"|") If UBound(reCount)>=1 Then reBoardID=reCount(0) reID=reCount(1) reCount=(UBound(reCount) + 1) \ 2 GetRe="<bgsound src=Skins/Default/reply.wav border=0><img src=Skins/Default/Forum_readme.gif> <a href='dispbbs.asp?boardID="&reBoardID&"&ID="&reID&"'>您的帖子有人回复了(<font color="&Dvbbs.MainSetting(1)&">"&reCount&"</font>)</a>&nbsp;[<a href=cookies.asp?action=resetre>全部清除</a>] " End If End If End If End Function Sub ReadRe(AnnounceID) Dim rs,ID,i,reAnnSplit,reAnnStr,MySessionData Set rs=Dvbbs.execute("Select reAnn From [Dv_User] Where UserID="&DvBbs.UserID&" And reAnn Is Not Null And reAnn<>""""") If Not (rs.eof And rs.bof) Then reAnnSplit=Split(rs("reAnn"),"|") reAnnStr="" For i=0 To UBound(reAnnSplit) Step 2 ID=reAnnSplit(i+1) If CLng(ID)<>CLng(AnnounceID) Then If reAnnStr<>"" Then reAnnStr=reAnnStr & "|" End If reAnnStr=reAnnStr & reAnnSplit(i) & "|" & reAnnSplit(i+1) End If Next Dvbbs.Execute ("Update [Dv_User] Set reAnn='"&reAnnStr&"' Where UserID="&Dvbbs.UserID) MySessionData=Session(Dvbbs.CacheName & "UserID") MySessionData(41)=reAnnStr Session(Dvbbs.CacheName & "UserID")=MySessionData End if rs.close Set rs=nothing End Sub Sub HaveRe(RootID) Dim UserID,rs,Child,i,reAnnSplit,Flag,sql,UserName sql="Select Postuserid,Child,PostUserName From Dv_Topic Where TopicID="&RootID set rs=Dvbbs.execute(sql) UserID=rs(0) Child=rs(1) UserName=rs(2) Set rs=nothing If Dvbbs.UserID<>UserID And Child>0 Then sql="Select UserSetting,reAnn From [Dv_User] Where UserID="&UserID Set rs=Dvbbs.Execute(sql) If not (rs.eof and rs.bof) Then If isShowRe(rs(0))<>0 Then If Not IsNull(rs(1)) And rs(1)<>"" Then reAnnSplit=Split(rs(1),"|") Flag=false For i=0 To UBound(reAnnSplit) Step 2 If CLng(reAnnSplit(i))=CLng(dvbbs.boardID) And CLng(reAnnSplit(i+1))=CLng(RootID) Then Flag=true Exit For End If Next If Not Flag Then sql="Update [Dv_User] Set reAnn=reAnn+'|"&dvbbs.boardID&"|"&RootID&"' Where UserID="&UserID Dvbbs.Execute(sql) End If Else sql="Update [Dv_User] Set reAnn='"&dvbbs.boardID&"|"&RootID&"' Where UserID="&UserID Dvbbs.Execute(sql) End If Dvbbs.NeedUpdateList UserName,1 End If End if Set rs=Nothing End If End Sub Sub ResetRe() Dim MySessionData Dvbbs.Execute("Update [Dv_User] Set reann='' Where UserID="&Dvbbs.UserID) MySessionData=Session(Dvbbs.CacheName & "UserID") MySessionData(41)="" Session(Dvbbs.CacheName & "UserID")=MySessionData End Sub Function isInteger(Para) isInteger=False If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then isInteger=True End If End Function Function isShowRe(UserSetting) Dim UserSettingSplit UserSettingSplit=Split(UserSetting,"|||") If UBound(UserSettingSplit)<2 Then isShowRe=0 Else isShowRe=CInt(UserSettingSplit(2)) End If End Function ' ==================显示帖子有人回复修改结束 by LaoMiao / 2004-5-28================== 五、修改Login.asp： 找到： Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday " 改为： ' ==================显示帖子有人回复修改开始 by LaoMiao / 2004-5-28================== Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,'' as MyUserInfo37,UserSetting,reAnn" ' ==================显示帖子有人回复修改结束 by LaoMiao / 2004-5-28================== 找到： 'iMyUserInfo = "Dvbbs|||"& Now & "|||" & Now &"|||"& Dvbbs.BoardID &"|||"& iMyUserInfo &"||||||Dvbbs" 改为： ' ==================显示帖子有人回复修改开始 by LaoMiao / 2004-5-28================== iMyUserInfo = "Dvbbs|||"& Now & "|||" & Now &"|||"& Dvbbs.BoardID &"|||"& iMyUserInfo &"|||Dvbbs" ' ==================显示帖子有人回复修改结束 by LaoMiao / 2004-5-28================== 六