<!-- #Include File="Include/Config.asp" -->
<%

'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit="查看投票信息"
call DoWebHead(0,0)
Cls.LoadTemplate(4)
Response.write Cls.ReHtml(ShowWebHead(1),1)
'Response.Write Cls.js_put("self.moveTo(0,0);",1)
if Is_LoginTrue=false then
  Response.Write Cls.js_put("alert(""您现在还没有登陆本站！\n\n请先注册并登陆本站。"");window.close();",1)
else
  call vote_user_main()
  call web_copy()
end if
Response.write Cls.ReHtml(ShowWebEnd(1),1)
call DoWebEnd()
sub vote_user_main()
  dim tmp1,vid,topic,tim,vote_num,v_username,vdim,vnum,tdim,tnum,ti
  vid=Cls.code_id("id")
  sql="select top 1 t.topic,t.tim,t.vote_num,v.v_username from AsaiMHBbsTopic as t,AsaiMHBbsVote as v where t.isvote=1 and t.id="&vid&" and v.reply_id="&vid
  set rs=Cls.exec(sql,1)
  if rs.eof then
    rs.close
  Response.Write Cls.js_put("alert(""alert(""查看调查信息的ID出错！\n\n请勿非法提交参数！"");window.close();",1)
    exit sub
  end if
  topic=rs("topic")
  tim=rs("tim")
  vote_num=rs("vote_num")
  v_username=rs("v_username")
  rs.close
  tmp1=vbcrlf&"<tr class=bbs_trb><td colspan=2 align=center class=htd><font class=Gys>共<font class=red>"&vote_num&"</font>票，发起时间：<font title='"&Cls.time_type(tim,2)&"'>"&Cls.time_type(tim,4)&"</font></font></td></tr>"
  vdim=split(v_username,"|")
  vnum=ubound(vdim)
  for i=0 to vnum
    if instr(vdim(i),":")>0 then
      tmp1=tmp1&vbcrlf&"<tr class=bbs_tr align=center>" & _
           vbcrlf&"<td width='50%'>"&format_user_view(left(vdim(i),instr(vdim(i),":")-1),1,0)&"</td>" & _
           vbcrlf&"<td width='50%' ><font class=Gys>选项：</font><font class=red>"
      tdim=split(right(vdim(i),len(vdim(i))-instr(vdim(i),":")),",")
      tnum=ubound(tdim)
      for ti=0 to tnum
        tmp1=tmp1&(tdim(ti)+1)
        if ti<tnum then tmp1=tmp1&","
      next
      erase tdim
      tmp1=tmp1&vbcrlf&"</font></td>" & _
           vbcrlf&"</tr>"
    end if
  next
  erase vdim
  Response.Write vbcrlf&"<table cellspacing=1 cellpadding=4 class=bbs_tables>" & _
         vbcrlf&"<tr><td class=bbs_td colspan=2> "&tit&" - "&Cls.code_html(topic,1,20)&"</td></tr>" & _
         vbcrlf&tmp1 & _
         vbcrlf&"</table>"
end sub
%>
