<!--#include file="inc.asp"-->
<!--#include file="conn.asp"-->
<%
call saycardd("增加开奖")%>
<%
Server.ScriptTimeOut = 3600
dim tm,pm1,pm2,pm3,pm4,pm5,pm6
pm1=request("pm1")
pm2=request("pm2")
pm3=request("pm3")
pm4=request("pm4")
pm5=request("pm5")
pm6=request("pm6")
tm = request("tm")
act = request("act")
if act<>"" then
if tm="" or Isnumeric(tm)=False then
  Call Error("特码不正确！")
  end if
if pm1="" or IsNumeric(pm1)=False or pm2="" or IsNumeric(pm2)=False or pm3="" or IsNumeric(pm3)=False or pm4="" or IsNumeric(pm4)=False or pm5="" or IsNumeric(pm5)=False or pm6="" or IsNumeric(pm6)=False then
call error("平码填写错误！")
end if
tm=clng(tm)

if request("action")<>"ok" then
response.write"请慎重确认以下信息<br/>"
response.write"<b>第"&qinum&"期开奖确认</b><br/>"
response.write"特码:"&tm&"<br/>"
response.write"平码:"&pm1&"-"&pm2&"-"&pm3&"-"&pm4&"-"&pm5&"-"&pm6&"<br/>"
if saytk>1 then
call xlanlj("tmadd.asp?saytk="&saytk&"&amp;sid="&sid&"")
call xltjlj("tm",""&tm&"")
call xltjlj("pm1",""&pm1&"")
call xltjlj("pm2",""&pm2&"")
call xltjlj("pm3",""&pm3&"")
call xltjlj("pm4",""&pm4&"")
call xltjlj("pm5",""&pm5&"")
call xltjlj("pm6",""&pm6&"")
call xltjlj("act",""&act&"")
call xltjlj("action","ok")
call xlanlj1("我已经核对,确定")
response.Write"<br/>"
else
response.write"<anchor>我已经核对,确定"
response.write"<go href=""tmadd.asp?saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset=""utf-8"">"
response.write"<postfield name=""tm"" value="""&tm&"""/>"
response.write"<postfield name=""pm1"" value="""&pm1&"""/>"
response.write"<postfield name=""pm2"" value="""&pm2&"""/>"
response.write"<postfield name=""pm3"" value="""&pm3&"""/>"
response.write"<postfield name=""pm4"" value="""&pm4&"""/>"
response.write"<postfield name=""pm5"" value="""&pm5&"""/>"
response.write"<postfield name=""pm6"" value="""&pm6&"""/>"
response.write"<postfield name=""act"" value="""&act&"""/>"
response.write"<postfield name=""action"" value=""ok""/>"
response.write"</go></anchor><br/>"
end if
response.write"<anchor>不对,返回重新写<prev/></anchor><br/>"
call head1
response.end
end if
'-----------------------------------
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from YD_info where qinum='"&qinum&"'",ydzqconn,1,2
if rs.eof then
  rs.close
  set rs=nothing
  Call Error("不存在的本期记录！")
  end if
  rs("tm")=tm
rs("pm1")=pm1
rs("pm2")=pm2
rs("pm3")=pm3
rs("pm4")=pm4
rs("pm5")=pm5
rs("pm6")=pm6
  rs.update
  rs.close
  set rs=nothing


%>
<%=qinum%>期成功增加开奖！
<%else%>
第<%=qinum%>期开奖公布
<%if saytk>1 then
call xlanlj("tmadd.asp?saytk="&saytk&"&amp;sid="&sid&"")%>
<br/>特码:<input emptyok="true" name="tm" value="0"/><br/>
平码:<input emptyok="true" name="pm1" value="0" size="2"/>-<input emptyok="true" name="pm2" value="0" size="2"/>-<input emptyok="true" name="pm3" value="0" size="2"/>-<input emptyok="true" name="pm4" value="0" size="2"/>-<input emptyok="true" name="pm5" value="0" size="2"/>-<input emptyok="true" name="pm6" value="0" size="2"/><br/>
<%call xltjlj("act","ok")
call xlanlj1("增加开奖")
else%>
<br/>特码:<input emptyok="true" name="tm<%=tt%>" value="0"/><br/>
平码:<input emptyok="true" name="pm1<%=tt%>" value="0" size="2"/>-<input emptyok="true" name="pm2<%=tt%>" value="0" size="2"/>-<input emptyok="true" name="pm3<%=tt%>" value="0" size="2"/>-<input emptyok="true" name="pm4<%=tt%>" value="0" size="2"/>-<input emptyok="true" name="pm5<%=tt%>" value="0" size="2"/>-<input emptyok="true" name="pm6<%=tt%>" value="0" size="2"/>
<br/><anchor>增加开奖<go href="tmadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>" method="post" accept-charset="utf-8">
<postfield name="pm1" value="$(pm1<%=tt%>)"/>
<postfield name="pm2" value="$(pm2<%=tt%>)"/>
<postfield name="pm3" value="$(pm3<%=tt%>)"/>
<postfield name="pm4" value="$(pm4<%=tt%>)"/>
<postfield name="pm5" value="$(pm5<%=tt%>)"/>
<postfield name="pm6" value="$(pm6<%=tt%>)"/>
<postfield name="tm" value="$(tm<%=tt%>)"/>
<postfield name="act" value="ok"/>
</go></anchor>
<%end if%>
<%end if%>
<br/>----------<br/><a href="adminvote.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[投注管理]</a>
<!--#include file="fanhui.asp"-->
<%call head1%>