<% dim voteid dim title dim voteoption stats="查看投票用户" if request("id")="" then Errmsg=Errmsg+"
"+"

请指定相关贴子。" founderr=true elseif not isInteger(request("id")) then Errmsg=Errmsg+"
"+"

非法的贴子参数。" founderr=true else VoteID=request("id") end if if founderr then call dvbbs_error() response.end else set rs=conn.execute("select title from topic where pollid="&voteid) if not (rs.eof and rs.bof) then title=rs(0) end if end if %> > <% set rs=conn.execute("select v.*,u.username from voteuser v inner join [user] u on v.userid=u.userid where voteid="&voteid) if rs.eof and rs.bof then %> <% else do while not rs.eof %> <% rs.movenext loop end if rs.close set rs=nothing %>

<%=title%>
用户	项目(数字表示第几项)
还没有人投票！
" target=_blank><%=rs("username")%>	<% voteoption=split(rs("voteoption"),",") for i=0 to ubound(voteoption) if isnumeric(voteoption(i)) then response.write voteoption(i)+1 if i<>ubound(voteoption) then response.write "," next %> <%'=rs("voteoption")%>

<% call activeonline() conn.close set conn=nothing %>