init.asp

1。超强文件读写锁定

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="Number_Info.asp"-->

<%

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Delete From m_rate")
Dim I
'特别号1-9
  For I=1 To 9
    Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('特别号','特别号','0"&I&"',41,41,0)")
  Next 
'特别号10-49
 For I=10 To 49
    Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('特别号','特别号','"&I&"',41,41,0)")
  Next 

  Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('特别号','特别号','特单',1.88,1.88,0)")
  Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('特别号','特别号','特双',1.88,1.88,0)")
  Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('特别号','特别号','特大',1.88,1.88,0)")
  Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('特别号','特别号','特小',1.88,1.88,0)")
  Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('特别号','特别号','合单',1.88,1.88,0)")
  Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('特别号','特别号','合双',1.88,1.88,0)")

  '正码1-9
  For I=1 To 9
    Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码','正码','0"&I&"',7.1,7.1,0)")
  Next 
'正码10-49
 For I=10 To 49
    Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码','正码','"&I&"',7.1,7.1,0)")
  Next 

Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('正码','正码','总单',1.86,1.86,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('正码','正码','总双',1.86,1.86,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('正码','正码','总大',1.86,1.86,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('正码','正码','总小',1.86,1.86,0)")
'正码1-6
    For I=1 To 6
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码1-6','正码"&I&"','大',1.87,1.87,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码1-6','正码"&I&"','小',1.87,1.87,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码1-6','正码"&I&"','单',1.87,1.87,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码1-6','正码"&I&"','双',1.87,1.87,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码1-6','正码"&I&"','红',2.65,2.65,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码1-6','正码"&I&"','绿',2.75,2.75,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码1-6','正码"&I&"','蓝',2.75,2.75,0)")
Next


'连码

Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('连码','二全中','二全中',60,60,0)") '-二全中
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('连码','二中特','中特',60,60,0)") '-二中特 中特
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('连码','二中特','中二',30,30,0)") '-二中特 中二
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('连码','特串','特串',120,120,0)") '-特串
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('连码','三全中','三全中',520,520,0)") '-三全中
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('连码','三中二','中二',20,20,0)") '-三中二 中二
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('连码','三中二','中三',80,80,0)") '-三中二 中三
'正码过关
    For I=1 To 6
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码过关','正码"&I&"','大',1.87,1.87,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码过关','正码"&I&"','小',1.87,1.87,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码过关','正码"&I&"','单',1.87,1.87,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码过关','正码"&I&"','双',1.87,1.87,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码过关','正码"&I&"','红',2.65,2.65,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码过关','正码"&I&"','绿',2.75,2.75,0)")
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_Name,item_value,rate,current_rate,wager_gold) values ('正码过关','正码"&I&"','蓝',2.75,2.75,0)")
Next
'
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','鼠',11,11,0)") '-鼠
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','虎',11,11,0)") '-虎
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','龙',11,11,0)") '-龙
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','马',11,11,0)") '-马
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','猴',11,11,0)") '-猴
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','狗',11,11,0)") '-狗
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','牛',11,11,0)") '-牛
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','兔',11,11,0)") '-兔
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','蛇',11,11,0)") '-蛇
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','羊',11,11,0)") '-羊
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','鸡',11,11,0)") '-鸡
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','猪',11,11,0)") '-猪
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','红波',2.65,2.65,0)") '-红
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','绿波',2.75,2.75,0)") '-绿
Set Rs6=Conn.Execute("insert into m_rate (item_sort,item_name,item_value,rate,current_rate,wager_gold) values ('生肖色波','生肖','蓝波',2.75,2.75,0)") '-蓝
%>