<% dim id,qi,num,qi2 id=request("id") tm=request("tm") pm1=request("pm1") pm2=request("pm2") pm3=request("pm3") pm4=request("pm4") pm5=request("pm5") pm6=request("pm6") qi2=request("qi2") TP=request("TP") if id="" or IsNumeric(ID)=False then Call Error("ID无效！") end if if TP<>"" then if tm="" or IsNumeric(tm)=False then Call Error("号码无效！") end if tm=clng(tm) if qi2="" or IsNumeric(qi2)=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 set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from YD_info where id="&id,ydzqconn,1,2 rs("tm")=tm rs("qinum")=qi2 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 response.write"编辑成功！
" else set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from YD_info where id="&id,ydzqconn,1,1 if rs.eof then rs.close set rs=nothing call error(" 不存在的记录！") end if Response.Write "编辑第"&qi&"开奖：" Response.Write "期数:" Response.Write "
" Response.Write "特码:" Response.Write "
" %> 平码:" size="2"/>-" size="2"/>-" size="2"/>-" size="2"/>-" size="2"/>-" size="2"/>
<% 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 "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "[删除记录]
" end if Response.Write "返回开奖记录" %>
[投注管理]