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

📄 tmpt4xf4bd17p.asp

📁 8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见: 猛虎山庄、燕衔泥(飞扬的软件第二版用的就是他
💻 ASP
字号:
<%ttime=timer()%>
<!--#include file="dbpath.asp"-->
<HTML><HEAD>
<TITLE>战旗下载</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style>
td{font-size:9pt;line-height:130%} 
body{font-size:9pt;line-height:13pt} 

A:link    {color: #004080; text-decoration:  none} 
A:visited {color: #004080; text-decoration: none} 
A:active  {color: FF0000; text-decoration: none} 
A:hover   {color: FF0000; text-decoration: underline}
</style>
</HEAD>

<body bgcolor="#B08460" topmargin="2">
<div align="center">
  <center>
    <table border="0" width="650" cellspacing="1" cellpadding="0">
      <tr>
      <td width="100%" >
<table border="0" width="100%" cellspacing="0" cellpadding="2">
  <tr>
    <td width="180">
      <p align="center"><a href="."><img border="0" src="title.gif" width="160" height="60" alt="DownASP.com"></a></p>
    </td>
    <td width="470">
      <p align="center"><script language="javaScript" type="text/javascript" SRC="http://www.cput.com/ads.js"></SCRIPT></p>
    </td>
  </tr>
</table>
</td>
    </tr>
    <tr>
        <td width="100%">&nbsp; <img border="0" src="homepage.gif"><a href=".">本站</a><a href=".">首页</a>&nbsp;&nbsp;  
          <a href="list.asp">程序列表</a>&nbsp;&nbsp; <a target="_blank" href="http://www.tajh.net">飞扬的</a><a target="_blank" href="http://www.tajh.net">主页</a>&nbsp;&nbsp;  
          <a target="_blank" href="http://bbs.99soft.com">软件下载</a>&nbsp; <a href="http://11.136.26.8/fly-flash/index.asp">flash欣赏</a>&nbsp;  
          <a href="http://www.cput.com/other/gbook/index.asp?user=webgg" target="_blank">留言本</a></td>          
    </tr> 
  </table> 
  </center> 
</div> 
<table border="0" width="100%" cellspacing="0" cellpadding="0"> 
  <tr> 
    <td width="100%"></td> 
  </tr> 
</table> 
<div align="center"> 
  <center> 
  <table border="0" width="763" cellspacing="1" cellpadding="5"> 
    <tr> 
      <td width="150" valign="top">  
        <table width="100%" border="1" cellpadding="1" cellspacing="3" bordercolorlight="#D8DFE7" >
          <tr> 
            <td width="100%" height="19" bgcolor="#333300"> <p align="left"><strong><font color="#339966"><img src="angle.gif" width="35" height="15"><font color="#999999">站内公告</font></font></strong></td> 
          </tr> 
          <tr> 
            <td width="100%"><font color="#50442800"><strong>2002-04-05 网站今天正式开通,程序不多,可能会有些错误,请大家以后多多支持哦!</strong></font></td>                   
          </tr>  
          <tr>  
            <td width="100%">  
              <table>
                <tr>  
                  <td width="100%" bgcolor="#333300"><img src="angle.gif" width="35" height="15"><font color="#999999"><strong>重要说明:</strong></font></td>  
                </tr>  
                <tr>  
                  <td width="100%"><font color="#902C200880"><strong>8-23点之间在本站下载程序请不要超过10线程,否则永久查封所在IP段!</strong></font></td> 
                </tr> 
              </table> 
            </td> 
          </tr> 
          <tr> 
            <td width="100%"> 
<table>
                <tr> 
                  <td width="100%" bgcolor="#333300"><img src="angle.gif" width="35" height="15"><font color="#999999"><strong>郑重声明:</strong></font></td> 
  </tr> 
  <tr> 
                  <td width="100%">本站提供的程序为个人搜集,如若转载请注明来自本站;请勿在担任战备的计算机上下载本站程序,请勿在正课时间玩游戏,希望您能合理分配工作休息的时间;本站不保证软件的完整性和是否隐含病毒,请自行调试及杀毒,如不同意本条款请勿下载,谢谢合作!</td> 
  </tr> 
</table> 
</td> 
          </tr> 
        </table> 
      </td> 
      <td width="487" valign="top">  
        <table border="0" width="100%" cellpadding="0"> 
          <tr> 
            <td width="100%"> 
              <table border="0" width="100%" cellspacing="0" cellpadding="0"> 
                <tr> 
                  <td width="50%"> 
              <table border="1" width="100" cellspacing="1" cellpadding="0" bordercolorlight="#CAD5DF" > 
                <tr> 
                  <td width="100%"> 
                    <p align="center"><a href="list.asp">本站程序更新</a></td> 
                </tr> 
              </table> 
</td> 
<%Set rs= Server.CreateObject("ADODB.Recordset")      
sql="select * from down order by id desc" 
rs.open sql,conn,1,1                      
%> 
  </center> 
                  <td width="50%"> 
                    <p align="right">更新日期:<% 
                  if not rs.eof then 
                  response.write""&year(rs("date"))&"年"&month(rs("date"))&"月"&day(rs("date"))&"日" 
                  end if%></p> 
                </td> 
                </tr> 
              </table> 
            </td> 
          </tr> 
  <center> 
          <tr> 
            <td width="100%"> 
              <table border="0" width="100%"  cellspacing="1"> 
                <tr> 
                  <td width="100%">  
                    <table border="0" width="100%" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed"> 
<% 
if not rs.eof then 
do while not rs.eof%>               
                      <tr> 
                        <td width="100%" nowrap>·<a href="list.asp?type=<%=rs("type")%>"><%=rs("type")%></a>   
                          -&nbsp;<a href="show.asp?id=<%=rs("id")%>"><font color="#008000"><%=rs("name")%></font></a> (<%=rs("date")%>)</td>                                 
                      </tr>  
<%                  
i=i+1                                       
if i>=12 then exit do                                       
rs.movenext                                       
loop                          
i=0                 
end if  
rs.close%>  
                    </table>  
                  </td>  
                </tr>  
              </table>  
            </td>  
          </tr>  
          <tr>  
            <td width="100%" height="5"></td>  
          </tr>  
          <tr>  
            <td width="100%">  
              <table border="1" width="100" cellspacing="1" cellpadding="0" bordercolorlight="#CAD5DF" >  
                <tr>  
                  <td width="100%">  
                    <p align="center">本 站 程 序</td>         
                </tr>  
              </table>  
            </td>  
          </tr>  
          <tr>  
            <td width="100%">  
<table border="0" width="100%" cellspacing="1" cellpadding="0"> 
                <tr>  
    <td width="100%" >  
      <table border="0" width="100%" cellspacing="1" cellpadding="0">  
<%  
sql="select * from down where type='本站程序' order by id desc"  
rs.open sql,conn,1,1  
if not rs.eof then  
do while not rs.eof%>   
                      <tr>  
                        <td width="100%" nowrap>·<a href="show.asp?id=<%=rs("id")%>"><font color="#008000"><%=rs("name")%></font></a> (<%=rs("date")%>)</td>                                
                      </tr>  
<%                  
i=i+1                                       
if i>=5 then exit do                                       
rs.movenext                                       
loop                          
i=0                 
end if  
rs.close%>  
      </table>  
    </td>  
  </tr>  
</table>  
            </td>  
          </tr>  
          <tr>  
            <td width="100%" height="5"></td>  
          </tr>  
          <tr>  
            <td width="100%">  
              <table border="1" width="100" cellspacing="1" cellpadding="0" bordercolorlight="#CAD5DF" >  
                <tr>  
                  <td width="100%">  
                    <p align="center">下载排行榜</td>  
                </tr>  
              </table>  
            </td>  
          </tr>  
          <tr>  
            <td width="100%">  
              <table border="0" width="100%" cellspacing="1" cellpadding="1"> 
                <tr>  
                  <td width="100%">  
                    <table border="0" width="100%" cellspacing="0" cellpadding="0" style="TABLE-LAYOUT: fixed">  
<%  
sql="select * from down order by hits desc"  
rs.open sql,conn,1,1  
if not rs.eof then  
do while not rs.eof  
i=i+1  
if len(i)=1 then  
i=0&i  
end if  
%>                
                      <tr>  
                        <td width="100%" nowrap><%=i%>.<a href="show.asp?id=<%=rs("id")%>"><font color="#008000"><%=rs("name")%></font></a> (<%=rs("hits")%>)</td>                               
                      </tr>  
<%                  
if i>=10 then exit do                                       
rs.movenext                                       
loop                          
i=0                 
end if  
rs.close%>  
                    </table>  
                  </td>  
                </tr>  
              </table>  
            </td>  
          </tr>  
          <tr>  
            <td width="100%" height="5"></td>  
          </tr>  
          <tr>  
            <td width="100%">  
              <table border="1" width="100" cellspacing="1" cellpadding="0" bordercolorlight="#CAD5DF">  
                <tr>  
                  <td width="100%">  
                    <p align="center">本站程序分类</td> 
                </tr> 
              </table> 
            </td> 
          </tr> 
          <tr> 
            <td width="100%"> 
              <table border="0" width="100%" cellspacing="1" cellpadding="0"> 
                <tr> 
                  <td width="100%" > 
                    <table border="0" width="100%" cellpadding="0" cellspacing="1"> 
                      <tr> 
<%                 
sql="select * from type" 
rs.open sql,conn,1,1                      
if not rs.eof then 
do while not rs.eof 
if i=6 then 
i=0 
%> 
</tr><tr> 
<%end if%> 
                        <td width="16%"><p align="center"><a href="list.asp?type=<%=rs("type")%>"><%=rs("type")%></a></td> 
<% 
i=i+1 
rs.movenext 
loop                      
end if 
rs.close%> 
                      </tr> 
                    </table> 
                  </td> 
                </tr> 
              </table> 
            </td> 
          </tr> 
        </table> 
      </center> 
        </td> 
      <td width="126" valign="top">  
        <table border="1" width="100%" bordercolorlight="#D8DFE7" cellspacing="0" > 
          <!--DWLayoutTable--> 
          <tr>  
            <td width="100%" height="19" align="center" bgcolor="#333300"> <p align="left"><font color="#999999"><img src="angle.gif" width="35" height="15"><strong>程序查找</strong></font></td>
          </tr>
          <tr> 
            <form method="POST" action="list.asp">
              <td height="46" align="center"><select size="1" name="type">
                  <option selected value="搜索结果">不指定查找类别</option>
                  <%             
sql="select * from type"
rs.open sql,conn,1,1                     
if not rs.eof then                     
do while not rs.eof
%>
                  <option value="<%=rs("type")%>"><%=rs("type")%></option>
                  <%rs.movenext                     
loop                     
end if
rs.close%>
                </select> <br> <input name="k" size="9"> <input type="submit" value="搜索"></td>
            </form>
          </tr>
          <tr> 
            <td height="120" align="center"><script src="count/mystat.asp?style=counter"></script></td>
          </tr>
          <tr> 
            <td height="64"></td>
          </tr>
          <tr> 
            <td height="5"><img src="spacer.gif" alt="" width="-2" height="1"></td>
          </tr>
        </table>
         
      </td>
    </tr>
  </table>
</div>
<div align="center"> </div>
<div align="center">
  <center>
  </center> 
</div> 
<table width="762" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr> 
    <td width="762" height="57" valign="top">
<div align="center"><font color="#FFFFFF">页面执行时间:<%=FormatNumber((timer()-ttime)*1000,3)%>毫秒 </font></div>
<div align="center"><font color="#FFFFFF">All CopyRight 云飞扬 2002-2099 
  TEL:0201-917066<br>
  为了获得最佳的浏览效果,建议使用IE6.0版本的浏览器浏览本站</font></div></td>
  </tr>
</table>
</html> 
<% 
set rs=nothing 
conn.close 
set conn=nothing 
%>

⌨️ 快捷键说明

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