📄 softlist.asp
字号:
<!--#include file="Config.asp" -->
<%
const MaxPerPage=12
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 "Rank"
order_name="Rank"
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="全部节目"
end if
%>
<HTML><HEAD><TITLE><%= Title_Name %><%= CategoryName_CHS %> ==>> 首页</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="视听新时空（网络电视，网络广播，免费电影：全球最大的中文网络电视，广播网站）">
<LINK href="style.css" type=text/css rel=stylesheet>
<style>
<!--
.style3 {color: #666666}
-->
</style>
<link href="admin.css" rel="stylesheet" type="text/css">
<link href="css/style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#003300 vLink=#002200 bgColor=#336699 leftMargin=0 topMargin=0 style="background-color: #39599C">
<!--#include file="head.asp" -->
<DIV align=center>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=42
cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=208 height=42 rowspan="2" align=middle vAlign=top bgColor=#f7f3f7>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
height=840 cellSpacing=0 cellPadding=0 width=208 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD vAlign=top width=208 bgColor=#f7f3f7 height=210>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
height=612 cellSpacing=0 cellPadding=4 width=208 border=0>
<TBODY>
<TR>
<TD height=19>
<DIV align=center>
<p><IMG src="123.files/1.gif"
border=0></p>
</DIV></TD>
</TR>
<TR>
<TD height=60><!-- μ?o??è?ú???÷ ?aê? -->
<DIV align=center>
<CENTER>
<TABLE style="BORDER-COLLAPSE: collapse"
borderColor=#f7f3f7 height=17 cellSpacing=0
cellPadding=3 width="100%" bgColor=#f7f3f7 border=0>
<FORM action=search.asp method=get>
<TBODY>
<TR>
<TD borderColor=#f7f3f7 align=left bgColor=#f7f3f7
colSpan=3 height=2>关键字 ： <font color="#808080"> <input type=text name=keyword size=12 value=关键字 maxlength=50></font> </TD>
</TR>
<TR>
<TD borderColor=#f7f3f7 align=left bgColor=#f7f3f7
colSpan=3 height=1>搜索类型：
<FONT
color=#808080><select name=action size=1>
');
document.write('<option value=title selected>按节目名称</option><option value=content>
按节目简介</option></select></FONT> </TD>
</TR>
<TR>
<TD borderColor=#f7f3f7 align=left bgColor=#f7f3f7
colSpan=3 height=1>栏<span lang="zh-cn">
</span>目<span lang="zh-cn">： </span>
<font color="#808080"><select name=CateID size=1><option selected value=>所有分类</option>
');
document.write('<option value=12>国内电视台</option>');
document.write('<option value=13>港台电视台</option>');
document.write('<option value=14>外国电视台</option>');
document.write('<option value=15>国内电台</option>');
document.write('<option value=16>港台电台</option>');
document.write('<option value=17>外国电台</option>');
document.write('<option value=18>MTV秀</option>');
document.write('<option value=19>免费电影</option>');
document.write('</select></font></TD>
</TR>
<TR>
<TD borderColor=#f7f3f7 align=middle width=34
bgColor=#f7f3f7 height=2>
<DIV align=right> </DIV></TD>
<TD borderColor=#f7f3f7 align=middle width=35
bgColor=#f7f3f7><font color="#000000">
<INPUT class=style3 style="border:1px solid #ffffff; BACKGROUND-COLOR: #ffffff" type=submit value="搜 索" name=submit></font></TD>
<TD borderColor=#f7f3f7 align=middle width=91
bgColor=#f7f3f7>
<DIV align=left>
<font color="#000000">
<INPUT class=style3 style="border:1px solid #ffffff; BACKGROUND-COLOR: #ffffff" type=reset value="清 除" name=submit2></font>
</DIV></TD>
</TR>
</FORM>
</TABLE>
</CENTER>
</DIV>
<!-- μ?o??è?ú???÷ ?áê? --></TD>
</TR>
<TR>
<TD height=21>
<DIV align=center>
<IMG src="tp/4.gif"
border=0></DIV></TD>
</TR>
<TR>
<TD align=left width=200 bgColor=#f7f3f7 height=6>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td>
<%
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")&""" class=""ArticleList""><font color=""#FF0000""><b>"&rs("SubCateName")&"</b></font></a> ( <font color=""#FF0000"">"&rs("SubCateNum")&"</font>个 )"
else
response.write " → <a href=""SoftList.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" class=""ArticleList"">"&rs("SubCateName")&"</a>( <font color=""#FF0000"">"&rs("SubCateNum")&"</font>个 )"
end if
response.write "<br>"
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")&""" class=""ArticleList"">"&rs("CateName")&"</a>( <font color=""#FF0000"">"&rs("CateNum")&"</font>个 )"
response.write "<br>"
rs.movenext
loop
end if
rs.close
end if
%>
</td>
</tr>
</table></TD>
</TR>
<TR>
<TD width=200 height=32>
<P align=center><IMG src="123.files/3.gif" border=0> </P></TD>
</TR>
<TR>
<TD align=left width=200 bgColor=#f7f3f7 height=6>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td><%
if request("CateID")<>"" and request("SubCateID")<>"" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" "&SubCateID&" order by WeekHits desc,SoftID desc"
end if
if request("CateID")<>"" and request("SubCateID")="" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" order by WeekHits desc,SoftID desc"
end if
if request("CateID")="" and request("SubCateID")="" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo order by WeekHits desc,SoftID desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>近期没有新软件</p>"
else
do while not rs.eof
response.write "<li><a href=""SoftView.asp?SoftID="& rs("SoftID")&""" class=""ArticleList"">"& trim(rs("SoftName")) & trim(rs("SoftVer")) & " </a></li>"
rs.movenext
loop
end if
rs.close
%></td>
</tr>
</table></TD>
</TR>
<TR>
<TD width=200 height=32>
<P align=center>
<IMG src="tp/5.gif"
border=0></P></TD>
</TR>
<TR>
<TD width=200 height=1></TD>
</TR>
<TR>
<TD width=200 bgColor=#f7f3f7 height=85>
<TABLE cellSpacing=0 cellPadding=4 width="100%"
border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 12px" width=200>
<P align=center><A
href="http://windowsmedia.com/download/"
target=_blank> <font color="#000000">
<IMG
src="tp/WMP9series_Free.gif"
alt="如不能正常播放请下载此Media player 9播放器" border=0></font></A> </P></TD>
</TR>
<TR>
<TD style="FONT-SIZE: 12px" width=200>
<P align=center>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -