?? down.asp
字號:
<!--#include file="ku_top.asp" -->
<%sub navigation()%>
>>校園下載
<%end sub%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="800" height="50" bgcolor="#FFFFFF">
<tr>
<td width="218" valign="top">
<div align="center">
<table border="0" width="208" id="table2" bgcolor="#ebebeb" cellpadding="0" cellspacing="0">
<tr>
<td height="30" background="xbqq_img/gonggao.gif">
<p align="center"><b>下 載 分 類</b></td>
</tr>
<tr>
<td><% xbqq_downclass() %></td>
</tr>
<tr>
<td height="0"><hr></td>
</tr>
<tr>
<td height="30" background="xbqq_img/gonggao.gif">
<p align="center"><b>信 息 搜 索</b></td>
</tr>
<tr>
<td height="23"><% xbqq_Search %></td>
</tr>
<tr>
<td height="0"><hr></td>
</tr>
<tr>
<td height="30" background="xbqq_img/gonggao.gif">
<p align="center"><b>站 內 投 票</b></td>
</tr>
<tr>
<td><% xbqq_vote %></td>
</tr>
<tr>
<td height="0"><br></td>
</tr>
</table>
</div>
</td>
<td width="590" valign="top">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="580" height="28" background="xbqq_img/kind1.gif">
<tr>
<td style='FILTER: PADDING-TOP: 2px'> <img border="0" src="xbqq_img/ico1.gif" width="11" height="9"> <font color="#FFFFFF"><span style="letter-spacing: 3px">文件下載</span></font></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="580" height="5">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="580" height="160" style="border: 1px solid #2C87E9">
<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="580" 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"> <img border="0" src="Images/xbqq_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> 共[<font color="#FF6666"><%=totalsoft%></font>]個作品 分[<font color="#FF6666"><%=totalpages%></font>]頁</TD>
<TD width="40%" align=middle> <%
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="xbqq_foot.asp" -->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -