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

📄 index.asp

📁 8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见: 猛虎山庄、燕衔泥(飞扬的软件第二版用的就是他
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="conn.asp"-->
<%
  dim rs
  set rs = server.createobject("adodb.recordset")
%>
<HTML><HEAD><TITLE>时尚软件园-[www.365do.net]</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="images/style.css">
</HEAD>
<!--#include file="topMain.asp"-->
<table width="752" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#995f14" >
  <tr> 
    <td width="24%" valign="top" bgcolor="#FFD112" > 
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#995f14">
        <tr> 
          <td bgcolor="#AA7523" height="9" colspan="2"> 
            <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#995f14" height="40">
              <form method="post" name="myform" action="search.asp">
                <tr> 
                  <td bgcolor="#FFD112" valign="middle" align="center"> 搜索: 
                    <input type="text" name="keyword" class=textfield size=10  maxlength="50"  style="font-family: Arial">
                    <input type="submit" name="Submit22" value="搜索" style="height='21'" class="botton">
                  </td>
                </tr>
              </form>
            </table>
          </td>
        </tr>
        <tr> 
          <td bgcolor="#AA7523" height="20" colspan="2"> 
            <div align="center"><font color="#FFFFFF">站 内 公 告</font></div>
          </td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#FFD112" colspan="2"> 
            <table border=0 cellpadding=0 width="100%" cellspacing="0">
              <%
	sql="select top 3 "
	sql=sql&"news.id,news.newsname,news.addtime,news.newsnote "
	sql=sql&" from news  "
	sql=sql&" order by news.id desc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
              没有任何公告 
              <%else%>
              <%do while not rs.eof%>
              <tr> <td height="20" bgcolor="#FFD112" width="4%"></td>
                <td valign="top" width="96%"><img src="images/dot.gif" width="11" height="13"><%=rs("newsnote")%> 
                  <%if rs("addtime")>=date() then%>
                  <font color="#ff0000">[<%=rs("addtime")%>]</font> 
                  <%else%>
                  [<%=rs("addtime")%>] 
                  <%end if%>
                  <%
	rs.movenext
	loop
	end if
	rs.close
%>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#AA7523" colspan="2"> 
            <div align="center"><img src="images/shareforum.gif" width="16" height="16"><font color="#FFFFFF">特色论坛登陆口</font></div>
          </td>
        </tr>
        <tr> 
          <td height="10" valign="top" bgcolor="#FFD112" colspan="2"><br>
            <table width="90%" border="0" cellspacing="0" cellpadding="3" align="center">
              <form name=login action=http://www.365do.net/lb5000/cgi-bin/loginout.cgi method=post>
                <input type=hidden name="action" value="login">
                <tr> 
                  <td>用户名:</td>
                  <td> 
                    <input type=text name="inmembername" size=14 maxlength=16 class="textfield">
                  </td>
                </tr>
                <tr> 
                  <td>密 码:</td>
                  <td> 
                    <input type=password name="inpassword" size=14 maxlength=20 class="textfield">
                  </td>
                </tr>
                <tr> 
                  <td colspan="2"> 
                    <div align="center"> 
                      <input type="image" border="0" name="submit" src="images/b03.gif" width="40" height="19">
                      <a href="http://www.365do.net/lb5000/cgi-bin/register.cgi" target="_blank"> 
                      <img src="images/b02.gif" width="40" height="19" border="0"></a>&nbsp;<a href="http://www.365do.net/lb5000/cgi-bin/leoboard.cgi" target="_blank"><img src="images/b01.gif" width="40" height="19" border="0"></a></div>
                  </td>
                </tr>
              </form>
            </table>
            <div align="center"><a href="mailto:layty@163.com" target="_blank"><img src="images/ad2.jpg" width="120" height="60" border="0"></a> 
            </div>
            <br>
          </td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#AA7523" colspan="2"> 
            <div align="center"><font color="#FFFFFF">累计下载TOP10</font></div>
          </td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#FFD112" width="4%"></td>
          <td height="20" bgcolor="#FFD112" width="96%"> 
            <%                   
	sql="select top 10 id,showname,bb from download "                   
	sql=sql&" order by hits desc"                   
	rs.open sql,conn,1,1                   
	if rs.eof and rs.bof then
response.write ("没有下载")
else
do while not rs.eof
response.write ("<li><A href=list.asp?id="&rs("id")&">"&rs("showname")&" "&rs("bb")&"</A></li>")
	rs.movenext                                     
	loop                                     
	end if                                     
	rs.close                                     
%>
          </td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#AA7523" colspan="2"> 
            <div align="center"><font color="#FFFFFF">线 上 调 查</font></div>
          </td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#FFD112" colspan="2"> 
            <div align="center"><iframe valign="top"  frameborder='0' width='100%' height='230' leftmargin='0' scrolling='no' src='./vote/vote/ipage.asp?voteID=202' topmargin='0'></iframe><br>
              <img src="images/logo8.gif" width="88" height="31" border="0"> </div>
          </td>
        </tr>
      </table>
    </td>
    <td width="76%" bgcolor="#FFFFFF" valign="top" rowspan="2" ><br>
      <table width="560" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td background="images/bj4.gif" height="1"> <img src="images/spacer.gif" width="1" height="1"></td>
        </tr>
        <tr> 
          <td background="images/bg5.gif"> 
            <table width="560" border="0" cellspacing="0" cellpadding="0" height="27">
              <form method="post" action="Chkadmin1.asp">
                <tr> 
                  <td> 
                    <div align="center"> 
                      <%
if session("user")<>"" then%>
                      <%sql="select * from user where user='"&session("user")&"'"
        rs.open sql,conn,3,3
        %>
                      <script language="JavaScript">
<!--
var enabled = 0; today = new Date();
var day; var date;
if(today.getDay()==0) day = "星期日"
if(today.getDay()==1) day = "星期一"
if(today.getDay()==2) day = "星期二"
if(today.getDay()==3) day = "星期三"
if(today.getDay()==4) day = "星期四"
if(today.getDay()==5) day = "星期五"
if(today.getDay()==6) day = "星期六"
date = "" + (today.getYear()) + "年" + (today.getMonth() + 1 ) + "月" + today.getDate() + "日  " + day +"";
document.write("" + date + "");
-->
                    </script>
                      &nbsp;&nbsp;&nbsp;欢迎&nbsp;<font color="#DC1515"><%=rs("user")%></font>&nbsp;进入时尚软件园,您现在可以完全浏览本站所有内容! 
                      <%rs.close%>
                      <%else%>
                      <font color="#FF0000"> </font><img src="images/home1.gif" width="19" height="16"><img src="images/home2.gif" width="49" height="13">: 
                      <input type="text" name="user" size="12" class="textfield" style="font-family: Arial">
                      <img src="images/mm.gif" width="25" height="13">: 
                      <input type="password" name="password" size="12" class="textfield" style="font-family: Arial">
                      <input type="submit" value="确定" name="B3" class="botton">
                      <%end if%>
                    </div>
                  </td>
                </tr>
              </form>
            </table>
          </td>
        </tr>
        <tr> 
          <td background="images/bj4.gif" height="1"> <img src="images/spacer.gif" width="1" height="1"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center">
        <tr> 
          <td width="62%" height="1" > 
            <table width="100%" border="0" cellpadding="0" cellspacing="0" height="1" background="images/bj4.gif">
              <tr> 
                <td><img src="images/spacer.gif" width="1" height="1"></td>
              </tr>
            </table>
          </td>
          <td width="8%" height="46" rowspan="2" valign="top"> 
            <div align="right"><img src="images/s2.gif" width="23" height="152"></div>
          </td>
          <td width="30%" height="46" rowspan="2" valign="top"> 
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr> 
                <td></td>
              </tr>
              <tr> 
                <td> 
                  <table border="0" width="100%" cellspacing="0" cellpadding="0" height="42">
                    <tr> 
                      <td width="100%" bgcolor="#FFFFFF" valign="top"> 
                        <table border="0" width="100%" cellpadding="0" cellspacing="1">
                          <%    
	sql="select top 3 "    
	sql=sql&"download.id,download.showname,bb,download.dateandtime,download.images,download.hits,download.classid,download.Nclassid,Nclass.Nclass "    
	sql=sql&" from download,Nclass where download.stop=1 and download.Nclassid=Nclass.Nclassid "    
	sql=sql&" order by download.dateandtime desc"    
	rs.open sql,conn,1,1    
	if rs.eof and rs.bof then    
%>
                          <tr> 
                            <td>没有任何软件</td>
                          </tr>
                          <%else%>
                          <%do while not rs.eof%>
                          <tr> 
                            <td width="100%" > 
                              <div align="center"><a href="list.asp?id=<%=rs("id")%>"> 
                                <%
if not isnull(rs("images")) and rs("images")<> "" then
			response.write "<img src=" + rs("images") + " border=0  width=120 height=80>"
		end if
%>
                                </a> </div>
                            </td>
                          </tr>
                          <tr> 
                            <td width="100%" onMouseOver="this.bgColor='#F8F8F8';" onMouseOut="this.bgColor='#ffffff';" height="5"> 
                              <div align="center"><a href="list.asp?id=<%=rs("id")%>"><%=rs("showname")%><%=rs("bb")%></a></div>
                            </td>
                          </tr>
                          <tr> 
                            <td width="100%" height="10">&nbsp;</td>
                            <%      
	rs.movenext          
	loop                     
	end if                    
	rs.close                     
%>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <div align="center"> <a href="mailto:layty@163.com" target="_blank"><img src="images/baoyue.gif" width="120" height="60" border="0"></a></div>
          </td>
        </tr>
        <tr> 
          <td width="62%" height="22"  valign="top"> 
            <table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#ECECDB">
              <tr> 
                <td height="20" width="140"  valign="top"> 
                  <p><img src="images/news.gif" width="104" height="16"> 
                </td>
                <td height="20" width="202"><font     
            color=#ff0000>新进软件</font> </td>
              </tr>
              <tr> 
                <td colspan="2"></td>
              </tr>
              <tr> 
                <td bgcolor="#999999" colspan="2"> 
                  <table border="0" width="100%" cellspacing="1" cellpadding="0">
                    <tr> 

⌨️ 快捷键说明

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