<!--#include file="inc.asp"-->
<!--#include file="conn.asp"-->
<%call saycardd("虚拟投注管理员设置")
dim newvoteadmin
newvoteadmin=request("voteadmin")
TP=request("TP")
if TP<>"" then

if newvoteadmin="" then
  Call Error("系统管理员不能为空！")
  end if
  
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select voteadmin from YD_all where id=1",ydzqconn,1,2
rs("voteadmin")=newvoteadmin
rs.update
rs.close
set rs=nothing
response.write"设置成功！<br/>"
else
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select voteadmin from yd_all where id=1",ydzqconn,1,1
 Response.Write "管理员ID:(多个ID之间用,分开)<br/>"
if saytk>1 then
 call xlanlj("Configvote2.asp?saytk="&saytk&"&amp;sid="&sid&"")
 Response.Write "<input name=""voteadmin"" value="""&rs("voteadmin")&"""/><br/>"
 response.write "<input type=""hidden"" name=""tp"" value=""ok""/>"
 call xlanlj1("提交设置")
 else
 Response.Write "<input name=""voteadmin"&tt&""" value="""&rs("voteadmin")&"""/><br/>"
rs.close
set rs=nothing

conn.close
set conn=nothing
ydzqconn.close
set ydzqconn=nothing
Response.Write "<anchor>[提交设置]"
Response.Write "<go href=""Configvote2.asp?saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
Response.Write "<postfield name=""voteadmin"" value=""$(voteadmin"&tt&")""/>"
Response.Write "<postfield name=""TP"" value=""ok""/>"
Response.Write "</go></anchor><br/>"
end if
end if
%>
<br/>---------------<br/>
<a href="adminvote.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[投注管理]</a>
<!--#include file="fanhui.asp"-->
<%call head1()%>