📄 class.asp
字号:
<!--#include file="top.asp"-->
<%
'请勿改动下面这三行代码
const ChannelID=2
Const ShowRunTime="Yes"
MaxPerPage=20
strFileName="ShowClass.asp?ClassID=" & ClassID & "&SpecialID=" & SpecialID
Set rsArticle= Server.CreateObject("ADODB.Recordset")
Set rsPic= Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<STYLE>
BODY
{scrollbar-face-color:E6E6D9; scrollbar-shadow-color:ffffff;
scrollbar-highlight-color:bfbf9f; scrollbar-3dlight-color:ffffff;
scrollbar-darkshadow-color:E6E6D9; scrollbar-track-color:f2f2f2;
scrollbar-arrow-color:ffffff;}
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=strPageTitle%></title>
<link href="img/index.CSS" rel="stylesheet" type="text/css"><body bgcolor="#4D4D4D">
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
%>
<table width="760" height="612" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="5" height="608"> </td>
<td width="750" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f2f2f2" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="8" height="7"></td>
<td width="733"></td>
<td width="7"></td>
</tr>
<tr>
<td height="400"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="220" valign="top" class="tdr"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="221" height="105"> <table width="220" height="105" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" valign="bottom"> <div align="left">
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" Class="tdbg_left2"></td>
</tr>
</table>
<img src="img/INDEX_r4_c333.gif" width="95" height="26">
</div></td>
</tr>
<tr>
<td valign="middle"><table width="98%" border="0" align="center" >
<tr>
<td height="1" background="img/LINE1.gif"> </td>
</tr>
<tr>
<td valign="top"> <% call ShowElite(5,20) %> </td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<table width="220" height="105" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" valign="bottom"> <div align="left">
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" Class="tdbg_left2"></td>
</tr>
</table>
<img src="img/INDEX_r6_c22.gif" width="98" height="26">
</div></td>
</tr>
<tr>
<td valign="middle"><table width="98%" border="0" align="center" >
<tr>
<td height="1" background="img/LINE1.gif"> </td>
</tr>
<tr>
<td valign="top"> <% call Showhot(5,20) %> </td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<table width="220" height="105" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="33" valign="bottom"> <div align="left"> <img src="img/INDEX_r8_c6.gif" width="61" height="27"></div></td>
</tr>
<tr>
<td valign="middle"> <table width="98%" border="0" align="center" >
<tr>
<td height="1" background="img/LINE1.gif"> </td>
</tr>
<tr>
<td height="80" valign="middle"> <div align="center">
<% call ShowSearchForm("Search.asp",2) %>
</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<table width="100%" height="105" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="33" valign="bottom"> <img src="img/INDEX_r11_c2333.gif" width="165" height="30"></td>
</tr>
<tr>
<td valign="middle"> <table width="98%" border="0" align="center" >
<tr>
<td height="1" background="img/LINE1.gif"> </td>
</tr>
<tr>
<td height="80" valign="middle"> <div align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15" Class="tdbg_left2"></td>
</tr>
</table>
<%
dim ad
set ad=server.createobject("mswc.adrotator")
%>
<%=ad.getadvertisement("ad/ad.txt")%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<%=ad.getadvertisement("ad/ad.txt")%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15" Class="tdbg_left2"></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="9"> </td>
<td width="504" valign="top" class="tdr" bgcolor="#FFFFFF"> <table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6" Class="tdbg_left2"></td>
</tr>
</table>
<table width="488" border="0" align="center" cellpadding="0" cellspacing="0" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="484" height="25" valign="top"><table width="498%" border="0" cellpadding="0" cellspacing="0" class="1">
<!--DWLayoutTable-->
<tr>
<td width="498" height="25" valign="bottom" bgcolor="#fafafa">
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4%" height="22"><img src="img/tp.gif" width="10" height="10"> </td>
<td width="96%"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="87%" height="22"> <font color="#0000FF">[专题] </font><%=SpecialName%> 文章列表</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="484" height="100" valign="top"> <table width="483" border="0" align="center" cellpadding="0" cellspacing="5">
<!--DWLayoutTable-->
<tr>
<td width="473" height="100" valign="top" bgcolor="f9f9f9" ><table width="98%" height="4" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<div align="left">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <%call ShowArticle(30)%> </td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6" Class="tdbg_left2"></td>
</tr>
</table>
<table width='488' border='0' align="center"cellpadding='2' cellspacing='0' class="tde">
<tr>
<td height="20" bgcolor="f2f2f2"> <div align="center">
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
end if
%>
</div></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6" Class="tdbg_left2"></td>
</tr>
</table>
<table width='488' border='0' align="center"cellpadding='2' cellspacing='0' class="tde">
<tr>
<td height="90" bgcolor="f2f2f2"> <div align="center">此广告位招租</div></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table></td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="10"></td>
<td></td>
<td></td>
</tr>
</table></td>
<td width="5"> </td>
</tr>
<tr>
<td height="4"></td>
<td></td>
<td></td>
</tr>
</table>
<%
set rsArticle=nothing
set rsPic=nothing
call CloseConn()
%>
<!--#include file="end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -