📄 softlist.asp
字号:
<!--#include file="Config.asp" -->
<%
const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
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 "SoftName"
order_name="SoftName"
case "SoftTime"
order_name="SoftTime"
case "SoftSize"
order_name="SoftSize"
case "AllHits"
order_name="AllHits"
case else
order_name="SoftTime"
updown="desc"
end select
set rs=server.createobject("adodb.recordset")
dim CateID,SubCateID
dim CateName,SubCateName,SoftDownName
if request("CateID")<>"" and request("SubCateID")<>"" then
CateID=" CateID="&cstr(request("CateID"))&" and "
SubCateID=" SubCateID="&cstr(request("SubCateID"))&" "
sql="select * from "&CategoryName&"_SubCate where SubCateID="&cstr(request("SubCateID"))
rs.open sql,conn,1,1
SoftDownName=trim(rs("SubCateName"))
SubCateName=trim(rs("SubCateName"))
rs.close
end if
if request("CateID")<>"" and request("SubCateID")="" then
CateID="CateID="&cstr(request("CateID"))&" "
sql="select CateName from "&CategoryName&"_Cate where CateID="&cstr(request("CateID"))
rs.open sql,conn,1,1
SoftDownName=trim(rs("CateName"))
CateName=trim(rs("CateName"))
rs.close
end if
if request("CateID")="" and request("SubCateID")="" then
CateID=""
SubCateID=""
SoftDownName="è?2?D??￠"
end if
%>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-top: 5px;
}
-->
</style><!--#include file="top.asp" -->
<% dim bj
dim ad
%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr valign="top" bgcolor="#F7F7F7">
<td height="75" colspan="2">
<%if request("CateID")="1" then
bj="images/bj1.gif"
ad="images/ad1.jpg"
end if%>
<%if request("CateID")="2" then
bj="images/bj2.gif"
ad="images/ad2.jpg"
c1=class2
end if%>
<%if request("CateID")="3" then
bj="images/bj3.gif"
ad="images/ad3.jpg"
end if%>
<%if request("CateID")="4" then
bj="images/bj4.gif"
ad="images/ad4.jpg"
end if%>
<%if request("CateID")="5" then
bj="images/bj5.gif"
ad="images/ad5.jpg"
end if%>
<%if request("CateID")="6" then
bj="images/bj6.gif"
ad="images/ad6.jpg"
end if%>
<%if request("CateID")="7" then
bj="images/bj7.gif"
ad="images/ad7.jpg"
end if%>
<%if request("CateID")="8" then
bj="images/bj8.gif"
ad="images/ad8.jpg"
end if%>
<%if request("CateID")="14" then
bj="images/bj14.gif"
ad="images/ad14.jpg"
end if%>
<%if request("CateID")="13" then
bj="images/bj13.gif"
ad="images/ad13.jpg"
end if%>
<table width=780 height=60 border=0 cellpadding=0 cellspacing=0 background=<%=bj%>>
<tr>
<td width="771" height="27">
<table width="711" height="18" border="0" align="right" cellpadding="0" cellspacing="0">
<tr valign="bottom">
<% if request("CateID")="13" then %>
<td width="67" height="18"><div align="center"><a href="default.asp?CateID=13"><font color="#FFFFFF"><b>首 页</b></font></a></div></td>
<% else%>
<td width="67" height="18"><div align="center"><a href="default.asp?CateID=13">首 页</a></div></td>
<% end if %>
<% if request("CateID")="1" then %>
<td width="74"><div align="center"><a href="SoftList.asp?CateID=1"><font color="#FFFFFF"><strong>电脑及相关</strong></font></a></div></td>
<% else%>
<td width="74"><div align="center"><a href="SoftList.asp?CateID=1">电脑及相关</a></div></td>
<% end if %>
<% if request("CateID")="2" then %>
<td width="85"><div align="center"><a href="SoftList.asp?CateID=2"><font color="#FFFFFF"><strong>通讯设备</strong></font></a></div></td>
<% else%>
<td width="85"><div align="center"><a href="SoftList.asp?CateID=2">通讯设备</a></div></td>
<% end if %>
<% if request("CateID")="3" then %>
<td width="54"><div align="center"><a href="SoftList.asp?CateID=3"><font color="#FFFFFF"><strong>房 产</strong></font></a></div></td>
<% else%>
<td width="54"><div align="center"><a href="SoftList.asp?CateID=3">房 产</a></div></td>
<% end if %>
<% if request("CateID")="4" then %>
<td width="88"><div align="center"><a href="SoftList.asp?CateID=4"><font color="#FFFFFF"><strong>视听设备</strong></font></a></div></td>
<% else%>
<td width="88"><div align="center"><a href="SoftList.asp?CateID=4">视听设备</a></div></td>
<% end if %>
<% if request("CateID")="5" then %>
<td width="62"><div align="center"><a href="SoftList.asp?CateID=5"><font color="#FFFFFF"><strong>交通工具</strong></font></a></div></td>
<% else%>
<td width="62"><div align="center"><a href="SoftList.asp?CateID=5">交通工具</a></div></td>
<% end if %>
<% if request("CateID")="6" then %>
<td width="67"><div align="center"><a href="SoftList.asp?CateID=6"><font color="#FFFFFF"><strong>家 用</strong></font></a></div></td>
<% else%>
<td width="67"><div align="center"><a href="SoftList.asp?CateID=6">家 用</a></div></td>
<% end if %>
<% if request("CateID")="7" then %>
<td width="54"><div align="center"><a href="SoftList.asp?CateID=7"><font color="#FFFFFF"><strong>求 职</strong></font></a></div></td>
<% else%>
<td width="54"><div align="center"><a href="SoftList.asp?CateID=7">求 职</a></div></td>
<% end if %>
<% if request("CateID")="8" then %>
<td width="87"><div align="center"><a href="SoftList.asp?CateID=8"><font color="#FFFFFF"><strong>办公设备</strong></font></a></div></td>
<% else%>
<td width="87"><div align="center"><a href="SoftList.asp?CateID=8">办公设备</a></div></td>
<% end if %>
<% if request("CateID")="14" then %>
<td width="73"><div align="center"><a href="SoftList.asp?CateID=14"><font color="#FFFFFF"><strong>校园专区</strong></font></a></div></td>
<% else%>
<td width="73"><div align="center"><a href="SoftList.asp?CateID=14">校园专区</a></div></td>
<% end if %>
</tr>
</table></td>
</tr>
<tr>
<td height="24" align="center">
<table border="0" cellspacing="1" cellpadding="3">
<tr>
<td align="center" >
<%
if request("CateID")<>"" then
sql="select * from "&CategoryName&"_SubCate where CateID="&cstr(request("CateID"))
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有本类信息"
else
do while not rs.eof
if cstr(rs("SubCateID"))=cstr(request("SubCateID")) then
response.write "<a href=""SoftList.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" ><font color=""#ffffff""><b>"&rs("SubCateName")&"</b></font></a> "
else
response.write "<a href=""SoftList.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" ><font color=""#ffffff"">"&rs("SubCateName")&"</font></a>"
end if
response.write " "
rs.movenext
loop
end if
rs.close
else
sql="select * from "&CategoryName&"_Cate"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "??óDè?o?·?àà"
else
do while not rs.eof
response.write "???ú <a href=""SoftList.asp?CateID="&rs("CateID")&""">"&rs("CateName")&"</a>"
response.write " "
rs.movenext
loop
end if
rs.close
end if
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="489" height="13" align="center" valign="middle" bgcolor="#F7F7F7" class="dixian" >
<form method=post name=form action=Search.asp>
<script language="JavaScript1.1" src="jsSearch.js"></script>
</form></td>
<td width="291" valign="top" bgcolor="#F7F7F7" class="dixian"> ．
<a href="#">高级搜索</a> ．
<a href="#">搜索帮助</a> ．
<a href="#">热门搜索</a></td>
</tr>
</table>
<br>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="219" rowspan="6" valign="top"><table width="205" border="0" cellpadding="0" cellspacing="0" class="index">
<tr>
<td height="25" bgcolor="#E6E6E6" class="yellolineCopy"> <font color="#333333"> ·</font><strong>分类导航<font color="#333333">·</font> </strong></td>
</tr>
<tr>
<td bgcolor="#FBFBF4"><br>
<table width="100%" height="23" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="13" height="23">
<div align="left"> </div></td>
<td width="190"><% dim count
count=0
if request("CateID")<>"" then
sql="select * from "&CategoryName&"_SubCate where CateID="&cstr(request("CateID"))
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "??????"
else
do while not rs.eof
if cstr(rs("SubCateID"))=cstr(request("SubCateID")) then
response.write "<FONT color=#333333>·</font><a href=""SoftList.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" ><font color=""#996600""><b>"&rs("SubCateName")&"</b></font></a> (<font color=""#996600"">"&rs("SubCateNum")&"</font> )"
else
response.write "<FONT color=#333333>·</font><a href=""SoftList.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" >"&rs("SubCateName")&"</a>(<font color=""#996600"">"&rs("SubCateNum")&"</font>)"
end if
response.write " "
count=count+1
if count mod 2=0 then
response.write "<br>"
end if
rs.movenext
loop
end if
rs.close
else
sql="select * from "&CategoryName&"_Cate"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "ûÓб¾ÀàÐÅÏ¢"
else
do while not rs.eof
response.write "<a href=""SoftList.asp?CateID="&rs("CateID")&""" >"&rs("CateName")&"</a>( <font color=""#996600"">"&rs("CateNum")&"</font>? )"
response.write "<br>"
rs.movenext
loop
end if
rs.close
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -