autodrop.asp

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

ASP
592 行
字号
12
				
				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
	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)&"'")
				
				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
	
	case else
	
	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
				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)+ztm3
				
				if Current_Rate(1,0)="正码B" then
				showdrop(3,0)=showdrop(3,0)+ztm3
				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)+ztm3
				
				if Current_Rate(1,0)="正码B" then
				showdrop(3,0)=showdrop(3,0)+ztm3
				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)+ztm3
				
				if Current_Rate(1,0)="正码B" then
				showdrop(3,0)=showdrop(3,0)+ztm3
				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)+ztm3
				
				if Current_Rate(1,0)="正码B" then
				showdrop(3,0)=showdrop(3,0)+ztm3
				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
				if Current_Rate(1,0)="正码" then 
	drop_sort="正码A盘"
	else
	drop_sort="正码B盘"
	end if
	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)+ztm2
				
				if Current_Rate(1,0)="正码B" then
				showdrop(3,0)=showdrop(3,0)+ztm2
				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 "正码1-6"
	if Current_Rate(2,0)<>"红波" and  Current_Rate(2,0)<>"蓝波"  and  Current_Rate(2,0)<>"绿波"  then
	select case Current_Rate(2,0)
	case "单"
	drop_sort="正码1-6单双"
	case "双"
	drop_sort="正码1-6单双"
	case "大"
	drop_sort="正码1-6大小"
	case "小"
	drop_sort="正码1-6大小"
	end select
	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)
				
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				'response.Write Current_Rate(4,0)&"&nbsp;"&drop
				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 cdbl(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(4,0)-drop&" where item_sort='"&Current_Rate(0,0)&"' and item_name='"&Current_Rate(1,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				end if
	end if
end if






case "六肖"
select case Current_Rate(1,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)
				
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='中'")
				if cdbl(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_name='中'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&Current_Rate(4,0)-drop&" where item_sort='"&Current_Rate(0,0)&"' and item_name='中'")
				end if
				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)
				
				drop=int((Current_Rate(5,0)+gold)/showdrop(1,0))*showdrop(2,0)
				num1=(Current_Rate(5,0)+gold) mod showdrop(1,0)
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,0)&"' and item_name='不中'")
				if cdbl(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_name='不中'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&Current_Rate(4,0)-drop&" where item_sort='"&Current_Rate(0,0)&"' and item_name='不中'")
				end if
				end if
				
end select				
				
end select

%>
12

autodrop.asp - 源码说明

本页面展示了「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」中的 autodrop.asp 源码文件，采用 ASP 编程语言编写，共 592 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与mysql相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?