书签 分享 收藏 举报 版权申诉 / 30

类型论坛系统后台分类版块管理模块的设计与实现.docx

  • 文档编号:28907667
  • 上传时间:2023-07-20
  • 格式:DOCX
  • 页数:30
  • 大小:252.51KB

9pt">0

9pt">%


<%Response.Flush

AllTable=Split(YxBBs.BBSTable(0),",")

Fori=0TouBound(AllTable)

YxBBs.execute("delete*from[YX_bbs"&AllTable(i)&"]whereTopicID<>0andnotexists(selectnamefrom[YX_topic]where[YX_bbs"&AllTable(i)&"].TopicId=[YX_Topic].TopicID)")

YxBBs.execute("delete*from[YX_Topic]whereSqlTableID="&AllTable(i)&"andnotexists(selectnamefrom[YX_bbs"&AllTable(i)&"]where[YX_Topic].TopicID=[YX_bbs"&AllTable(i)&"].TopicId)")

Next

CallTable("无效主题清理完毕!

","")

CallPicPro(1,6,"正在清理无效回复帖子!

请稍等...;")

Fori=0TouBound(AllTable)

SetRs=YxBBs.Execute("selectReplyTopicIDfrom[YX_bbs"&AllTable(i)&"]whereReplyTopicID<>0")

DoWhileNotRs.eof

IfYxBBs.execute("selectTopicIDfrom[YX_bbs"&AllTable(i)&"]whereTopicID="&Rs(0)&"").eofThen

YxBBs.Execute("Deletefrom[YX_bbs"&AllTable(i)&"]whereReplyTopicID="&Rs(0)&"")

EndIF

Rs.MoveNext

Loop

Rs.Close

Next

CallTable("无效回复清理完毕!

","")

CallPicPro(2,6,"正在清理无效投票!

请稍等...")

YxBBs.execute("delete*from[YX_TopicVote]wherenotexists(selectnamefrom[YX_Topic]where[YX_TopicVote].TopicID=[YX_Topic].TopicId)")

YxBBs.execute("delete*from[YX_TopicVoteUser]wherenotexists(selectnamefrom[YX_Topic]where[YX_TopicVoteUser].TopicID=[YX_Topic].TopicId)")

CallTable("无效投票清理完毕!

","")

CallPicPro(3,6,"正在清理无效留言!

请稍等...")

YxBBs.execute("delete*from[YX_Sms]wherenotexists(selectnamefrom[YX_User]where[YX_Sms].MyName=[YX_User].Name)")

CallTable("无效留言清理完毕!

","")

CallPicPro(4,6,"正在清理无效公告!

请稍等...;")

YxBBs.execute("delete*from[YX_Placard]wherenotexists(selectnamefrom[YX_User]where[YX_Placard].Name=[YX_User].Name)")

IfNotIsArray(YxBBs.Board_Rs)ThenYxBBs.CacheBoard()

IfIsArray(YxBBs.Board_Rs)Then

Fori=0ToUbound(YxBBs.Board_Rs,2)

'如果是版块为类

IfYxBBs.Board_Rs(0,i)=0Then

YxBBs.execute("delete*from[YX_Placard]whereBoardID<0orBoardID="&YxBBs.Board_Rs(1,i))

EndIf

Next

EndIf

CallTable("无效公告清理完毕!

","")

CallPicPro(5,6,"正在清理删除用户的帖子!

请稍等...")

Fori=0TouBound(AllTable)

YxBBs.execute("delete*from[YX_bbs"&AllTable(i)&"]wherenotexists(selectnamefrom[YX_User]where[YX_bbs"&AllTable(i)&"].Name=[YX_User].Name)")

Next

YxBBs.execute("delete*from[YX_Topic]wherenotexists(selectnamefrom[YX_User]where[YX_Topic].Name=[YX_User].Name)")

CallTable("无效用户的帖子清理完毕!

","")

Response.Write""

EndSub

SubTable(Str1,Str2)

Response.Write("<

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
论坛 系统 后台 分类 版块 管理 模块 设计 实现
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:论坛系统后台分类版块管理模块的设计与实现.docx
链接地址:https://www.bdocx.com/doc/28907667.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开