autodrop.asp

1。超强文件读写锁定

<%'自动降水
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
				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
				'response.Write sum_m&"&nbsp;"&Current_Rate(5,0)&"&nbsp;"&gold&"&nbsp;"
				drop=int((Current_Rate(5,0)-sum_m+gold)/showdrop(1,0))*showdrop(2,0)
				if  drop>0 then
				if 1.88-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.76-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.88-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.88+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='双'")
				end if
				else
				drop=cint((Current_Rate(5,0)-sum_m+gold)/showdrop(1,0))*showdrop(2,0)
				end if
				if 1.88-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.76-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.88-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.88+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='双'")
				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
				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.88-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.76-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.88-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.88+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='单'")
				end if
				else
				'response.write "saldkfjfjklds"
				if 1.88+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.76-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.88-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.88+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.88-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.76-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.88-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.88+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='小'")
				end if
				else
				'response.write "saldkfjfjklds"
				if 1.88+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.76-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.88-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.88+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.88-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.76-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.88-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.88+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='大'")
				end if
				else
				'response.write "saldkfjfjklds"
				if 1.88+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.76-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.88-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.88+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.88-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.76-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.88-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.88+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='合双'")
				end if
				else
				'response.write "saldkfjfjklds"
				if 1.88+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.76-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.88-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.88+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.88-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.76-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.88-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.88+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='合单'")
				end if
				else
				if 1.88+drop<showdrop(3,0)   then
				Set Rs6=Conn.Execute("update m_rate set current_rate="&(3.76-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.88-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.88+drop)&" where item_sort='"&Current_Rate(0,0)&"' and item_value='合单'")
				end if
				end if
	case else