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

📄 index.asp

📁 ASP整套的建站源代码
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<META content="互联时代网络高速,ZZIT,南侠,郑州,程序设计,asp,cgi,perl,php,jsp,c,c++,html,dhtml,java,javascript,vb,vc,vfp,wap,xml,汇编语言,数据结构,计算机组成原理,数据库,access,mysql,sql,app,网站推广,品网,论坛,下载,免费,网页设计,网站开发,电子商务,虚拟主机,留言,logo,web design,娱乐,design,设计服务,设计资源,设计教程。" 
name=keywords>
<META content=互联时代网络高速---最酷程序的网站设计与网络设计网站！ name=description>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>互联时代网络高速---新闻中心</title>
</head>
<body topmargin="0">
<div align="center">
<!--#include file="top.asp"-->
</div>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="720" height="150" bgcolor="#FFFFFF">
    <tr>
      <td width="1" height="150" valign="top" rowspan="2" background="../images/main_bg_left_line.gif">
      　</td>
      <td width="176" height="150" valign="top" rowspan="2" background="../images/main_bg_left.gif">

<div align="center">
  <center>
  <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" height="123">
    <tr>
      <td width="100%" height="30">
      <img border="0" src="../images/main_download_icon6.gif"></td>
    </tr>
    <%sql = "select * from downloadtype order by typeid"
    set rs=conn.execute(sql)
    %>
    <tr>
      <td width="100%" height="1">
      <div align="center">
        <center>
      <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%">
        <tr><%do while not rs.eof%>
          <td width="100%"><img border="0" src="../images/main_jiatou.gif"><a href="index.asp?typeid=<%=rs("typeid")%>"><%=rs("typename")%></a></td>
        </tr>
    <%rs.movenext  
	loop  
	rs.close%>        
      </table>
        </center>
      </div>
      </td>
    </tr>
    <tr>
      <td width="100%" height="30"><img border="0" src="../images/main_download_icon3.gif"></td>
    </tr>
    <%sql = "select top 5 id,filename,hit from download order by hit desc"
    set rs=conn.execute(sql)
    %>
    <tr>
      <td width="100%" height="19">
      <div align="center">
        <center>
      <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%">
        <tr><%do while not rs.eof%>
          <td width="100%"><img border="0" src="../images/main_jiatou.gif"><a href="list.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("filename")%>"><%if len(rs("filename"))>10 then%><%=left(rs("filename"),10)%>...<%else%><%=rs("filename")%><%end if%></a></td>
        </tr>
    <%rs.movenext  
	loop  
	rs.close
        set rs=nothing
    %>         
      </table>
        </center>
      </div>
      </td>
    </tr>
    <tr>
      <td width="100%" height="26"><img border="0" src="../images/main_download_icon4.gif"></td>
    </tr>
    <%sql = "select top 5 id,filename from download order by id desc"
    set rs=conn.execute(sql)
    %>
    <tr>
      <td width="100%" height="19">
      <div align="center">
        <center>
      <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%">
        <tr><%do while not rs.eof%>
          <td width="100%"><img border="0" src="../images/main_jiatou.gif"><a href="list.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("filename")%>"><%if len(rs("filename"))>10 then%><%=left(rs("filename"),10)%>...<%else%><%=rs("filename")%><%end if%></a></td>
        </tr>
      <%rs.movenext  
	  loop  
	  rs.close
          set rs=nothing%>        
      </table>
        </center>
      </div>
      </td>
    </tr>
    <tr>
      <td width="100%" height="30"><img border="0" src="../images/main_download_icon5.gif"></td>
    </tr>
    <tr>
      <td width="100%" height="16">
      <div align="center">
        <center>
        <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%">
          <tr>
            <td width="100%"><form action="search.asp" method="post">关键字符：<input type="text" name="key_word" size="8"><br>
              搜索类型：<select size="1" name="key_type">
              <option selected value="keyword">关键字</option>
              <option value="filename">软件名</option>
            </select><br>
              <input type="submit" value="搜索"></form></td>
          </tr>
        </table>
        </center>
      </div>
      </td>
    </tr>
  </table>
  </center>
