index.asp

电子书下载系统 后台管理：admin/index.asp 超级用户：admin 密码：admin 请在db/usre.asp,admin/usres更新数据库地址,防止他人下载。 建议把.

    </td>
    <td width="2" bgcolor="#FFFFFF"></td>
    <td valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="25">
        <tr> 
          <td width="29%" bgcolor="#999999"> <b>&nbsp;&nbsp; </b>精品推荐</td>
          <td width="12%">&nbsp;</td>
          <td width="39%" bgcolor="#CCCCCC"> 
            <div align="center">今日更新<font 
            color=#000000>：<font color=red> <strong> 
              <% 
shu=0
sql="select count(*) from download where year(time)&month(time)&day(time)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%>
              <%=shu%></strong></font> 本</font>电子书 </div>
          </td>
          <td width="20%"> 
            <div align="center"><a href="du88.htm" title=支持我们帮忙动动鼠标，我们一定会有更多的电子书献给您 target="_blank"><font color="#FF0000">想读更多电子书</font></a></div>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr> 
          <td width="64%" bgcolor="#F6F6F6"> 
            <%
n=1
if n<> "" then
oic=pic & "<p align=center><img src=images/NoPic.jpg width=120 height=95   border=0></p>"
sql="select * from download where hot=1 order by time desc"
set rs1=conn.execute(sql)%>
            <% 
do while not rs1.eof 
%>
            <table width="100%" border="0" cellpadding="0" cellspacing="9">
              <tr> 
                <td width="13%"> 
                  <%if rs1("pic")<>"" then%>
                  <img src=<%=rs1("pic")%> width="130" height="95" border="0"> 
                  <%end if%>
                </td>
                <td width="87%" valign="top"> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td>软件名称：<a href='./show.asp?id=<%=rs1("id")%>' target=_blank></a><b><a href='./show.asp?id=<%=rs1("id")%>' target=_blank><%=rs1("name")%></a></b></td>
                    </tr>
                  </table>
                  更新时间:<%=rs1("time")%> <br>
                  软件评价:<img src='./images/<%=rs1("commend")%>' width=55 height=12> 
                  <br>
                  <%=left(rs1("show"),180)%> <br>
                  <b><img src="images/arrow.gif" width="11" height="14" align="absmiddle"> 
                  以往精品：</b><a href="show.asp?id=507" target="_blank">泡妞秘籍</a> 
                  <a href="show.asp?id=450" target="_blank">《商场三十六计》</a> <a href="show.asp?id=502" target="_blank">管理1000招</a></td>
              </tr>
            </table>
            <%n=n-1
if n<1 then exit do
rs1.movenext 
loop
%>
            <%end if%>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#D8D8D8">
              <tr> 
                <td height="23"> 
                  <div align="center"> <a href="http://www.gy16.com/gy/po.htm" target="_blank"><font color="#FF0000">做个让女人性福的男人（少儿不宜，未满18岁免下）</font> 
                    ，<font color="#0000FF">已经破解</font></a>,<a href="http://www.gy16.com/gy/po.htm" target="_blank"><b><font color="#993300">请进看破解方法</font></b></a></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <form name=myform action=search.asp target="_blank" method=post>
          <tr> 
            <td align=middle>
              <div align="center">搜索： 
                <input class=boxttt onFocus="this.value=''" 
            maxlength=128 size=15 value=输入搜索内容 name=k>
                <select 
            class=boxttt name=s>
                  <option value="1" selected>软件名称</option>
                  <option value="0">不限条件</option>
                </select>
                <input class=unnamed1 type=submit value=搜索 name=submit>
                <input type="reset" name="Submit22" value="取 消" class="unnamed1">
              </div>
            </td>
          </tr>
        </form>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#CCCCCC" height="20">
        <tr> 
          <td width="20%"> <b>&nbsp;&nbsp;</b>新进E书</td>
          <td width="80%"> 
            <div align="right"><b><a href="http://www.gy16.com/gy/po.htm"><font color="#FFFFFF">做个让女人性福的男人</font></a></b><font color="#FF0000">超大版</font><font color="#0000FF">已破解</font> 
              现点-<font color="#FF0000">-</font> 
              <script language="JavaScript" type="text/JavaScript" src="http://union.3721.com/ass/txt_2.js?pid2=A_gyi16_109802"></script>
              <font color="#FF0000">=</font>支持，有支持就发</div>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC">
        <tr> 
          <td bgcolor="#FFFFFF" height="53"> 
            <table  cellspacing="0" cellpadding="2" width="100%" border="0">
              <%    
	sql="select top 11 "    
	sql=sql&"download.id,name,show,downcount,count,time,download.classid,download.Nclassid,Nclass.Nclass"    
	sql=sql&" from download,Nclass where download.Nclassid=Nclass.Nclassid "    
	sql=sql&" order by download.time desc"    
	rs.open sql,conn,1,1    
	if rs.eof and rs.bof then    
%>
              <tbody> 
              <tr> 
                <td  width="60">没有任何软件，电子书</td>
              </tr>
              <%else%>
              <%do while not rs.eof%>
              <tr align="center"> 
                <td height=22 width="68" align="left"><img src="images/arrow.gif" width="11" height="14">&nbsp;<a href="class.asp?classid=<%=rs("classid")%>&Nclassid=<%=rs("Nclassid")%>" target="_blank"><%=rs("Nclass")%></a></td>
                <td align="left" valign="top"> <a href="show.asp?id=<%=rs("id")%>" title="<%=rs("name")%>" target="_blank" ><%=rs("name")%>&nbsp;</a><font color="#999999"><%=month(rs("time"))%>/<%=day(rs("time"))%>&nbsp; 
                  &nbsp;&nbsp; <font color="#FF0000"><%=rs("downcount")%>/<%=rs("count")%></font> 
                  <%if (month(rs("time"))&day(rs("time")))=(month(date())&day(date())) then%>
                  <img border="0" src="images/new43.gif"> 
                  <%else%>
                  <%end if%>
                  <br>
                  </font></td>
                <%      
rs.movenext          
loop                     
end if                    
rs.close                     
%>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" height="3">
        <tr> 
          <td></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
        <tr> 
          <td width="50%" valign="top"> 
            <table width="99%" border="0" cellspacing="1" bgcolor="#CCCCCC" cellpadding="0">
              <tr> 
                <td width="51%"> &nbsp;&nbsp; 经济管理 </td>
              </tr>
              <tr> 
                <td width="51%" bgcolor="#FFFFFF" valign="top"> 
                  <table  cellspacing="0" cellpadding="2" width="100%" border="0">
                    <%    
	sql="select top 10 "    
	sql=sql&"download.id,name,show,downcount,count,time,download.classid,download.Nclassid,Nclass.Nclass"    
	sql=sql&" from download,Nclass where download.classid=13 and download.Nclassid=Nclass.Nclassid "    
	sql=sql&" order by download.time desc"    
	rs.open sql,conn,1,1    
	if rs.eof and rs.bof then    
%>
                    <tbody> 
                    <tr> 
                      <td  width="60">没有任何软件，电子书</td>
                    </tr>
                    <%else%>
                    <%do while not rs.eof%>
                    <tr align="center"> 
                      <td align="left"><img src="images/arrow.gif" width="11" height="14">&nbsp;<a href="show.asp?id=<%=rs("id")%>" title="<%=rs("name")%>" target="_blank" ><%=left(rs("name"),10)%>...&nbsp;</a><font color="#999999"><%=month(rs("time"))%>/<%=day(rs("time"))%>&nbsp; 
                        <font color="#FF0000"><%=rs("downcount")%>/<%=rs("count")%></font> 
                        <%if (month(rs("time"))&day(rs("time")))=(month(date())&day(date())) then%>
                        <img border="0" src="images/new43.gif"> 
                        <%else%>
                        <%end if%>
                        </font></td>
                      <%      
rs.movenext          
loop                     
end if                    
rs.close                     
%>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
            </table>
            <table width="99%" border="0" cellspacing="1" bgcolor="#CCCCCC" cellpadding="0">
              <tr> 
                <td width="51%">&nbsp;&nbsp; 语音视频 </td>
              </tr>
              <tr> 
                <td width="51%" bgcolor="#FFFFFF" valign="top"> 
                  <table  cellspacing="0" cellpadding="2" width="100%" border="0">
                    <%    
	sql="select top 10 "    
	sql=sql&"download.id,name,show,downcount,count,time,download.classid,download.Nclassid,Nclass.Nclass"    
	sql=sql&" from download,Nclass where download.classid=21 and download.Nclassid=Nclass.Nclassid "    
	sql=sql&" order by download.time desc"    
	rs.open sql,conn,1,1    
	if rs.eof and rs.bof then