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

📄 past.asp

📁 一个足球彩票程序,不是原创.是朋友偷来的!
💻 ASP
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>博傲工作室</title>
</head>

<body bgcolor="#003366">

<table border="0" width="906" cellspacing="0" height="45">
  <tr>
    <td width="122" height="20"></td>
    <td width="661" height="20" colspan="8"><img border="0" src="main.files/made.jpg" width="200" height="18"></td>
    <td width="110" height="20"></td>
  </tr>
  <tr>
    <td width="122" height="86"></td>
    <td width="661" height="86" colspan="8" background="main.files/bei.gif">
      <p align="center" style="border-bottom-style: double; border-bottom-color: #003366"><img border="0" src="main.files/title.jpg" width="698" height="80"></p>
    </td>
    <td width="110" height="86"></td>
  </tr>
  <tr>
    <td width="122" height="22" align="center"></td>
    <td width="82" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="22">
      <p align="center"><a href="default.asp">
      <img border="0" src="main.files/button1.jpg">
      </a></p>
    </td>
    <td width="74" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="22">
      <a href="vip.asp">
      <img border="0" src="main.files/button2.jpg">
      </a>
    </td>
    <td width="85" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="22">
      <a target="_blank" href="http://www.gola123.com/soccer/html/odds/ch-winodds.html"><img border="0" src="main.files/button3.jpg" width="70" height="18"></a>
    </td>
    <td width="81" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="22">
      <a target="_blank" href="http://www.gooooal.com/www/live.htm"><img border="0" src="main.files/button4.jpg" width="70" height="18"></a>
    </td>
    <td width="80" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="22">
      <a href="past.asp">
      <img border="0" src="main.files/button5.jpg">
      </a>
    </td>
    <td width="78" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="22"> 
      <a href="http://www.gooooal.com/www/next.htm" target="_blank"><img border="0" src="main.files/button6.jpg" width="70" height="18"></a> 
    </td>
    <td width="80" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="22">
      <a href="join.asp">
      <img border="0" src="main.files/button7.jpg">
      </a>
    </td>
    <td width="74" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="22">
      <a href="mailto:jack@boaostudio.com">
      <img border="0" src="main.files/button8.jpg">
      </a>
    </td>
    <td width="110" height="22" align="center"></td>
  </tr>
  <tr>
    <td width="122" height="18" align="center"></td>
    <td width="691" height="18" align="center" colspan="8"><font size="3" color="#FFFFFF">&nbsp;</font><font size="2" color="#99CCFF">
      <p align="center"><%response.write Date & "  " & Time%></font></td>
    <td width="110" height="18" align="center"></td>
  </tr>
  
  <tr>
    <td width="122" height="45" align="center"></td>
    <td width="663" height="45" align="center" colspan="8">
    
    
    
    
    <form method="POST" action="past.asp">
      
      <p><select size="1" name="D1">
        <option>2002</option>
        <option selected>2003</option>
        <option>2004</option>
        <option>2005</option>
      </select> <font size="2" color="#99CCFF">年 </font><select size="1" name="D2">                         
        <option selected>1</option>
        <option>2</option>
        <option>3</option>
        <option>4</option>
        <option>5</option>
        <option>6</option>
        <option>7</option>
        <option>8</option>
        <option>9</option>
        <option>10</option>
        <option>11</option>
        <option>12</option>
      </select> <font size="2" color="#99CCFF">月&nbsp; </font><input type="submit" value="搜 索" name="B1"></p>              
       
    </form>
    
    <td width="110" height="45" align="center"></td>
  <tr>
    <td width="122" height="18" align="center" rowspan="2"></td>
    <td width="663" height="9" align="center" colspan="8">
    <table border="1" width="105%" bordercolor="#20569F">
      <tr>
        <td width="14%" align="center"><font color="#99CCFF" size="2"><b>&nbsp;时间</b></font></td>
        <td width="14%" align="center"><font color="#99CCFF" size="2"><b>主队</b></font></td>
        <td width="14%" align="center"><font color="#99CCFF" size="2"><b>让球</b></font></td>
        <td width="14%" align="center"><font color="#99CCFF" size="2"><b>客队</b></font></td>
        <td width="14%" align="center"><font color="#99CCFF" size="2"><b>推荐</b></font></td>
        <td width="15%" align="center"><font color="#99CCFF" size="2"><b>结果</b></font></td>
        <td width="15%" align="center"><font color="#99CCFF" size="2"><b>成绩</b></font></td>
      </tr>
      
      <%
          demo=request("D1")
          demo_str=demo & "x"
          if demo_str="x" then
               demo_str="select * from past where begindate>=#2003-1-1# and begindate<=#2003-1-31#"
          else
               y=request("D1")
               m=request("D2")
               select case m
               	  case "1"
               	  	d="31"
               	  case "2"
               	    d="28"
               	  case "3"
               	    d="31"
               	  case "4"
               	    d="30"
               	  case "5"
               	    d="31"
               	  case "6"
               	    d="30"
               	  case "7"
               	    d="31"
               	  case "8"
               	    d="31"
               	  case "9"
               	    d="30"
               	  case "10"
               	    d="31"
               	  case "11"
               	    d="30"
               	  case "12"
               	    d="31"	  
               end select
               d_begin=y & "-" & m & "-1"
               d_end=y & "-" & m & "-" & d
               demo_str="select * from past where begindate>=#" & d_begin & "# and begindate<=#" & d_end & "#"
          end if 
   
          	set newconn=server.createobject("adodb.connection")
          	DBpath=server.mappath("football.mdb")
          	newconn.open"driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpath
          	newcmd=demo_str
          	set newrst=newconn.execute(newcmd)
         %>
         
      <%do while not newrst.eof%>
      <tr>
        <%for i=1 to newrst.fields.count-2%>
             <td width="14%" align="center"><font color="#99CCFF" size="2"><%=newrst(i)%></font> </td>
        <%next%> 
        <%if trim(newrst(newrst.fields.count-1))="胜" then%>
             <td width="14%" align="center"><font color="#FF0000" size="2"><%=newrst(newrst.fields.count-1)%></font> </td>
        <%end if%>
        <%if trim(newrst(newrst.fields.count-1))="负" then%>
             <td width="14%" align="center"><font color="#00CC00" size="2"><%=newrst(newrst.fields.count-1)%></font> </td>
        <%end if%>
        <%if trim(newrst(newrst.fields.count-1))="走" then%>
             <td width="14%" align="center"><font color="#99CCFF" size="2"><%=newrst(newrst.fields.count-1)%></font> </td>
        <%end if%>
        <%if trim(newrst(newrst.fields.count-1))="平" then%>
             <td width="14%" align="center"><font color="#99CCFF" size="2"><%=newrst(newrst.fields.count-1)%></font> </td>
        <%end if%>

      </tr>
      <%newrst.movenext%>
      <%loop%>
      <%newrst.close%>
    </table>
    </td>
    <td width="110" height="18" align="center" rowspan="2"></td>
  </tr>
  <tr>
    <td width="663" height="7" align="center" colspan="8">
    </td>
  </tr>
  <tr>
    <td width="122" height="18" align="center"></td>
    <td width="345" height="5" align="center" colspan="4" background="main.files/bei.gif">
     
    </td>
    <td width="338" height="5" align="center" colspan="4" background="main.files/bei.gif">
     
    </td>
    <td width="110" height="18" align="center"></td>
  </tr>
  <tr>
    <td width="122" height="76" align="center" rowspan="4"></td>
    <td width="174" height="6" align="center" colspan="2" rowspan="4">
    </td>
    <td width="88" height="10" align="center">
    </td>
    <td width="165" height="10" align="center" colspan="2">
    </td>
    <td width="78" height="10" align="center">
    </td>
    <td width="175" height="6" align="center" colspan="2" rowspan="4">
    </td>
    <td width="110" height="76" align="center" rowspan="4"></td>
  </tr>
  <tr>
    <td width="88" height="6" align="center">
    </td>
    <td width="165" height="6" align="center" colspan="2">
    <font size="2" color="#99CCFF">博傲工作室&nbsp; 版权所有</font>                   
    </td>
    <td width="78" height="6" align="center">
    </td>
  </tr>
  <tr>
    <td width="331" height="18" align="center" colspan="4">
    <span lang="EN-US"><font size="2" color="#99CCFF">E-mail: </font><a href="mailto:jack@boaostudio.com"><font size="2" color="#99CCFF">jack@boaostudio.com</font></a></span>
    </td>
  </tr>
  <tr>
    <td width="331" height="18" align="center" colspan="4">
    </td>
  </tr>
</table>

<p> </p>

</body>

</html>

⌨️ 快捷键说明

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