</div>
      </td>
      <td width="1" height="150" valign="top" rowspan="2" background="../images/main_bg_left_line.gif">
      　</td>
      <td width="523" height="337" valign="top">
      <div align="center">
        <center>
        <table border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" width="95%" cellspacing="0" height="271">
          <tr>
            <td width="100%" height="16"></td>
          </tr>
          <tr>
            <td width="100%" height="16">当前位置:<a href="index.asp">首页</a>---下载中心</td>
          </tr>
          <tr>
            <td width="100%" height="221">

<div align="center">
  <center>
  <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
    <tr>
      <td width="100%">
      <p align="right"><select onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
      <option selected>下载排序选择</option>
      <option value=index.asp?order=id&typeid=<%=typeid%>>按加入时间排序</option>
      <option value=index.asp?order=hit&typeid=<%=typeid%>>按下载次数排序</option>
      <option value=index.asp?order=dayhit&typeid=<%=typeid%>>按今日人气排序</option>
      <option value=index.asp?order=weekhit&typeid=<%=typeid%>>按本周人气排序</option>
      <option value=index.asp?order=star&typeid=<%=typeid%>>按软件得分排序</option>
      <option value=index.asp?order=filename&typeid=<%=typeid%>>按软件名称排序</option>
      <option value=index.asp?order=size&typeid=<%=typeid%>>按软件大小排序</option>
      </select></td>
    </tr>
    <tr>
<%typeid=request("typeid")%>
<%order=request("order")%>
<%if order="" then%><%order="id"%>
<%else%><%end if%>         
<%
dim rs
dim sql
msg_per_page = 8 '定义每页显示记录条数
set rs = server.createobject("adodb.recordset")
%>
<%
if typeid="" then
%>
<%sql = "select download.id,download.typeid,download.filename,download.time,download.hit,download.dayhit,download.weekhit,download.size,download.star,download.tuijian,downloadtype.typename,downloadtype.typeid from download,downloadtype where download.typeid=downloadtype.typeid order by "&order&" desc"%>
<%else%>
<%sql = "select download.id,download.typeid,download.filename,download.time,download.hit,download.dayhit,download.weekhit,download.size,download.star,download.tuijian,downloadtype.typename,downloadtype.typeid from download,downloadtype where download.typeid=downloadtype.typeid and download.typeid="&typeid&" order by "&order&" desc"%>
<%end if%>
<%rs.cursorlocation = 3 '使用客户端游标，可以使效率提高

rs.pagesize = msg_per_page '定义分页记录集每页显示记录数
rs.open sql,conn,0,1 

if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount 'totalrec：总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\msg_per_page 'n:总页数
else 
n = rs.recordcount\msg_per_page+1 
end if 

currentpage = request("page") 'currentpage:当前页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then 
currentpage = 1
end if 
if err.number <> 0 then 
err.clear
currentpage = 1
end if
else
currentpage = 1
End if 
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头
rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数

dim i
dim k
%>

<%   
do while not rs.eof and rowcount>0
%>
      <td width="100%">
      <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
        <tr>
          <td width="100%"><img border="0" src="../images/main_longline.gif"></td>
        </tr>
        <tr>
          <td width="100%">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
            <tr>
              <td width="70%"><b><font color="#3399CC"><%=rs("filename")%></font></b></td>
              <td width="50%" class="small">　</td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
            <tr>
              <td width="70%" class="small">TYPE: <%=rs("typename")%></td>
              <td width="44%" class="small">TIME:<%=rs("time")%></td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
            <tr>
              <td width="70%" class="small">HIT: <%=rs("hit")%>&nbsp; DAYHIT: <%=rs("dayhit")%>&nbsp; 
              WEEKHIT: <%=rs("weekhit")%></td>
              <td width="50%" class="small">SIZE:<%=rs("size")%>K</td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
            <tr>
              <td width="50%" class="small">APPRAISE: <img border="0" src="star<%=rs("star")%>.gif"></td>
              <td width="50%"><%if rs("hit")>1000 then%><img border="0" src="../images/cool.gif" alt="cool的软件"><%else%><%if rs("hit")>500 then%><img border="0" src="../images/hot.gif" alt="hot的软件"><%else%><%end if%><%end if%><%if rs("time")=date() then%><img border="0" src="../images/new_today.gif" alt="今天更新的软件"><%else%><%if year(rs("time"))=year(Now()) then%><%if month(rs("time"))=month(Now()) then%><img src="../images/new.gif" alt="这个月更新的软件"><%else%><%end if%><%else%><%end if%><%end if%><%if rs("tuijian")=1 then%><img border="0" src="../images/tuijian.gif" alt="推荐的软件"><%else%><%end if%></td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%">
          <a href="list.asp?id=<%=rs("id")%>" target="_blank">
          <img border="0" src="../images/main_download_button.gif"></a></td>
        </tr>

        </table>
      </td>
    </tr>
<%
rowcount=rowcount-1
rs.movenext   
loop
end if
end if     
rs.close
conn.close
set rs=nothing
set coon=nothing
%>
    <tr>
      <td width="100%" class="small">
      <img border="0" src="../images/main_longline.gif"></td>
    </tr>
    <tr>
      <td width="100%" class="small">
      <img border="0" src="../images/hot.gif">HIT&gt;500<img border="0" src="../images/cool.gif">HIT&gt;1000<img border="0" src="../images/new.gif">THIS 
      MONTH<img border="0" src="../images/new_today.gif">TODAY<img border="0" src="../images/tuijian.gif">RECOMMEND</td>
    </tr>
  </table>
  </center>
</div>



<%if typeid="" then%>
<%call listPages()%>
<%else%>
<%call listPages1()%>
<%end if%>
<%
sub listPages() 
if n <= 1 then exit sub 
%>
<p> 
<%if currentpage = 1 then%> <img border="0" src="../images/page_frist_none.gif">
<%else%>
<a href="<%=request.ServerVariables("script_name")%>?page=1&order=<%=order%>">
<img border="0" src="../images/page_frist.gif"></a>
 <a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>&order=<%=order%>">
<img border="0" src="../images/page_prve.gif"></a>
<%end if%>
<%if currentpage = n then%> <img border="0" src="../images/page_next_none.gif">
<%else%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>&order=<%=order%>"><img border="0" src="../images/page_next.gif"></a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>&order=<%=order%>"><img border="0" src="../images/page_last.gif"></a>
<%end if%>

  总:<%=currentpage%>/<%=n%>页  <%=msg_per_page%>软件/页   共:<%=totalrec%>软件</p>
<%end sub%>

<%
sub listPages1() 
if n <= 1 then exit sub 
leixing=request("leixing")
%>
<p> 
<%if currentpage = 1 then%> <img border="0" src="../images/page_frist_none.gif">
<%else%>
<a href="<%=request.ServerVariables("script_name")%>?typeid=<%=typeid%>&page=1&order=<%=order%>">
<img border="0" src="../images/page_frist.gif"></a>
<a href="<%=request.ServerVariables("script_name")%>?typeid=<%=typeid%>&page=<%=currentpage-1%>&order=<%=order%>">
<img border="0" src="../images/page_prve.gif"></a>
<%end if%>
<%if currentpage = n then%> <img border="0" src="../images/page_next_none.gif">
<%else%> 
<a href="<%=request.ServerVariables("script_name")%>?typeid=<%=typeid%>&page=<%=currentpage+1%>&order=<%=order%>">
<img border="0" src="../images/page_next.gif"></a>
<a href="<%=request.ServerVariables("script_name")%>?typeid=<%=typeid%>&page=<%=n%>&order=<%=order%>"><img border="0" src="../images/page_last.gif"></a>
<%end if%>
  总:<%=currentpage%>/<%=n%>页  <%=msg_per_page%>软件/页
  共:<%=totalrec%>软件</p>
<%end sub%>

            </td>
          </tr>
          </table>
        </center>
      </div>
      </td>
      <td width="1" height="150" background="../images/main_bg_left_line.gif" rowspan="2">　</td>
    </tr>
    <tr>
      <td width="523" height="20" valign="top">

<!--#include file="copyright.asp"-->
      </td>
      </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="720" height="1">
    <tr>
      <td width="719" height="1">
      <img border="0" src="../images/main_logo_top.gif"></td>
    </tr>
  </table>
  </center>
</div>

</BODY>

</HTML>

⌨️ 快捷键说明

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