📄 news.asp
字号:
<!--#include file="config.asp"-->
<% dim Rs,TypeSQL,ActionName
set Rs=server.createobject("adodb.recordset")
select case Trim(Request("action"))
case "国产节目"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Rank,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='国产节目' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="国产节目"
case "国外节目"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Rank,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='国外节目' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="国外节目"
case "汉化补丁"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Rank,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='汉化补丁' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="汉化补丁"
case "破解补丁"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Rank,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='破解补丁' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="破解补丁"
case else
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Rank,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="全部节目"
end select
%>
<HTML>
<HEAD>
<TITLE><%= Title_Name %> =>> <%= CategoryName_CHS %> =>> 最近更新</TITLE>
<META http-equiv=Content-Type content='text/html; charset=gb2312'>
<link rel="stylesheet" type="text/css" href="style.css">
<link href="css/style.css" rel="stylesheet" type="text/css">
<BODY text=#003300 vLink=#002200 bgColor=#336699 leftMargin=0 topMargin=0>
<!--#include file="head.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="22" bgcolor="#FFFFFF"> <img src="images/dotdb.gif" width="10" height="10" align="absmiddle">
当前位置：首页 >> <a class=white_bg href="./"><%= CategoryName_CHS %></a> >> <font color="#FF0000"><strong><%= ActionName %></strong></font> 最近更新</td>
<form method=Post action="News.Asp">
<td bgcolor="#FFFFFF"> </td>
</FORM>
</tr>
</table>
<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=select 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -