autodrop.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 592 行 · 第 1/2 页

<%'自动降水
 Set Rs6=Server.CreateObject("Adodb.RecordSet")
    Set Rs6=Conn.Execute("Select Top 1 * from m_config")

  If Not Rs6.Eof Then 
   ztm=rs6("tm")
   ztm1=rs6("tm1")
    ztm2=rs6("tm2")
   ztm3=rs6("tm3")	
  End If
  Set Rs6=Nothing

select case Current_Rate(0,0)
case "特别号"
	select case Current_Rate(2,0)
	case "单"
	
			drop_sort="特别号单双"
		
			
				
				Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				
				zpm1=showdrop(3,0)
				zpm2=showdrop(3,0)+ztm1
				
				if Current_Rate(1,0)="特别号B" then
				showdrop(3,0)=showdrop(3,0)+ztm1
				end if
				
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='"&Current_Rate(1,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				if Current_Rate(4,0)-drop>showdrop(3,0)   then
				
				
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				else
				
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm2&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm1&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				
				
				
				'response.Write drop
	case "双"
	drop_sort="特别号单双"
				Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				
				zpm1=showdrop(3,0)
				zpm2=showdrop(3,0)+ztm1
				
				if Current_Rate(1,0)="特别号B" then
				showdrop(3,0)=showdrop(3,0)+ztm1
				end if
				
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='"&Current_Rate(1,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				if Current_Rate(4,0)-drop>showdrop(3,0)   then
				
				
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				else
				
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm2&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm1&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				
	case "大"
	drop_sort="特别号大小"
				Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				
				zpm1=showdrop(3,0)
				zpm2=showdrop(3,0)+ztm1
				
				if Current_Rate(1,0)="特别号B" then
				showdrop(3,0)=showdrop(3,0)+ztm1
				end if
				
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='"&Current_Rate(1,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				if Current_Rate(4,0)-drop>showdrop(3,0)   then
				
				
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				else
				
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm2&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm1&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				
	case "小"
	drop_sort="特别号大小"
				Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				
				zpm1=showdrop(3,0)
				zpm2=showdrop(3,0)+ztm1
				
				if Current_Rate(1,0)="特别号B" then
				showdrop(3,0)=showdrop(3,0)+ztm1
				end if
				
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='"&Current_Rate(1,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				if Current_Rate(4,0)-drop>showdrop(3,0)   then
				
				
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				else
				
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm2&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm1&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				
	case "合单"
	drop_sort="特别号合数单双"
				Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				
				zpm1=showdrop(3,0)
				zpm2=showdrop(3,0)+ztm1
				
				if Current_Rate(1,0)="特别号B" then
				showdrop(3,0)=showdrop(3,0)+ztm1
				end if
				
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='"&Current_Rate(1,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				if Current_Rate(4,0)-drop>showdrop(3,0)   then
				
				
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				else
				
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm2&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm1&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				
	case "合双"
	
	drop_sort="特别号合数单双"
			Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				
				zpm1=showdrop(3,0)
				zpm2=showdrop(3,0)+ztm1
				
				if Current_Rate(1,0)="特别号B" then
				showdrop(3,0)=showdrop(3,0)+ztm1
				end if
				
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='"&Current_Rate(1,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				if Current_Rate(4,0)-drop>showdrop(3,0)   then
				
				
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				else
				
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm2&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm1&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				
	
	
	
	
	case else
	
	
	drop_sort="特别号"
				
				Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				
				zpm1=showdrop(3,0)
				zpm2=showdrop(3,0)+ztm
				
				if Current_Rate(1,0)="特别号B" then
				showdrop(3,0)=showdrop(3,0)+ztm
				end if
				
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='"&Current_Rate(1,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				if Current_Rate(4,0)-drop>showdrop(3,0)   then
				
				
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				else
				
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm2&" where item_sort='"&Current_Rate(0,0)&"'  and item_name='特别号B' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&zpm1&" where  item_sort='"&Current_Rate(0,0)&"' and item_name='特别号' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				
				
				
				
				
				
	end select

case "色波"
	select case Current_Rate(2,0)
	case "红波"
			drop_sort="波色"
				Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				Response.Write num1
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='色波'   and item_value='"&Current_Rate(2,0)&"'")
				
				drop=cint((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				if drop>0 then
				if Current_Rate(4,0)-drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&showdrop(3,0)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				else
				'response.write "saldkfjfjklds"
				if Current_Rate(4,0)+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&showdrop(3,0)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
			
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate=current_rate-"&drop&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				
				end if
				end if
				'response.Write drop
	case "蓝波"
	drop_sort="波色"
				Set Rs6=Conn.Execute("Select drop_sort,drop_value,drop_unit,low_drop from m_drop where drop_sort='"&drop_sort&"'")
				if not Rs6.eof then
				showdrop=Rs6.getrows(1)
				end if
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='色波' and  item_value='"&Current_Rate(2,0)&"'")