<% 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 %>