📄 download.asp
字号:
<!--#include file="Inc/Code.asp" -->
<%
dim i,j
dim ID
dim NewsClassName
dim PurviewChecked
PurviewChecked=false
ID=Request("ID")
strFileName="Download.asp?"
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
sql="select * from Down where ID>0"
sql=sql & " order by ID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%><HTML>
<HEAD>
<TITLE><%Call W_WebSiteName()%>┊<%Call W_WebSiteUrl()%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Images/style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=758 align=center border=0>
<TBODY>
<TR>
<TD rowspan="2"><a href="Index.asp"><img src="Images/Logo.gif" alt="企网互联|域名注册|虚拟主机|全能空间|企业网站建设专家|企业网站智能管理系统官方网站" width="160" height="75" border="0"></a></TD>
<TD width="598"><TABLE cellSpacing=0 cellPadding=0 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=418 height="28"> </TD>
<TD vAlign=bottom width=180 background=Images/index_new2.gif>
<DIV align=center><IMG height=11 src="Images/home.gif" width=13> 设为首页 | <IMG height=12
src="Images/ofldr.gif" width=16> 加入收藏</DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><img src="Images/Menu1.gif" width="598" height="47" border="0" usemap="#Map"></TD>
</TR>
</TBODY></TABLE>
<table width="758" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="756" height="140" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="758" height="140">
<param name="movie" value="Images/tt.swf">
<param name="quality" value="high">
<embed src="Images/tt.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="758" height="140"></embed>
</object></td>
</tr>
<tr>
<td><img src="Images/pic03.gif" width="758" height="5"></td>
</tr>
<tr>
<td height="445" valign="top"><table width="758" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="195" height="445" valign="top" background="images/bg06.gif"><table width="195" border="0" cellpadding="0" cellspacing="0" class="c">
<tr>
<td width="258"><img src="Images/pic40.gif" width="195" height="44"></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36"><img src="Images/pic42.gif" width="36" height="26"></td>
<td width="159" valign="bottom"><font color="#FFFFFF">.</font><strong><font color="#FF0000">下载中心</font></strong></td>
</tr>
<tr>
<td colspan="2"><img src="images/pic41.gif" width="195" height="7"></td>
</tr>
</table></td>
</tr>
<tr>
<td><% call Contact_Type() %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36"><img src="Images/pic42.gif" width="36" height="26"></td>
<td width="159" valign="bottom"><font color="#FFFFFF">.</font><a href="Download.asp">下载中心</a></td>
</tr>
<tr>
<td colspan="2"><img src="Images/pic41.gif" width="195" height="7"></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="44" valign="middle" background="images/bg05.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="b">
<tr>
<td class="L15"><a href="Index.asp">首页</a> <span class="en_text">>> </span><a href="Download.asp">下载中心</a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="16" valign="top"><TABLE width=100%
border=0 align=center cellPadding=5 cellSpacing=1>
<TBODY>
<TR>
<TD height=126 valign="top"><TABLE width="96%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="428"
height=28> </TD>
<TD width="123"><%
if rs.eof and rs.bof then
response.write "共找到 0 条信息"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*10>totalput then
if (totalPut mod 10)=0 then
currentpage= totalPut \ 10
else
currentpage= totalPut \ 10 + 1
end if
end if
response.Write "共找到 " & totalPut & " 条信息"
%>
</TD>
</TR>
<TR>
<TD
height=1 colspan="2"><%
if currentPage=1 then
MaxPerPage=10
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"条信息"
else
if (currentPage-1)*10<totalPut then
MaxPerPage=10
rs.move (currentPage-1)*10
dim bookmark
bookmark=rs.bookmark
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"条信息"
else
currentPage=1
MaxPerPage=10
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"条信息"
end if
end if
end if
%>
<%
sub showContent
dim i
i=0
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="20"><table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#f7f7f7">
<td width="8%"><div align="center"><strong>序号</strong></div></td>
<td width="44%"><div align="center"><strong>文件名称</strong></div></td>
<td><div align="center"><strong>下载次数</strong></div></td>
<td><div align="center"><strong>发布日期</strong></div></td>
<td><div align="center"><strong>下载地址</strong></div></td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td><div align="center"><%=rs("ID")%></div></td>
<td><div align="center"><%=rs("Name")%></div></td>
<td width="16%"><div align="center"><%=rs("Hits")%></div></td>
<td width="15%"><div align="center"><%=rs("Time")%></div></td>
<td width="17%"><div align="center"><a href="DownShow.asp?ID=<%=rs("ID")%>" target="_blank">点击下载</a></div></td>
</tr>
<%
i=i+1
if i>=10 then exit do
rs.movenext
loop
%>
</table>
<br>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%
end sub
%>
</TD>
</TR>
<TR>
<TD
height=1 colspan="2"> </TD>
</TR>
<TR>
<TD height=10 colspan="3"> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="758" height="28" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="34" background="Images/bg07.gif"><table width="72%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><SPAN class=buttom><%Call W_Copyright()%> <%Call W_Count()%></SPAN></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="29,10,103,29" href="About.asp">
<area shape="rect" coords="126,10,199,29" href="News.asp">
<area shape="rect" coords="223,10,299,30" href="Product.asp">
<area shape="rect" coords="319,10,396,30" href="Download.asp">
<area shape="rect" coords="419,10,493,29" href="Guestbook.asp">
<area shape="rect" coords="516,10,591,30" href="Contact.asp">
</map>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -