down.asp

这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin

<!--#include file="Gaobei_head.asp" -->
<%sub navigation()%>
&gt;&gt; 软件下载
<%end sub%>


<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#FFFFFF">
		<tr>
			<td width="218" valign="top">
<% call Gaobei_userlogin() %>
<% Gaobei_downclass() %>
<% call Gaobei_vote() %>

</td>
			<td width="560" valign="top">
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="550" height="20" background="images/gaobei_skin/public_dh.gif">
					<tr>
						<td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;&nbsp;&nbsp;<span style="letter-spacing: 3px">文件下载</span></td>
					</tr>
				</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="160" style="border: 1px solid #3399FF">
		<tr>
			<td bgcolor="#FFFFFF" width="100%" valign="top">   
<!--文章浏览开始-->
<%
dim founderr
founderr=false
if request.querystring("cat_id")<>"" then
  if not isInteger(request.querystring("cat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    founderr=true
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
  end if
end if

dim keyword,class_id,colname,totalsoft,Currentpage,totalpages,i
keyword=request("keyword")
cat_id=request("cat_id")
class_id=request("class_id")
colname=request("colname")
sql="SELECT soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft order by soft_id desc"
if cat_id<>"" and class_id="" then
sql="SELECT soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft where soft_catid="&cat_id&" order by soft_id desc"
elseif class_id<>"" and keyword="" then
sql="SELECT soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft where soft_classid="&class_id&" order by soft_id desc"
elseif keyword<>"" and colname<>"0" then
sql="select soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount from soft where "&colname&" like '%"&keyword&"%' order by soft_id desc"
elseif keyword<>"" and colname="0" then
sql="select soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount from soft where soft_name like '%"&keyword&"%' or soft_desc like '%"&keyword&"%' order by soft_id desc"
else
sql="SELECT soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft order by soft_id desc"
end if
set rssoft=server.createobject("adodb.recordset")
rssoft.open sql,conn,1,1
%>


<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="112">
		<tr>
			<td width="390" valign="top">
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="546" height="25">

<%
dim softperpage
softperpage=15
if not rssoft.eof then
rssoft.movefirst
rssoft.pagesize=softperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rssoft.pagecount then
      currentpage=rssoft.pagecount
   end if
else
   currentpage=1
end if
   totalsoft=rssoft.recordcount
   if currentpage<>1 then
       if (currentpage-1)*softperpage<totalsoft then
	       rssoft.move(currentpage-1)*softperpage
		   dim bookmark
		   bookmark=rssoft.bookmark
	   end if
   end if
   if (totalsoft mod softperpage)=0 then
      totalpages=totalsoft\softperpage
   else
      totalpages=totalsoft\softperpage+1
   end if
%>
<%
i=0
do while not rssoft.eof and i<softperpage
%>





					<tr height="10">
						
						<td width="254" height="30">&nbsp;&nbsp;<img border="0" src="Images/Gaobei_skin/Gaobei_ico.gif" width="12" height="11"> <a href='showdown.asp?soft_id=<%=rssoft("soft_id")%>' target='_blank' Title='<%=rssoft("soft_name")%>'><font class='view'><%=rssoft("soft_name")%></font></a></td>
						
						
						
						<td width="292" height="30"><font color="#808080"><%=rssoft("soft_joindate")%> | 大小：<%=rssoft("soft_size")%> | 下载：<%=rssoft("soft_dcount")%></font></td>	

			


					</tr>
					
      <%
i=i+1
rssoft.movenext
loop
else
if rssoft.eof and rssoft.bof then
%>					
					
        <tr> 
          <td height="80" colspan="5" bgcolor="#Ffffff" align="center"> 
            <%if keyword<>"" then%>没有找到包含[<b><font color=red><%=request("keyword")%></font></b>]的文件！ 
            <%else%>没有任何文件提供下载
            <%end if%> 
          </td>
        </tr>
<%end if
end if
%>


<tr bgcolor="#ffffff"><td colspan="5" height="10"></td></tr><tr bgcolor="#ffffff"><td colspan="5" height="30">
<TABLE width="100%" align=center border=0><TBODY>
<form name="form1" method="post" action="down.asp?colname=<%=request("colname")%>&keyword=<%=request("keyword")%>&cat_id=<%=request("cat_id")%>&class_id=<%=request("class_id")%>">
<TR> 
<TD align=middle width="35%" height=25>&nbsp;共[<font color="#FF6666"><%=totalsoft%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle>&nbsp;<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=down.asp?colname="&request("colname")&"&keyword="&request("keyword")&"&page=1&cat_id="&request.querystring("djcat_id")&"&class_id="&request("class_id")&">首页</a> "
response.write "<a href=down.asp?colname="&request("colname")&"&keyword="&request("keyword")&"&page="&CurrentPage-1&"&cat_id="&request.querystring("djcat_id")&"&class_id="&request("class_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=down.asp?colname="&request("colname")&"&keyword="&request("keyword")&"&page="&CurrentPage+1&"&cat_id="&request.querystring("cat_id")&"&class_id="&request("class_id")
response.write ">下一页</a> <a href=down.asp?colname="&request("colname")&"&keyword="&request("keyword")&"&page="&totalpages&"&cat_id="&request.querystring("cat_id")&"&class_id="&request("class_id")&">尾页</a>"
end if
%>
 </TD>

</TR>
</FORM>
</TABLE>          
</TD>
</TR></FORM>
<tr align="center"><td bgcolor="#F0f0f0" height="1" colspan="3"></td></tr>
</TABLE><br>

					
				</table>
			</div>
			</td>
		</tr>
		
		
      <%
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
%>		
		
		
		
	</table>
</div>


<%
rssoft.close
set rssoft=nothing
%>


<!-- 文章浏览结束-->
</td>
		</tr>
	</table>
</div>
			</td>
		</tr>
	</table>
</div>
<!--#include file="Gaobei_foot.asp" -->