📄 nclass.asp
字号:
<!--#include file="Config.asp"--><!--#include file="conn.asp"--><!--#include file="inc/const.asp"-->
<%
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim keyword
dim sql
dim rs
dim updown
dim order_name
order_name=Request("Order")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if request("updown")<>"" then
updown="desc"
else
updown=""
end if
select case order_name
case "showname"
order_name="showname"
case "hot"
order_name="hot"
case "dateandtime"
order_name="dateandtime"
case "hits"
order_name="hits"
case "orders"
order_name="orders"
case "size"
order_name="size"
case else
order_name="dateandtime"
updown="desc"
end select
set rs=server.createobject("adodb.recordset")
dim classid,Nclassid
dim classname,Nclassname
if request("classid")="" then
' classid=""
' classname="所有软件"
classid="classid=1 and "
sql="select class from class where classid=1"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "还没有任何栏目，请到管理页面添加"
response.end
else
classname=rs("class")
end if
rs.close
else
classid="classid="&cstr(request("classid"))&" and "
sql="select class from class where classid="&cstr(request("classid"))
rs.open sql,conn,1,1
classname=rs("class")
rs.close
end if
if request("Nclassid")="" then
Nclassid=""
Nclassname="所有软件"
else
Nclassid=" Nclassid="&cstr(request("Nclassid"))&" and "
sql="select Nclass.Nclass,class.class from Nclass,class where Nclass.classid=class.classid and Nclass.Nclassid="&cstr(request("Nclassid"))
rs.open sql,conn,1,1
classname=rs("class")
Nclassname=rs("Nclass")
rs.close
end if
%>
<HTML>
<HEAD>
<HTML><HEAD><TITLE><%=classname%><%if Nclassid<>"" then%>>><%=Nclassname%><%end if%> >> <%=DownName%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 6.0" name=GENERATOR>
<LINK href="site.css" rel=stylesheet type=text/css>
<SCRIPT language=javascript>
function popwin2(id,path)
{ window.open("openarticle.asp?id="+id+"&ppath="+path,"");
}
</SCRIPT></HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK href="<%=WebUrl%>/favicon.ico" rel="shortcut icon">
<meta name=description content="<%=Downdescription%>"><meta name="keywords"content="<%=Downkeywords%>">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<!--#include file="head.asp" --></HEAD>
<BODY leftMargin=0 topMargin=0><CENTER>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" class=2b>
<tr>
<td width="772" height="24" bgcolor="#FFFFFF"><img src="images/tp009.gif" width="15" height="15" align="absmiddle">
当前位置：<a href="index.asp">下载首页</a> → <a href="Nclass.asp?classid=<%=request("classid")%>"><%=classname%></a> → 列表</td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=2 width=770 bgColor=#eeeeee border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
</tr>
<tr><td height="1" background="images/line.gif"></td></tr>
<tr><td height="3"></td></tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="186" align="center" valign="top" bgcolor="#F6F6F6">
<TABLE width="100%" height=24 border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR bgcolor="#FFFFFF">
</TR>
<TR>
<TD background="images/homedhbg.gif"><img src="images/xzss.gif" width="161" height="34"></TD>
</TR> <form name="form1" method="post" action="search.asp">
<TR>
<TD><input type="text" name="ss_name" size="16" maxlength="40">
<select name="sor" >
<option value="00" >全部软件</option>
<option value="01">国产软件</option>
<option value="02">国外软件</option>
<option value="03">汉化补丁</option>
<option value="wz" >软件资讯</option>
</select> <input type="submit" name="Submit" value=" 搜 索 "></TD>
</TR></form>
<TR>
<TD background="images/homedhbg.gif"></TD>
</TR>
</TABLE>
<TABLE cellSpacing=1 cellPadding=0 width=98% border=0>
<TBODY>
<TR>
<TD background="images/homedhbg.gif"><img src="images/blfl.gif" width="173" height="34"></TD>
</TR>
<%
if request("classid")="" then
sql="select Nclass,Nclassid from Nclass where classid=1"
else
sql="select Nclass,Nclassid from Nclass where classid="&request("classid")
end if
rs.open sql,conn,1,1%>
<TR>
<TD align="center"> <table width="90%" border="0" align="center">
<tr>
<%do while not rs.eof%>
<td align="left" height="21" width="10">
<img id="dian1" height="8" src="images/dian02.gif" width="8" border="0"><%if not Rs.eof then%></td>
<td align="left" height="21" width="136">
<a href="Nclass.asp?classid=<%=request("classid")%>&Nclassid=<%=rs("Nclassid")%>"><%=Rs("Nclass")%></a>
</td>
<%rs.movenext
end if %>
</tr>
<%loop
Rs.Close
%>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=150 border=0>
<TBODY>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width="100%" height=24 border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR bgcolor="#669900">
<TD height=2 bgcolor="#FFFFFF"><IMG height=2 src="images/x.gif" width=5></TD>
</TR>
<TR>
<TD background="images/homedhbg.gif"><img src="images/blxagx.gif" width="161" height="34">
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=1 cellPadding=0 width=98% border=0>
<TBODY>
<TR> </TR>
<TR>
<TD>
<%
dim tdate
tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now())
sql="select top 10 id,showname,bb from download where "
sql=sql&" lasthits=date() and dayhits>0 "
sql=sql&" order by dayhits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
本类没有下载
<%else%>
<%do while not rs.eof
response.write "<LI><A href=list.asp?id="&rs("id")&">"&rs("showname")&" "&rs("bb")&"</A></LI>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
i="0"
end if
rs.close
%> </TBODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -