⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 userleft.asp

📁 1。超强文件读写锁定
💻 ASP
字号:
<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<!--#include file="manage/sk2.asp"-->
<%	Set Rs6=Conn.Execute("Select ID,color From m_color Order By ID")
	If Not Rs6.Eof Then
 	  Get_Para_Color=Rs6.GetRows(-1)
	End If
  Get_Kithe_Para:Get_UserInfo
  Set Rs6=Conn.Execute("select top 1 tray_time,affice,tray_switch,tray_show,tray_show2,tray_show3,affice2 from m_config")
	Dim affice,tray_time,tray_switch,tray_show,affice2
	If Not Rs6.Eof Then
     	affice=Rs6("affice")
	affice2=trim(Rs6("affice2"))
	 tray_time=Rs6("tray_time")
	 tray_switch=Rs6("tray_switch")
	 tray_show=Rs6("tray_show")
	 tray_show2=Rs6("tray_show2")
	 tray_show3=Rs6("tray_show3")
	End If
'Set Rs6=Conn.Execute("Select Top 1 ID,NN,ND,NA,N1,N2,N3,N4,N5,N6 From m_Kithe where NN='"&Current_Kithe_Num&"'")
'Current_KitheTable=Rs6.GetRows(1)
'if Current_KitheTable(3,0)<>0 or Current_KitheTable(4,0)<>0 then 
'Kithe_Num=Current_Kithe_Num
'else
'Kithe_Num=Current_Kithe_Num-1
'end if
  'Set Rs6=Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Untitled Document</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="images/css-g.css" type=text/css rel=stylesheet>
<SCRIPT language=JAVASCRIPT>
if(self == top){location = '/';} 
</SCRIPT>
<SCRIPT language=javascript>
window.setTimeout("self.location='userleft.asp'", 10000);
</SCRIPT>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY  oncontextmenu=window.event.returnValue=false bgColor=#e5eaee leftMargin=0 
topMargin=0>
<TABLE height=235 cellSpacing=0 cellPadding=0 width=230 border=0>
  <TBODY>
  <TR>
    <TD background=images/qq2.gif height=30>&nbsp;</TD></TR>
  <TR>
    <TD vAlign=top height=76>
      <TABLE height="100%" cellSpacing=0 cellPadding=0 width=227 border=0>
        <TBODY>
        <TR>
          <TD width=16 background=images/qq1.gif rowSpan=2></TD>
          <TD width=215 height=26>
            <TABLE height=25 cellSpacing=0 cellPadding=0 width=200 
            background=images/pp.gif border=0>
              <TBODY>
              <TR>
                <TD>
                  <DIV align=center><FONT 
              color=#ffffff>请确认您的帐户</FONT></DIV></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD height=123>
            <TABLE class=table_02 height=135 cellSpacing=6 cellPadding=0 
            width="95%" align=left border=0>
              <TBODY>
              <TR>
                <TD vAlign=center width="11%" height=25><FONT size=2><IMG 
                  height=30 src="images/ico.gif" width=30> </FONT></TD>
                <TD class=title_01 vAlign=center width="89%" height=20>帐户名称:    
                  <%=session("sk2user")%></TD></TR>
              <TR>
                <TD vAlign=center height=20><FONT size=2><IMG height=30 
                  src="images/ico.gif" width=30> </FONT></TD>
                <TD class=title_01 vAlign=center height=20>信用额度: <%=userinfo(5,0)%></TD></TR>   
              <TR align=left>
                <TD class=td_fail colSpan=2><FONT 
                color=#0000ff>请选择下注彩球</FONT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD vAlign=top align=middle background=images/iny.gif>
    <table width="120"  border="0">
      <tr>
        <td>
              <%if affice2<>"" then
      	response.write "<div align='center'><font color='#FFFF00'>"
		response.write affice2
		response.write "</font></div>"
      end if%>
        </td>
      </tr>
    </table>
    </TR>
  <TR>
    <TD vAlign=top height=10><IMG height=10 src="images/inz.gif" 
      width=230></TD></TR>
  <TR>
    <TD vAlign=top height=10>&nbsp;</TD>
  </TR>
  <TR>
  
    <TD align=middle>
	<%if tray_show=1 then%>
      <TABLE cellSpacing=2 cellPadding=0 width=210 border=0>
        <TBODY>
        <TR>
          <TD colSpan=5>期数:    
		 <%
		if tray_show2=1 then
		 response.Write Current_Kithe_Num
		 end if
		if tray_show2=0 then
		   response.Write Current_Kithe_Num-1
		end if%>
		  <%'=Current_Kithe_Num-1%>   
 开奖结果</TD>   
          <TD align=right colSpan=2><A  href="javascript:location.reload();">更新</A></TD></TR>
        <TR>
		<%if tray_show3=0  then%>
		<TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <%else%>
		  <%Set Rs5=Conn.Execute("Select Top 1 N1 From m_Kithe where NN='"&Current_Kithe_Num&"'")%>
		<%if Current_KitheTable(4,0)>0 then
		'response.Write Rs5("N1")%>
          <TD class=ball_td align=middle width=30 
          background=images/<%=trim(Get_Para_Color(1,cint(Current_KitheTable(4,0))-1))%>.gif bgColor=#c1d7e5 height=27>
		  <%if Current_KitheTable(4,0)<10 then
		  response.Write "0"
		  end if
		  response.Write Current_KitheTable(4,0)%></TD>
		  <%else%>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <%end if%>
		  <%if Current_KitheTable(5,0)>0 then%>
          <TD class=ball_td align=middle width=30 
          background=images/<%=trim(Get_Para_Color(1,cint(Current_KitheTable(5,0))-1))%>.gif bgColor=#c1d7e5 height=27><%if Current_KitheTable(5,0)<10 then
		  response.Write "0"
		  end if
		  response.Write Current_KitheTable(5,0)%></TD>
		  <%else%>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <%end if%>
		  <%if Current_KitheTable(6,0)>0 then%>
          <TD class=ball_td align=middle width=30 
          background=images/<%=trim(Get_Para_Color(1,cint(Current_KitheTable(6,0))-1))%>.gif bgColor=#c1d7e5 height=27><%if Current_KitheTable(6,0)<10 then
		  response.Write "0"
		  end if
		  response.Write Current_KitheTable(6,0)%></TD>
		  <% else%>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <%end if%>
		  <%if Current_KitheTable(7,0)>0 then%>
          <TD class=ball_td align=middle width=30 
          background=images/<%=trim(Get_Para_Color(1,cint(Current_KitheTable(7,0))-1))%>.gif bgColor=#c1d7e5 height=27><%if Current_KitheTable(7,0)<10 then
		  response.Write "0"
		  end if
		  response.Write Current_KitheTable(7,0)%></TD>
		  <%else%>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <%end if%>
		  <%if Current_KitheTable(8,0)>0 then%>
          <TD class=ball_td align=middle width=30 
          background=images/<%=trim(Get_Para_Color(1,cint(Current_KitheTable(8,0))-1))%>.gif bgColor=#c1d7e5 height=27><%if Current_KitheTable(8,0)<10 then
		  response.Write "0"
		  end if
		  response.Write Current_KitheTable(8,0)%></TD>
		  <%else%>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <%end if%>
		  <%if Current_KitheTable(9,0)>0 then%>
          <TD class=ball_td align=middle width=30 
          background=images/<%=trim(Get_Para_Color(1,cint(Current_KitheTable(9,0))-1))%>.gif bgColor=#c1d7e5 height=27><%if Current_KitheTable(9,0)<10 then
		  response.Write "0"
		  end if
		  response.Write Current_KitheTable(9,0)%></TD>
		  <%
		  else%>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		  <%end if%>
		  <%if Current_KitheTable(3,0)>0 then%>
          <TD class=ball_td align=middle width=30 
          background=images/<%=trim(Get_Para_Color(1,cint(Current_KitheTable(3,0))-1))%>.gif bgColor=#c1d7e5 
        height=27><%if Current_KitheTable(3,0)<10 then
		  response.Write "0"
		  end if
		  response.Write Current_KitheTable(3,0)%></TD>
		<%
		else%>
		  <TD class=ball_td align=middle width=30 
          background=images/white_ball.gif bgColor=#c1d7e5 height=27>00</TD>
		<%end if
		end if%></TR></TBODY></TABLE>
		<%end if%>
		</TD></TR></TBODY></TABLE>
		
	  </BODY></HTML>

⌨️ 快捷键说明

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