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

📄 usermain.asp

📁 此源码的会员,代理,后台功能齐全,是真真正正包含数据库(在matali文件夹里)的源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
								response.Write ShowTable(2,I)
								case "b"
								response.Write ShowTable(2,I)-0.5
								case "c"
								response.Write  ShowTable(2,I)-1
								end select%>
                                      </a></font></font></td>
                                      <%if showtable(1,I+10)<>showtable(2,I+10) then %><td height=27 align=middle background=images/<%=NumberImage(I+11)%> bgcolor="#FFFFAA" class=ball_td1 id=num0><%else%><td id=num<%=I%> class=ball_td align=middle  background=images/<%=NumberImage(I+11)%> height=27><%end if%><font  style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow (color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px"> <%=ShowTable(0,I+10)%> </font></td>
                                      <%if showtable(1,I+10)<>showtable(2,I+10) then
									  set Rs6=conn.execute("update m_rate set rate=current_rate where item_sort='特别号' and item_value='"&ShowTable(0,I+10)&"'")
									  response.Write "<EMBED src='images/ding.wav' hidden='true' LOOP='false' AUTOSTART='true'></EMBED>"%><td id=num<%=i%> align=middle bgcolor="#FFFFAA" ><%else%><td id=num<%=i%> align=middle bgcolor="#E4E4E4" ><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <a href="s_order.asp?rate_id=<%=ShowTable(4,I+10)%>"  target="leftFrame">
                                        <%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,I+10)
								case "b"
								response.Write ShowTable(2,I+10)-0.5
								case "c"
								response.Write  ShowTable(2,I+10)-1
								end select%>
                                      </a></font></font></td>
                                      <%if showtable(1,I+20)<>showtable(2,I+20) then %><td height=27 align=middle background=images/<%=NumberImage(I+21)%> bgcolor="#FFFFAA" class=ball_td1 id=num0><%else%><td id=num<%=i+20%> class=ball_td align=middle  background=images/<%=NumberImage(I+21)%> height=27><%end if%><font  style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow (color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px"> <%=ShowTable(0,I+20)%> </font></td>
                                      <%if showtable(1,I+20)<>showtable(2,I+20) then
									  set Rs6=conn.execute("update m_rate set rate=current_rate where item_sort='特别号' and item_value='"&ShowTable(0,I+20)&"'")
									  response.Write "<EMBED src='images/ding.wav' hidden='true' LOOP='false' AUTOSTART='true'></EMBED>"%><td id=num<%=+20%> align=middle bgcolor="#FFFFAA" ><%else%><td id=num<%=i%> align=middle bgcolor="#E4E4E4" ><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <a href="s_order.asp?rate_id=<%=ShowTable(4,I+20)%>"  target="leftFrame">
                                        <%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,I+20)
								case "b"
								response.Write ShowTable(2,I+20)-0.5
								case "c"
								response.Write  ShowTable(2,I+20)-1
								end select%>
                                      </a></font></font></td>
                                      <%if showtable(1,I+30)<>showtable(2,I+30) then %><td height=27 align=middle background=images/<%=NumberImage(I+31)%> bgcolor="#FFFFAA" class=ball_td1 id=num0><%else%><td id=num<%=i+30%> class=ball_td align=middle  background=images/<%=NumberImage(I+31)%> height=27><%end if%><font  style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow (color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px"> <%=ShowTable(0,I+30)%> </font></td>
                                      <%if showtable(1,I+30)<>showtable(2,I+30) then
									  set Rs6=conn.execute("update m_rate set rate=current_rate where item_sort='特别号' and item_value='"&ShowTable(0,I+30)&"'")
									  response.Write "<EMBED src='images/ding.wav' hidden='true' LOOP='false' AUTOSTART='true'></EMBED>"%><td id=num<%=i%> align=middle bgcolor="#FFFFAA" ><%else%><td id=num<%=I+30%> align=middle bgcolor="#E4E4E4" ><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <a href="s_order.asp?rate_id=<%=ShowTable(4,I+30)%>" target="leftFrame">
                                        <%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,I+30)
								case "b"
								response.Write ShowTable(2,I+30)-0.5
								case "c"
								response.Write  ShowTable(2,I+30)-1
								end select%>
                                      </a></font></font></td>
                                      <%If I+40<49 Then%>
                                      <%if showtable(1,I+40)<>showtable(2,I+40) then %><td height=27 align=middle background=images/<%=NumberImage(I+41)%> bgcolor="#FFFFAA" class=ball_td1 id=num0><%else%><td id=num<%=I+40%> class=ball_td align=middle  background=images/<%=NumberImage(I+41)%> height=27><%end if%><font  style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow (color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px"> <%=ShowTable(0,I+40)%> </font></td>
                                      <%if showtable(1,I+40)<>showtable(2,I+40) then
									  set Rs6=conn.execute("update m_rate set rate=current_rate where item_sort='特别号' and item_value='"&ShowTable(0,I+40)&"'")
									  response.Write "<EMBED src='images/ding.wav' hidden='true' LOOP='false' AUTOSTART='true'></EMBED>"%><td id=num<%=I+40%> align=middle bgcolor="#FFFFAA" ><%else%><td id=num<%=I+40%> align=middle bgcolor="#E4E4E4" ><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <a href="s_order.asp?rate_id=<%=Server.URLEnCode(ShowTable(4,I+40))%>"   target="leftFrame">
                                        <%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,I+40)
								case "b"
								response.Write ShowTable(2,I+40)-0.5
								case "c"
								response.Write  ShowTable(2,I+40)-1
								end select%>
                                      </a></font></font></td>
                                      <%End IF%>
                                    </tr>
                                    <%Next%>
                                  </tbody>
                              </table></td>
                            </tr>
                          </tbody>
                        </table>
                          <table width="502" height="42" border=0 cellpadding=0 cellspacing=2>
                            <tbody>
                              <tr>
                                <%if showtable(1,49)<>showtable(2,49) then %><td width="65" height="20" align=middle bgcolor="#FFFFAA"  id="num55"><%else%><td width="65" height="20" align=middle bgcolor="#E4E4E4" class=ball_td id="num55"><%end if%>特<%=ShowTable(0,49)%></td>
                                <%if showtable(1,49)<>showtable(2,49) then 
								set Rs6=conn.execute("update m_rate set rate=current_rate where item_sort='特别号' and (item_value='单' or item_value='双')")
								response.Write "<EMBED src='images/ding.wav' hidden='true' LOOP='false' AUTOSTART='true'></EMBED>"%><td width=60 align=middle bgcolor="#FFFFAA"><%else%><td width=60 align=middle bgcolor="#E4E4E4"><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"><a href="s_order.asp?rate_id=<%=ShowTable(4,49)%>"   target="leftFrame">
								<%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,49)
								case "b"
								response.Write ShowTable(2,49)-0.01
								case "c"
								response.Write  ShowTable(2,49)-0.02
								end select%></a></font></font></td>
                                <%if showtable(1,50)<>showtable(2,50) then %><td width="65" height="20" align=middle bgcolor="#FFFFAA"  id="num55"><%else%><td width="65" align=middle bgcolor="#E4E4E4" class=ball_td id="num55"><%end if%>特<%=ShowTable(0,50)%></td>
                                <%if showtable(1,50)<>showtable(2,50) then %><td width=60 align=middle bgcolor="#FFFFAA"><%else%><td width=60 align=middle bgcolor="#E4E4E4"><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"><a href="s_order.asp?rate_id=<%=ShowTable(4,50)%>"  target="leftFrame">
								<%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,50)
								case "b"
								response.Write ShowTable(2,50)-0.01
								case "c"
								response.Write  ShowTable(2,50)-0.02
								end select%></a></font></font></td>
                                <%if showtable(1,51)<>showtable(2,51) then %><td width="65" align=middle bgcolor="#FFFFAA"  id="num55"><%else%><td width="65" align=middle bgcolor="#E4E4E4" class=ball_td id="num55"><%end if%>特<%=ShowTable(0,51)%></td>
                                <%if showtable(1,51)<>showtable(2,51) then 
								set Rs6=conn.execute("update m_rate set rate=current_rate where item_sort='特别号' and (item_value='大' or item_value='小')")
								response.Write "<EMBED src='images/ding.wav' hidden='true' LOOP='false' AUTOSTART='true'></EMBED>"%><td width=60 align=middle bgcolor="#FFFFAA"><%else%><td width=60 align=middle bgcolor="#E4E4E4"><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"><a href="s_order.asp?rate_id=<%=ShowTable(4,51)%>"  target="leftFrame">
								<%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,51)
								case "b"
								response.Write ShowTable(2,51)-0.01
								case "c"
								response.Write  ShowTable(2,51)-0.02
								end select%></a></font></font></td>
                                <%if showtable(1,52)<>showtable(2,52) then %><td width="65" align=middle bgcolor="#FFFFAA" class=ball_td1 id="num55"><%else%><td width="65" align=middle bgcolor="#E4E4E4" class=ball_td id="num55"><%end if%>特<%=ShowTable(0,52)%></td>
                                <%if showtable(1,52)<>showtable(2,52) then %><td width=60 align=middle bgcolor="#FFFFAA"><%else%><td width=60 align=middle bgcolor="#E4E4E4"><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"><a href="s_order.asp?rate_id=<%=ShowTable(4,52)%>"  target="leftFrame">
								<%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,52)
								case "b"
								response.Write ShowTable(2,52)-0.01
								case "c"
								response.Write  ShowTable(2,52)-0.02
								end select%></a></font></font></td>
                              </tr>
                              <tr>
                                <%if showtable(1,53)<>showtable(2,53) then %><td width="65" height="20" align=middle bgcolor="#FFFFAA"  id="num55"><%else%><td width="65" align=middle bgcolor="#E4E4E4" height="20" class=ball_td id="num55"><%end if%><%=ShowTable(0,53)%></td>
                                <%if showtable(1,53)<>showtable(2,53) then 
								set Rs6=conn.execute("update m_rate set rate=current_rate where item_sort='特别号' and (item_value='合单' or item_value='合双')")
								response.Write "<EMBED src='images/ding.wav' hidden='true' LOOP='false' AUTOSTART='true'></EMBED>"%><td width=60 align=middle bgcolor="#FFFFAA"><%else%><td width=60 align=middle bgcolor="#E4E4E4"><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"><a href="s_order.asp?rate_id=<%=ShowTable(4,53)%>"  target="leftFrame">
								<%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,53)
								case "b"
								response.Write ShowTable(2,53)-0.01
								case "c"
								response.Write  ShowTable(2,53)-0.02
								end select%></a></font></font></td>
                                <%if showtable(1,54)<>showtable(2,54) then %><td width="65" align=middle bgcolor="#FFFFAA" class=ball_td1 id="num55"><%else%><td width="65" align=middle bgcolor="#E4E4E4" class=ball_td id="num55"><%end if%><%=ShowTable(0,54)%></td>
                                <%if showtable(1,54)<>showtable(2,54) then %><td width=60 align=middle bgcolor="#FFFFAA"><%else%><td width=60 align=middle bgcolor="#E4E4E4"><%end if%><font  style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"> <font   style="FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #cc0000"><a href="s_order.asp?rate_id=<%=ShowTable(4,54)%>"  target="leftFrame">
								<%
								select case UserInfo(4,0)
								case "a"
								response.Write ShowTable(2,54)
								case "b"
								response.Write ShowTable(2,54)-0.01
								case "c"
								response.Write  ShowTable(2,54)-0.02
								end select%></a></font></font></td>
                              </tr>
                            </tbody>
                        </table>
                          <p>&nbsp;</p></td>
                    </tr>
                  </tbody>
                </table>
                <%end if%>
           </td>
        </tr>
      </tbody>
    </table></TD>
  </TR></TBODY></TABLE>
  <FRAMESET border=0 
frameSpacing=0 rows=*,0,0 frameBorder=NO><FRAME name=action 
src="ac2.asp" noResize scrolling=no><FRAME name=timer 
src="timer.htm" noResize scrolling=no></FRAMESET>
</BODY></HTML>

⌨️ 快捷键说明

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