searchsoft.asp

教学管理系统

<!--#include file="../inc/top.asp"-->
<!--#include file="../inc/function.asp"-->
<!--1-->
<div align="center">
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<!--left--> 
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="table-you">
<!--#include file="../loginout.asp"-->
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="/jw/images/menu_10.gif" align="right" valign="bottom">
软 件 搜 索&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>
<td class="table-xia">
<table width="90%" border="0" cellspacing="0" cellpadding="2" align="center">
<form name="34" method="post" action="searchsoft.asp">
<tr> 
<td align="center"><font color="#999999">输入搜索内容所包含的关键字</font></td>
</tr>
<tr> 
<td align="center">关键字： 
<input type="text" class="wenbenkuang" name="key" size="14">
</td>
</tr>
<tr> 
<td align="center">搜索类别： 
<select size="1" name="fl">
	<option selected value="">所有分类</option>
	<option value="教学相关">教学相关</option>
	<option value="系统工具">系统工具</option>
	<option value="网络程序">网络程序</option>
	<option value="编程开发">编程开发</option>
	<option value="图形处理">图形处理</option>
	<option value="程序源码">程序源码</option>
	<option value="媒体播放">媒体播放</option>
	<option value="其它软件">其它软件</option>
</select>
</td>
</tr>
<tr> 
<td align="center" height="38"> 
<input class=go-wenbenkuang name="imageField" value="搜 索" type=submit onFocus="this.blur()">
<input class=go-wenbenkuang type=reset value="重 新 输 入" name=Submit2>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>

</td>
<!--center-->
<%
key=request("key")
fl=request("fl")
%>
<td width="400" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<!--1-->
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td class="table-shangxia" bgcolor="#ffffff" height="35">
<img src="/jw/images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href="/jw/index.asp">教学系统</a> 
&gt;&gt; &gt;&gt; <a href="index.asp">资料下载</a>&gt;&gt; &gt;&gt; 搜索结果</td>
</tr>
<TR>
<td bgcolor="#ffffff" height="25">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_down where softmore like '%"&key&"%' and fl like '%"&fl&"%' order by adddate desc",conn,1,3
If rs.RecordCount>0 Then
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x
%>
<TR>
<td bgcolor="#ffffff" height="25" width="5%"></td>
<td bgcolor="#ffffff" height="25" width="75%"><img border="0" src="/jw/images/list01.gif" width="9" height="9"> <a href="dispsoft.asp?downid=<% =rs("downid")%>"><% =rs("softname")%></a> [<font color=red><% =rs("downcount")%></font>]</td>
<td bgcolor="#ffffff" height="25" width="20%" align="center"><%=year(rs("adddate"))&"-"&month(rs("adddate"))&"-"&day(rs("adddate"))%></td>
</tr>
<%
rs.movenext
next
rs.close
set rs=nothing
Else
%>
<TR>
<td bgcolor="#ffffff" height="25" width="100%" align="center"><font color="#FF0000">没有符合搜索条件的结果</font></td>
</tr>
<%
End If
%>
<TR>
<td bgcolor="#ffffff" height="25" align="center" colspan="3"><% call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<!--right-->
<td width="180" bordercolor="#FFFFFF" bgcolor="#FFFFFF"  valign="top" class="table-zuo">

<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="/jw/images/menu_11.gif" align="right" valign="bottom">热 门 软 件&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 25 * from Jw_down where lock = 0 order by downcount desc",conn,1,3
do while not rs.eof
%>
<TR>
<td bgcolor="#ffffff" height="21" width="2%"></td>
<td bgcolor="#ffffff" height="25" width="95%"><img border="0" src="/jw/images/list01.gif" width="9" height="9"> <a href="dispsoft.asp?downid=<% =rs("downid")%>"><% =rs("softname")%></a></td>
<td bgcolor="#ffffff" height="21" width="1%"></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</td>
</tr>
</table>

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