📄 lt_na_action2.asp

📁 1。超强文件读写锁定

💻 ASP

字号:

<!--#include file="../manage/mConn.asp"-->
<%
Set Rs6=Conn.Execute("select Manager,memed,current_credit from m_member where stat=0 And Login_Name='"&Session("SK2User")&"' order by id desc")
	If Rs6.Eof Then
      Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!1');window.open('index.asp','_top');</script>")
      Response.End
	End If
	ShowTable3=Rs6.GetRows(1)
Set Rs6=Conn.Execute("Select Top 53 item_value,rate,current_rate,wager_gold,ID from m_rate where item_sort='特别号' Order By ID")

Dim ShowTable2
  ShowTable2=Rs6.GetRows(53)
  for i=1 to 49 
  
select case ShowTable3(1,0)
case "a"
rates=ShowTable2(2,i-1)
case "b"
rates=ShowTable2(2,i-1)-0.5
case "c"
rates=ShowTable2(2,i-1)-1
end select
if i<>49 then
  show2=show2+"'"+cstr(rates)+"'"+","
  else
  show2=show2+"'"+cstr(rates)+"'"
  end if
  next
  'response.Write show2
Set Rs6=Nothing%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0050)http://888.52899.net/member/lt_na/lt_na_action.php -->
<HTML><HEAD><TITLE>lt</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JAVASCRIPT>
<!--
parent.sOdds = Array(<%=show2%>);
parent.wtype='SP';
parent.pOddsName = Array('总单','总双','总大','总小');
parent.pOdds = Array('1.86','1.86','1.86','1.86','0','0');
parent.gNum = '110';
parent.gTime = '';
parent.Msg = '';
parent.num = 1;
parent.HKtime = '2004-10-19 16:50:45';
//-->
</SCRIPT>

<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -