以下为参考代码，需要有一定技术才能修改。

首先将版块发帖权限改为：-1

Dim IsTopic
If BConfig(6)="-1" Then
If Conn.Execute("SELECT [id] FROM [wap_black] WHERE [uid]="&MyId&" AND [endtime]>'"&ServerNow&"'").eof Then
IsTopic=1
Else
IsTopic=0
End If
Else
If Conn.Execute("SELECT [id] FROM [wap_black] WHERE [uid]="&MyId&" AND [pid] IN ('0','"&pid&"') AND [bid] IN ('0','"&bid&"') AND [btype] IN ('0','12','32') AND [endtime]>'"&ServerNow&"'").eof Then
IsTopic=0
Else
IsTopic=2
End If
End If
If IsTopic="1" Then
Response.write "你没有进入黑名单，不能在本版发帖。"
Else
If IsTopic="1" Then
Response.write "你已经进入黑名单，不能在本版发帖。"
Else
'这里是发帖代码
End If
End If