autodrop.asp

1。超强文件读写锁定

	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)
				'response.Write Current_Rate(4,0)&" "&drop
				Set Rs6=Conn.Execute("update m_rate set wager_gold="&num1&" where item_sort='"&Current_Rate(0,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_value='"&Current_Rate(2,0)&"'")
				if drop>0 then
				'response.Write "<script language=javascript> window.parent.frames.mainFrame.location.reload()</script>"
				end if
				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
				Set Rs5=Conn.Execute("Select wager_gold from m_rate where item_sort='"&Current_Rate(0,0)&"' and item_value='总双'")
				if not Rs5.eof then
				sum_m=Rs5("wager_gold")
				end if
				drop=cint((Current_Rate(5,0)-sum_m+gold)/showdrop(1,0))*showdrop(2,0)
				if drop>0 then
				if 1.86-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)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.72-showdrop(3,0))&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总双'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86-drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总双'")
				end if
				else
				'response.write "saldkfjfjklds"
				if 1.86+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.72-showdrop(3,0))&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&showdrop(3,0)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总双'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86-drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总双'")
				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
				Set Rs5=Conn.Execute("Select wager_gold from m_rate where item_sort='"&Current_Rate(0,0)&"' and item_value='总单'")
				if not Rs5.eof then
				sum_m=Rs5("wager_gold")
				end if
				drop=cint((Current_Rate(5,0)-sum_m+gold)/showdrop(1,0))*showdrop(2,0)
				if drop>0 then
				if 1.86-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)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.72-showdrop(3,0))&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总单'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86-drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总单'")
				end if
				else
				if 1.86+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.72-showdrop(3,0))&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&showdrop(3,0)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总单'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86-drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总单'")
				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
				Set Rs5=Conn.Execute("Select wager_gold from m_rate where item_sort='"&Current_Rate(0,0)&"' and item_value='总小'")
				if not Rs5.eof then
				sum_m=Rs5("wager_gold")
				end if
				drop=cint((Current_Rate(5,0)-sum_m+gold)/showdrop(1,0))*showdrop(2,0)
				if drop>0 then
				if 1.86-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)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.72-showdrop(3,0))&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总小'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86-drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总小'")
				end if
				else
				'response.write "saldkfjfjklds"
				if 1.86+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.72-showdrop(3,0))&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&showdrop(3,0)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总小'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86-drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总小'")
				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
				Set Rs5=Conn.Execute("Select wager_gold from m_rate where item_sort='"&Current_Rate(0,0)&"' and item_value='总大'")
				if not Rs5.eof then
				sum_m=Rs5("wager_gold")
				end if
				drop=cint((Current_Rate(5,0)-sum_m+gold)/showdrop(1,0))*showdrop(2,0)
				if drop>0 then
				if 1.86-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)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.72-showdrop(3,0))&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总大'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86-drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总大'")
				end if
				else
				if 1.86+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.72-showdrop(3,0))&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&showdrop(3,0)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总大'")
				else
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86-drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='"&Current_Rate(2,0)&"'")
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(1.86+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='总大'")
				end if
				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 "一肖"
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_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_value='"&Current_Rate(2,0)&"'")
				end if
				end if
end select
%>