Option Explicit ' 本治版方针解释权归水木社区站务委员会
Option Strict On ' 本治版方针一经生效，将严格执行
Namespace NewSMTH
Class VisualBasic治版方针(2005年12月20日)
Inherits 水木社区管理规则
Implements 水木社区版面管理办法
Sub 开版宗旨()
第一条: ' 本版是9区电脑技术下的[开发]性质版面，主要承载Visual Basic各个
' 版本的程序编写、组件应用、工程开发、算法设计等。
Me.Name = "VisualBasic"
Me.Caption = "Visual Basic编程"
Me.Area = "9) 电脑技术 [专项/技术]"
第二条: ' 本版是自由转信版面，承载和兄弟站点的Visual Basic版互助交流的
' 功能。
Me._NewsGroup = "cn.bbs.comp.lang.visual-basic"
第三条: ' 本版欢迎讨论一切有关Visual Basic的话题，包括但不限于以下方面：
' 控件的使用和设计
' 算法的编写和优化
' API函数及系统层面的疑难问题
' VB程序的开发、编译与运行
' VB和其他程序设计语言的协同开发和接口问题，包括.net平台
第四条: ' 本版不欢迎讨论一切无关Visual Basic的话题。
End Sub
Function 标记原则(ByVal 文章 As BBS.Article) As Char
第五条: ' 提供完整的问题解决方案，或发表原创算法的文章，标记m。
If TypeOf 文章 Is 问题解答 Then
If 文章.Content.Contains(完整程序方案) Then Return "m"
ElseIf TypeOf 文章 Is 原创算法思路 Then
Return "m"
End If
第六条: ' 介绍VB最新动态、技术前沿的文章和版务文章，标记g。
If TypeOf 文章 Is 新版VB介绍 Or _
TypeOf 文章 Is 技术白皮书 Or _
TypeOf 文章 Is 版务公告 Then Return "g"
第七条: ' 和版面宗旨没有关系的水文，标记不可re。
If TypeOf 文章 Is 灌水 Then Return ";"
End Function
Sub 删文原则(ByRef 文章 As BBS.Article)
Dim DeleteFlag As Boolean = False
第八条: ' 灌水文章、内容过于短小的文章和空文，随时删除。
If TypeOf 文章 Is 灌水 Or _
文章.Effsize < 20 Or _
文章.Contents Is Nothing Then DeleteFlag = True
第九条: ' 当文章包含人身攻击、言语粗俗等不恰当内容或寻求下载、破解等违反
' 法律法规的内容，或进行未经许可的商业宣传(例如征求商业合作开发)
' 时，立即删除。
With 文章
If .Contains(人身攻击) Or _
.Contains(言语粗俗) Or _
.Contains(寻求下载) Or _
.Contains(寻求破解) Or _
.Contains(商业宣传) Then DeleteFlag = True
End With
第十条: ' 提问贴，显而易见可以在MSDN中找到答案的，予以删除。
If TypeOf 文章 Is 提问 And MSDN_Library.Contains(答案) Then
DeleteFlag = True
End If
第十一条: ' 除此以外的文章一般保留2个月，标记m的文章可以保留1年，在收录到
' 精华区以后酌情清理。
If Not 文章.Mark("m") Then
If 文章.Date() < Now() - 60 Then DeleteFlag = True
Else
If 文章.Mark(精华) Then
If 文章.Date() < Now() - 365 Then DeleteFlag = True
End If
End If
If DeleteFlag Then
Try
文章.Delete()
If 文章.Exist() Then Throw AccessDeniedException
Catch AccessDeniedException
文章.Delete(强制 := True)
End Try
End If
End Sub
Sub 封禁原则(ByRef 作者 As BBS.User)
Dim Post As BBS.Article
For Each Post In 作者.所发文章()
Select Case Post
第十二条: ' 在版面灌水、标题灌水或抢整的，处以1-3天封禁。
Case Is 灌水
If 作者.所发文章().Count() > 5 Then
作者.DenyPost(3, "灌水")
ElseIf Post.Rec() Mod 1000 = 0 Or Post.Rec() Mod 1111 = 0 Then
作者.DenyPost(1, "抢整")
End If
第十三条: ' 提问能在MSDN中找到答案的常识性问题，或1天之内重复提出相同问题
' 的，封禁2-3天。
Case Is 提问
If 作者.所发文章().Contains(Post.Clone()) And _
Post.Clone().Date() > Now() - 1 Then
作者.DenyPost(2, "重复提问")
ElseIf MSDN_Library.Contains(答案) Then
作者.DenyPost(3, "请查阅MSDN")
End If
第十四条: ' 本版严禁版面发文求下载，违者封禁7天。
Case Is (寻求下载 Or 寻求破解)
作者.DenyPost(7, "开启无关话题")
第十五条: ' 以下情况一律封禁14天，情节严重的上报站务处理：
' 人身攻击的
' 言语粗俗的
' 发表商业信息的
' 违反水木社区管理规则的
Case Is 人身攻击
作者.DenyPost(14, "人身攻击")
Case Is 言语粗俗
作者.DenyPost(14, "言语粗俗")
Case IsNot .Valid
作者.DenyPost(14, "发表不恰当文章")
Case Is 商业宣传
作者.DenyPost(14, "未经许可的版面商业行为")
Call SYSOP.Complain(作者)
End Select
Next Post
End Sub
Sub 附件管理办法(ByVal 文章 As BBS.Article)
If 文章.Attachment = Nothing Then Exit Sub
If 文章.Attachment = Null Then Exit Sub
With 文章.Attachment
第十六条: ' 为方便网友交流，可以在发文时自选附件上传功能。允许上传的附件格
' 式限于和vb编程相关的格式，其他形式的附件请打包上传，张贴和编程
' 无关附件的，删除文章并封禁5天。
Const 合法附件格式 = ".bas .zip .rar .frm .vbp .cls .jpg" & _
".pdf .exe .dll .vb .vba .ocx .gif"
If Not 合法附件格式.Contains(.Filename.Extension) Then
文章.Delete()
文章.Author.DenyPost(5, "张贴无关附件")
Exit Sub
End If
第十七条: ' 本版严禁用附件进行破坏或传播病毒，若有违反，删文并封禁14天。
If .Contains(恶意代码) Or .Contains(病毒) Then
文章.Delete(强制 := True)
文章.Author.DenyPost(14, "非法附件")
End If
End With
End Sub
End Class
End Namespace
--
修改:sallydyw FROM 59.66.96.*
FROM 59.66.96.*