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

📄 index.asp

📁 8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他
💻 ASP
字号:
🔍 
<%ttime=timer()%>
<!--#include file="dbpath.asp"-->
<HTML><HEAD>
<TITLE>ASP下载特区_DownASP.com</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="#E6EBF0" topmargin="2">

<div align="center">
  <center>
  <table border="0" width="650" cellspacing="1" cellpadding="0" bgcolor="#000000">
    <tr>
      <td width="100%" bgcolor="#FFFFFF">
<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%" bgcolor="#FFFFFF">&nbsp; <img border="0" src="homepage.gif"><a href="./">DownASP首页</a>&nbsp;&nbsp;              
        <a href="list.asp">ASP源代码下载</a>&nbsp;&nbsp;
      <a target="_blank" href="http://www.tajh.net">程序定制</a>&nbsp;&nbsp;
      <a target="_blank" href="http://bbs.99soft.com">论坛</a>&nbsp;&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="650" cellspacing="1" cellpadding="5" bgcolor="#000000">
    <tr>
      <td width="150" bgcolor="#FFFFFF" valign="top">
        <table border="1" width="100%" cellspacing="0" bordercolorlight="#D8DFE7" bordercolordark="#FFFFFF">
          <tr>
            <td width="100%" bgcolor="#CAD5DF">
              <p align="center">站内公告</td>
          </tr>
          <tr>
            <td width="100%">2002-04-05 网站今天正式开通,程序不多,可能会有些错误,请大家以后多多支持哦!</td>                 
          </tr>
          <tr>
            <td width="100%">
              <table>
                <tr>
                  <td bgColor="#f4f4f4" width="100%">重要说明：</td>
                </tr>
                <tr>
                  <td bgColor="#ffffff" width="100%"><font color="#FF0000">本站下载所有的文件都要使用<a target="_blank" href="http://www.99soft.com/search.asp?k=winrar">最新版的WinRAR        
                    3.0</a>才能正常解压!</font></td>
                </tr>
              </table>
            </td>
          </tr>
          <tr>
            <td width="100%">
<table>
  <tr>
    <td bgColor="#f4f4f4" width="100%">郑重声明：</td>
  </tr>
  <tr>
    <td bgColor="#ffffff" width="100%">本站提供的软件收集于其他网站,版权归作者所有,任何软件不得用于商业用途请下载后在24小时内删除,本站不保证软件的完整性和是否隐含病毒,请自行调试及杀毒,如不同意本条款请勿下载,谢谢合作！</td>
  </tr>
</table>
</td>
          </tr>
        </table>
      </td>
      <td width="380" bgcolor="#FFFFFF" 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" bordercolordark="#FFFFFF">
                <tr>
                  <td width="100%">
                    <p align="center"><a href="list.asp">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%" bgcolor="#000000" cellspacing="1">
                <tr>
                  <td width="100%" bgcolor="#FFFFFF">
                    <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" bordercolordark="#FFFFFF">
                <tr>
                  <td width="100%">
                    <p align="center">本 站 程 序</td>       
                </tr>
              </table>
            </td>
          </tr>
          <tr>
            <td width="100%">
<table border="0" width="100%" bgcolor="#000000" cellspacing="1" cellpadding="0">
  <tr>
    <td width="100%" bgcolor="#FFFFFF">
      <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" bordercolordark="#FFFFFF">
                <tr>
                  <td width="100%">
                    <p align="center">ASP下载排行榜</td>
                </tr>
              </table>
            </td>
          </tr>
          <tr>
            <td width="100%">
              <table border="0" width="100%" bgcolor="#000000" cellspacing="1" cellpadding="1">
                <tr>
                  <td width="100%" bgcolor="#FFFFFF">
                    <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" bordercolordark="#FFFFFF">
                <tr>
                  <td width="100%">
                    <p align="center">ASP源代码分类</td>
                </tr>
              </table>
            </td>
          </tr>
          <tr>
            <td width="100%">
              <table border="0" width="100%" bgcolor="#000000" cellspacing="1" cellpadding="0">
                <tr>
                  <td width="100%" bgcolor="#FFFFFF">
                    <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="120" bgcolor="#FFFFFF" valign="top">
        <table border="1" width="100%" bordercolorlight="#D8DFE7" cellspacing="0" bordercolordark="#FFFFFF">
          <tr>
            <td width="100%" bgcolor="#CAD5DF" align="center">
              <p>ASP源码查找</td>
          </tr>
          <tr>
           <form method="POST" action="list.asp">
            <td width="100%" 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 width="100%" height="120" align="center"><script src="count/mystat.asp?style=counter"></script></td>
          </tr>
          <tr>
            <td width="100%" align="center">
              <table border="0" width="100%" cellspacing="0">
                <tr>
                  <td width="100%" bgcolor="#F4F4F4">
                    <p align="center">收费定制修改ASP程序</td>
                </tr>
                <tr>
                  <td width="100%"><b>惊云</b><br>
              联系OICQ：<font color="#ff0000">67342170<b><br>
              </b></font>联系邮箱：<br>
              <a href="mailto:www@cput.com">www@cput.com</a><br>
              <a href="mailto:webgg@163.net">webgg@163.net</a></td>
                </tr>
                <tr>
                  <td width="100%">
                    <p align="right">
                    <a target="_blank" href="http://www.tajh.net">详细请看&gt;&gt;</a></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        　
      </td>
    </tr>
  </table>
</div>
<div align="center">
  <table border="0" width="650" cellspacing="0" cellpadding="0">
    <tr>
      <td width="650" colspan="2"></td>
    </tr>
    <tr>
      <td width="550" bgcolor="#000000">
        <p>　</td>
      <td width="100" bgcolor="#000000"><a href="#top" target="_self"><img border="0" src="backtop.gif"></a></td>
    </tr>
    <tr>
      <td width="650" colspan="2">
      </td>
    </tr>
  </table>
</div>
<div align="center">
  <center>
  <table border="0" width="650" cellspacing="1" cellpadding="2" bgcolor="#000000">
    <tr>
      <td width="100%" bgcolor="#FFFFFF">
        <p align="center">页面执行时间:<%=FormatNumber((timer()-ttime)*1000,3)%>毫秒 
      <a target="_blank" href="http://www.tajh.net">下载本程序</a></p>
      </td>
    </tr>
  </table>
  </center>
</div>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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