<!--#include file="inc.asp"-->
<!--#include file="conn.asp"-->
<card title="开出结果">
<p>
<%

dim id,ballresult1,ballresult2
id=request("id")
ballresult1=request("ballresult1")
ballresult2=request("ballresult2")
if id="" or Isnumeric(id)=false then
call error("ID无效！")
end if
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from YD_vote where id=" & id & "  order by id desc",ydzqconn,1,1
if rs.eof then 
response.write "不存在的记录！"
Else
dim action
action=request("action")
if action="ok" then
if ballresult1="" or ballresult2="" then
call error("结果不能为空！")
end if
response.write "确认结果为："&ballresult1&":"&ballresult2&"<br/>"
response.write "为了避免不必要的争议，请谨慎确认"
%>
<br/><anchor>确定开出<go href="admin_ball_j.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>" method="post" accept-charset="utf-8">
<postfield name="ballresult1" value="<%=ballresult1%>"/>
<postfield name="ballresult2" value="<%=ballresult2%>"/>
<postfield name="id" value="<%=id%>"/>
</go></anchor><br/>
<a href='admin_ball_k.asp?id=<%=id%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>'>返回修改</a>
<%
else
response.write ""&rs("balltime1")&" "
response.write ""&rs("balltitle")&"<br/>"
response.write ""&rs("ballvote1")&"("&rs("ballvotelu1")&")"
response.write "VS"

response.write ""&rs("ballvote2")&"("&rs("ballvotelu2")&")<br/>"
%>
开出结果：<br/>
<input emptyok="true" name="ballresult1<%=tt%>" size="3"/>:<input emptyok="true" name="ballresult2<%=tt%>" size="3"/>
<br/><anchor>确定开出<go href="admin_ball_k.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>" method="post" accept-charset="utf-8">
<postfield name="ballresult1" value="$(ballresult1<%=tt%>)"/>
<postfield name="ballresult2" value="$(ballresult2<%=tt%>)"/>
<postfield name="id" value="<%=id%>"/>
<postfield name="action" value="ok"/>
</go></anchor><br/>
<%end if
end if
rs.close
set rs=nothing
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%><br/>-------------<br/>
<a href='admin_ball_v.asp?id=<%=id%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>'>返回上级管理</a>
<!--#include file="fanhui.asp"-->
</p></card>
</wml>