down.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<!--#include file="head.asp" -->
 <%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "文件下载--"&a125_title
    end sub
%>
	<table border="0" cellpadding="0" cellspacing="0" width="996" height="50" bgcolor="#ffffff">
		<tr>
		    <!--左边内容-->
			<td width="216" valign="top" background="images/2/left_bg.gif">			
       <div align="center">
			<%call a125_tianqi()%>
			</div>
	     <div align="center">
<% Call a125_acticletype(15,-1,"下载分类") %>
            </div>
	    <div align="center">
			<% call a125_Search5() %>
           </div>	
            <div align="center">
<% Call a125_otherInfo(1,8,20,"down",0) %>
           </div>	  
          </td>	
			<td width="780" valign="top">
<div align="left" >
				<table border="0" cellpadding="0" cellspacing="0" width="580" height="20" >
					<tr>
                      <TD width="100%" height="20" ><IMG height=45 src="images/2/class_top.gif" width=780></TD>
					</tr>
				</table>
</div>
<%
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.querystring("class_id")<>"" then
  if not isInteger(request.querystring("class_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
if request.querystring("cat_id")<>"" and request.querystring("class_id")<>"" then
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
end if
dim keyword,class_id,cat_id,colname,totalsoft,Currentpage,totalpages,i
keyword=request("keyword")
cat_id=request("cat_id")
class_id=request("class_id")
colname=request("colname")
%>
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="780" height="32" background="images/2/class_bg.gif">
					<tr>
						<td style='color:#990000;font-size:14px;font-weight:bold; PADDING-TOP: 2px'>	
&nbsp;首页 &gt;&gt; <a href='down.asp'>全部下载</a> 
<% if request.querystring("cat_id")<>"" then
sql="select * from a125_down where cat_id="&request.querystring("cat_id")&" order by cat_id desc"
    set rs1=conn.execute(sql)
    Response.Write "&gt;&gt; <a href=""down.asp?cat_id="&rs1("cat_id")&""">"&rs1("cat_name")&"</a>" 
    rs1.close
    set rs1=nothing  
    end if 
    if request.querystring("class_id")<>"" then
    sql2="select * from a125_d_class where class_id="&request.querystring("class_id")&" order by class_id desc"
    set rs2=conn.execute(sql2)
    sql3="select * from a125_down where cat_id="&rs2("cat_id")&" order by cat_id desc"
    set rs1=conn.execute(sql3)       
    Response.Write "&gt;&gt; <a href=""down.asp?cat_id="&rs2("cat_id")&""">"&rs1("cat_name")&"</a> &gt;&gt; <a href=""down.asp?class_id="&rs2("class_id")&""">"&rs2("class_name")&"</a>"     
    rs1.close
    set rs1=nothing 
    rs2.close
    set rs2=nothing 
    end if      
    if request.querystring("keyword")<>"" then 
Response.Write "&gt;&gt; 搜索结果 关键词:"&keyword  
end if
%>	
</td></tr>
				</table>
</div>
<%
sql="SELECT id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,author,review,reviewcount FROM a125_d_news order by id desc"
if cat_id<>"" and class_id="" then
sql="SELECT id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,author,review,reviewcount FROM a125_d_news where soft_catid="&cat_id&" order by id desc"
elseif class_id<>"" and cat_id="" then
sql="SELECT id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,author,review,reviewcount FROM a125_d_news where soft_classid="&class_id&" order by id desc"
end if
if keyword<>"" then
sql="select id,soft_name,soft_joindate,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,author,review,reviewcount from a125_d_news where soft_name like '%"&keyword&"%' or soft_desc like '%"&keyword&"%' order by 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="780" height="160" style="border: 0px solid #CECFCE">
		<tr>
			<td bgcolor="#FFFFFF" width="100%" valign="top">   
<!--文章浏览开始-->
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="98%" height="112">
		<tr>
			<td valign="top">
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="98%" height="25">
		<tr height="15"><td></td></tr>
	  <tr align="center"><td bgcolor="#F0f0f0" height="1" colspan="3"></td></tr>
<%
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="27" >
    <td width="17" height="27" background="images/line.gif"><div align="right"><img src="Images/a125_ico.gif" width="12" height="11" align="absmiddle"></div></td>
    <td width="650" height="27" background="images/line.gif"><div align="left"> <a href="downnews.asp?id=<%=rssoft("id")%>"  target="_blank" title="<%=rssoft("soft_name")%>">
      <% if len(rssoft("soft_name"))>46 then%>
      <%=Left(rssoft("soft_name"),44)%>...
      <%else%>
      <%response.write rssoft("soft_name")%>
      <%end if%>
    </a></div></td>
    <td width="89" height="27" background="images/line.gif"><div align="left">[<%=rssoft("soft_joindate")%>] </div></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"><hr width="90%"></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?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?keyword="&request("keyword")&"&page=1&cat_id="&request.querystring("cat_id")&"&class_id="&request("class_id")&">首页</a> "
response.write "<a href=down.asp?keyword="&request("keyword")&"&page="&CurrentPage-1&"&cat_id="&request.querystring("cat_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?keyword="&request("keyword")&"&page="&CurrentPage+1&"&cat_id="&request.querystring("cat_id")&"&class_id="&request("class_id")
response.write ">下一页</a> <a href=down.asp?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>
<!--#include file="foot.asp" -->