<% if BoardID="" or not isInteger(BoardID) or BoardID=0 then Errmsg=Errmsg+"
"+"
  • 错误的版面参数！请确认您是从有效的连接进入。" founderr=true else BoardID=clng(BoardID) end if if founderr then call nav() call head_var(2,0,"","") call dvbbs_error() else stats=boardtype&"发表投票" call nav() call head_var(1,BoardDepth,0,0) call main() if founderr then call dvbbs_error() end if call footer() sub main() if Cint(Board_Setting(43))=1 then Errmsg=Errmsg+"
    "+"
  • 本论坛已经被管理员限制了不允许发贴。" founderr=true exit sub end if if cint(Board_Setting(1))=1 then if Cint(GroupSetting(37))=0 then Errmsg=ErrMsg+"
    "+"
  • 您没有权限进入隐含论坛！" founderr=true exit sub end if end if if Cint(GroupSetting(8))=0 then Errmsg=Errmsg+"
    "+"
  • 您没有在本论坛发表投票的权限，请登陆或者同管理员联系。" founderr=true exit sub end if if cint(lockboard)=2 then if not founduser then Errmsg=Errmsg+"
    "+"
  • 本论坛为认证论坛，请登陆并确认您的用户名已经得到管理员的认证后进入。" founderr=true exit sub else if chkboardlogin(boardid,membername)=false then Errmsg=Errmsg+"
    "+"
  • 本论坛为认证论坛，请确认您的用户名已经得到管理员的认证后进入。" founderr=true exit sub end if end if end if %>
    method=POST onSubmit=submitonce(this) name=frmAnnounce> <%if Cint(GroupSetting(7))=1 or Cint(GroupSetting(7))=2 then%> <%end if%>
      发表新投票<%if isaudit=1 then%>（本版面所有帖子都要经过管理员审核方可发表）<%end if%>
    用户名 class=FormClass>  >*您没有注册？
    密码 class=FormClass>>  *忘记密码？
    主题标题    >*不得超过25个汉字或50个英文字符
    投票项目

  • 每行一个投票项目，最多<%=Board_Setting(32)%>个
  • 超过自动作废，空行自动过滤


    • 单选投票
    多选投票
    当前心情
  • 将放在帖子的前面
    		•  <%for i=0 to Forum_PostFaceNum-1%> >   <%if i>0 and ((i+1) mod 9=0) then response.write "
    "%> <%next%>
    文件上传
    内容
  • HTML标签： <%=iif(Board_Setting(5),"可用","不可用")%>
  • UBB标签： <%=iif(Board_Setting(6),"可用","不可用")%>
  • 贴图标签： <%=iif(Board_Setting(7),"可用","不可用")%>
  • 多媒体标签：<%=iif(Board_Setting(9),"可用","不可用")%>
  • 表情字符转换：<%=iif(Board_Setting(8),"可用","不可用")%>
  • 上传图片：<%=iif(Forum_Setting(3),"可用","不可用")%>
  • 最多<%=Board_Setting(16)\1024%>KB

    特殊内容
  • <%=iif(Board_Setting(10),"金钱帖","金钱帖：不可用")%>
  • <%=iif(Board_Setting(11),"积分帖","积分帖：不可用")%>
  • <%=iif(Board_Setting(12),"魅力帖","魅力帖：不可用")%>
  • <%=iif(Board_Setting(13),"威望帖","威望帖：不可用")%>
  • <%=iif(Board_Setting(14),"文章帖","文章帖：不可用")%>
  • <%=iif(Board_Setting(15),"回复帖","回复帖：不可用")%>
  • <%=iif(Board_Setting(23),"出售帖","出售帖：不可用")%>
    		• <%if Cint(Board_Setting(4))=1 then%> <%end if%>
    点击表情图即可在帖子中加入相应的表情
      <% dim ii for i=0 to 12 if len(i)=1 then ii="0" & i else ii=i response.write " " next %>
    选项 是否显示您的签名？
    有回复时使用邮件通知您？

       
    method=post target=preview_page>
    <% call activeonline() end sub %>