<% dim votename,HaContent,bigpay,smallpay,fortime,tmcent,sxcent,bscent,dscent,dxcent,wxcent,tc2,tc3,tc4,tc5,tc6,sc2,sc3,sc4,sc5,sc6 votename=request("votename") HaContent=request("HaContent") bigpay=request("bigpay") smallpay=request("smallpay") fortime=request("fortime") tmcent=request("tmcent") sxcent=request("sxcent") bscent=request("bscent") dscent=request("dscent") dxcent=request("dxcent") wxcent=request("wxcent") tc2=request("tc2") tc3=request("tc3") tc4=request("tc4") tc5=request("tc5") tc6=request("tc6") sc2=request("sc2") sc3=request("sc3") sc4=request("sc4") sc5=request("sc5") sc6=request("sc6") ptcent=request("ptcent") dpcent=request("dpcent") dwcent=request("dwcent") ezecent=request("ezecent") szscent=request("szscent") szecent=request("szecent") TP=request("TP") if TP<>"" then if votename="" then Call Error("系统名称不能为空！") end if if len(votename)>30 then Call Error("系统名称最多30字！") end if if HaContent="" then Call Error("欢迎语不能为空！") end if if len(HaContent)>15 then Call Error("欢迎语最多15字！") end if if bigpay="" or IsNumeric(bigpay)=False then Call Error("最大投注额应该是数字形式！") end if if smallpay="" or IsNumeric(smallpay)=False then Call Error("最小投注额应该是数字形式！") end if if fortime="" or IsNumeric(fortime)=False then Call Error("下注限定时间应该是数字形式，分钟为单位！") end if if tmcent="" or sxcent="" or bscent="" or dscent="" or dxcent="" or wxcent="" or tc2="" or tc3="" or tc4="" or tc5="" or tc6="" or sc2="" or sc3="" or sc4="" or sc5="" or sc6="" or ptcent="" or dpcent="" or dwcent="" or ezecent="" or szscent="" or szecent="" then Call Error("请检查赔率是否正确！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from YD_all where id=1",ydzqconn,1,2 rs("votename")=votename rs("HaContent")=HaContent rs("bigpay")=bigpay rs("smallpay")=smallpay rs("fortime")=fortime rs.update rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from YD_payCent where id=1",ydzqconn,1,2 rs("tmcent")=tmcent rs("sxcent")=sxcent rs("bscent")=bscent rs("dscent")=dscent rs("dxcent")=dxcent rs("wxcent")=wxcent rs("tc2")=tc2 rs("tc3")=tc3 rs("tc4")=tc4 rs("tc5")=tc5 rs("tc6")=tc6 rs("sc2")=sc2 rs("sc3")=sc3 rs("sc4")=sc4 rs("sc5")=sc5 rs("sc6")=sc6 rs("ptcent")=ptcent rs("dpcent")=dpcent rs("dwcent")=dwcent rs("ezecent")=ezecent rs("szscent")=szscent rs("szecent")=szecent rs.update rs.close set rs=nothing response.write"编辑成功！
" else set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from yd_all where id=1",ydzqconn,1,1 Response.Write "系统名称:" Response.Write "
" Response.Write "欢迎语:" Response.Write "
" Response.Write "最大投注额" Response.Write "
" Response.Write "最小投注额" Response.Write "
" Response.Write "开奖前" Response.Write "分钟停止下注
" rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from YD_payCent where id=1",ydzqconn,1,1 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 "倍
" 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 "三肖中特:" 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 "平码独尾:" Response.Write "倍
" Response.Write "二中二:" Response.Write "倍
" Response.Write "三中三:" Response.Write "倍
" Response.Write "三中二:" 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 "" 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 "" 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 "
" Response.Write "提示:赔率可以有小数点,如1.2
" end if %> ---------------
[投注管理]