<% 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"设置成功！
" else set rs=Server.CreateObject("ADODB.Recordset") rs.open"select voteadmin from yd_all where id=1",ydzqconn,1,1 Response.Write "管理员ID:(多个ID之间用,分开)
" Response.Write "
" rs.close set rs=nothing conn.close set conn=nothing ydzqconn.close set ydzqconn=nothing Response.Write "[提交设置]" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" end if %> ---------------
[投注管理]