sort.asp
来自「教育管理系统」· ASP 代码 · 共 592 行 · 第 1/2 页
ASP
592 行
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<%
dim zhuid,typeid
zhuid = Request.QueryString("zhuid")
typeid = Request.QueryString("typeid")
if zhuid="" then
Response.Write("错误参数")
Response.End
else
set rs2=server.createobject("adodb.recordset")
sql2="select * from zhu where zhuid="&zhuid
rs2.open sql2,conn,1,1
zhu=rs2("zhu")
rs2.close
set rs3=server.createobject("adodb.recordset")
sql3="select * from type where typeid="&typeid
rs3.open sql3,conn,1,1
types=rs3("type")
rs3.close%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs1("homes")%>=><%=rs1("home")%></title>
<link rel="stylesheet" type="text/css" href="css/style.css">
<style type="text/css">
<!--
-->
</style>
<body marginwidth="0" leftmargin="0" bgcolor="#191d20" topmargin="2" marginheight="0" background="tian/ditu.gif" >
<center>
<table width="726" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td> <%if typeid <>"" then%>
<form name="form1" method="post" action="search.asp?typename=<%=types%>&zhuname=<%=zhu%>">
<table width="696" border="0" cellspacing="0" cellpadding="0" background="IMAGES/cd.jpg" height="21" class="zbj">
<tr>
<td width="407"><a href="<%=rs1("url")%>"><%=rs1("homes")%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><a href="index.asp"><%=rs1("home")%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><a href="sort.asp?zhuid=<%=zhuid%>"><%=zhu%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><%=types%></td>
<td width="289">
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="3">
<div align="right">
<div align="right"> 搜索：
<input type="text" name=keyword size=14 maxlength="30" style="font-size:9pt;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000">
<input type="hidden" name="typeid" value="<%=typeid%>">
<input type="hidden" name="zhuid" value="<%=zhuid%>">
<input type="Image" src="images/ssearch.gif" tppabs="" align="absmiddle" width="20" height="20" title="查询" id=Image1 name=Image1>
</div>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table> </form>
<%else%>
<table width="696" border="0" cellspacing="0" cellpadding="0" background="IMAGES/cd.jpg" height="21" class="zbj">
<tr>
<td width="407"><a href="<%=rs1("url")%>"><%=rs1("homes")%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><a href="index.asp"><%=rs1("home")%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><%=zhu%></td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" valign="top"><br>
<br>
<br>
<%
sql="SELECT * FROM type WHERE zhuid='"&zhuid&"'"
Set rs2=Conn.Execute(sql)%> <%
do while not rs2.bof and not rs2.eof
%>
<table width="95%" border="0" cellspacing="2" cellpadding="3" align="center" height="30" class="bk">
<tr bgcolor="#333333">
<td width="20%">
<div align="center"><font class=3dfont><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><%=rs2("type")%></a></font></div>
</td>
<%RS2.MoveNext%>
<td width="20%"> <%if not RS2.EOF then%>
<div align="center"><font class=3dfont><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><%=rs2("type")%></a></font>
<%RS2.MoveNext%> <%end if%> </div>
</td>
<td width="20%"><%if not RS2.EOF then%>
<div align="center"><font class=3dfont><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><%=rs2("type")%></a></font>
<%RS2.MoveNext%> <%end if%> </div>
</td>
<td width="20%"><%if not RS2.EOF then%>
<div align="center"><font class=3dfont><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><%=rs2("type")%></a></font>
<%RS2.MoveNext%> <%end if%> </div>
</td>
<td width="20%"> <%if not RS2.EOF then%>
<div align="center"><font class=3dfont><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><%=rs2("type")%></a></font>
<%RS2.MoveNext%> <%end if%> </div>
</td>
</tr>
</table>
<%rs2.movenext
loop
rs2.close
set rs2=nothing%> <br>
</td>
</tr>
</table>
<%end if%> <%if typeid<>"" then%>
<form action=<%response.write ""&filename&"?typeid="&typeid&"&zhuid="&zhuid&""%> method="POST">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="160" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" bgcolor="#385b6e">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="188" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" background=tian/lanm2.gif>
<div align="left">□ 精品推荐 <FONT face=Arial
color=#c0c0c0><SMALL>BESTEST</SMALL></FONT></div>
</td>
</tr>
<tr>
<td> <%
dim tuicool,strSQL2,cool
strSQL2 ="SELECT * FROM learning WHERE best = true ORDER BY articleid DESC"
Set tuicool = Server.CreateObject("ADODB.Recordset")
tuicool.open strSQL2,Conn,3,1
cool=1
if tuicool.eof then
response.write "<font color='#ffffff'>没有软件提供下载</font>"
else
do while not tuicool.eof
if not tuicool.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>
<div align="center"><a href=soft.asp?id=<%=tuicool("articleid")%>&typeid=<%=tuicool("typeid")%>&zhuid=<%=tuicool("zhuid")%> target="_blank"><img src=<%=tuicool("images")%> border="0">
</a> <br>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="47%"> <font
color=#808080>□</font> 影片名称：</td>
<td width="53%"><%=tuicool("title")%></td>
</tr>
<tr>
<td width="47%"> <font
color=#808080>□</font> 推荐程度：</td>
<td width="53%"><%=tuicool("softlevel")%></td>
</tr>
<tr>
<td width="47%"> <font
color=#808080>□</font> 影片大小：</td>
<td width="53%"><%=tuicool("dog")%></td>
</tr>
<tr>
<td width="47%"> <font
color=#808080>□</font> 浏览次数：</td>
<td width="53%"><%=tuicool("hits")%></td>
</tr>
<tr>
<td valign="top" colspan="2"><font
color=#808080>□</font> 影片简介：<%=tuicool("content")%></td>
</tr>
<tr valign="middle">
<td colspan="2" height="20">
<div align="center"></div>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<%tuicool.movenext
end if
cool=cool+1
if tuicool.eof or cool>1 then
exit do
end if
loop
tuicool.close
set tuicool=nothing
end if%> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr >
<td height="20" background="tian/lanm2.gif">
<div align="center">□ 周点播排行 <%=rs1("newshu")%> <FONT face=Arial
color=#c0c0c0><SMALL>WEEKTOP</SMALL></FONT></div>
</td>
</tr>
<tr>
<td> <%
dim bentop7,strSQL1,top7
strSQL1 ="SELECT * FROM learning WHERE typeid="&typeid&" and dateandtime>=date()-7 ORDER BY hits DESC"
Set bentop7 = Server.CreateObject("ADODB.Recordset")
bentop7.open strSQL1,Conn,0,1
top7=1
if bentop7.eof then
response.write "<font color='#ffffff'>本周内新软件没被下载</font>"
else
do while not bentop7.eof
if not bentop7.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td><font
color=#808080>□</font> <a href=soft.asp?id=<%=bentop7("articleid")%>&typeid=<%=bentop7("typeid")%>&zhuid=<%=bentop7("zhuid")%> target="_blink"><%=bentop7("title")%></a> ( <font color=red><%=bentop7("hits")%></font> )
</td>
</tr>
</table>
<%bentop7.movenext
end if
top7=top7+1
if bentop7.eof or top7>rs1("newshu") then
exit do
end if
loop
bentop7.close
set bentop7=nothing
end if%> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr bgcolor="#385b6e">
<td background="tian/lanm2.gif"> □ 本类点播排行<%=rs1("reshu")%>
<font face=Arial
color=#c0c0c0><small>SOFTTOP</small></font> </td>
</tr>
<tr>
<td> <%
dim bentop,strSQLq,top
strSQLq ="SELECT * FROM learning WHERE typeid="&typeid&" ORDER BY hits DESC"
Set bentop = Server.CreateObject("ADODB.Recordset")
bentop.open strSQLq,Conn,0,1
top=1
if bentop.eof then
response.write "<font color='#ffffff'>没有软件提供下载</font>"
else
do while not bentop.eof
if not bentop.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td><font
color=#808080>□</font> <a href=soft.asp?id=<%=bentop("articleid")%>&typeid=<%=bentop("typeid")%>&zhuid=<%=bentop("zhuid")%> target="_blink"><%=bentop("title")%></a> ( <font color=red><%=bentop("hits")%></font> )
</td>
</tr>
</table>
<%bentop.movenext
end if
top=top+1
if bentop.eof or top>rs1("reshu") then
exit do
end if
loop
bentop.close
set bentop=nothing
end if%> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
<td valign="top">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="top">
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?