📄 index.asp
字号:
<!--#include file="Inc/syscode_article.asp"-->
<%
const ChannelID=2
Const ShowRunTime="Yes"
MaxPerPage=20
Set rsArticle= Server.CreateObject("ADODB.Recordset")
Set rsPic= Server.CreateObject("ADODB.Recordset")
%>
<HTML><HEAD><TITLE><%=strPageTitle & " >> " & PageTitle%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="index_files/DefaultSkin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.0" name=GENERATOR></HEAD>
<BODY onmousemove=HideMenu() leftMargin=0 topMargin=0>
<DIV id=menuDiv
style="Z-INDEX: 1000; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8"></DIV><!-- ********网页顶部代码开始******** -->
<!--#include file="top.asp"-->
<!--导航代码开始-->
<!--导航代码结束--><!-- ********网页顶部代码结束******** --><!-- ********网页中部代码开始******** -->
<TABLE class=center_tdbgall cellSpacing=0 cellPadding=0 width=760 align=center
border=0>
<TBODY>
<TR><!--网页中部左栏代码开始-->
<TD class=left_tdbgall vAlign=top width=180 rowSpan=2><!--用户登录代码开始-->
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background=index_files/ad_yhdlbg.gif height=28><IMG height=28
src="index_files/ad_yhdl.gif" width=158></TD></TR>
<TR>
<TD vAlign=center align=middle height=150><% call ShowUserLogin() %></TD></TR></TBODY></TABLE><!--用户登录代码结束-->
<TABLE style="WORD-BREAK: break-all" cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD class=left_tdbg2></TD></TR>
<TR>
<TD class=left_tdbg2></TD></TR>
<TR>
<TD class=left_tdbg2></TD></TR>
<TR>
<TD class=left_title><IMG height=28 src="index_files/ad_wzdc.gif"
width=174></TD></TR>
<TR>
<TD class=left_tdbg1><% call ShowVote() %></TD></TR>
<TR>
<TD class=left_tdbg2></TD></TR>
<TR>
<TD class=left_title><IMG height=28 src="index_files/ad_link.gif"
width=174></TD></TR>
<TR>
<TD class=left_tdbg1 align=middle><div align="center">
<% call ShowFriendSite(1,10,1,1) %>
<br>
<% call ShowFriendSite(2,10,1,3) %>
<br>
<a href='FriendSiteReg.asp'> 申请</a> <a href='FriendSite.asp'>更多>>></a>
</div></TD>
</TR>
<TR>
<TD class=left_tdbg2></TD></TR></TBODY></TABLE></TD><!--网页中部左栏代码结束--><!--网页中部左间隔代码开始--><!--网页中部左间隔代码结束--><!--网页中部中栏代码开始-->
<TD vAlign=top width=*>
<TABLE style="WORD-BREAK: break-all" cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD class=main_shadow></TD></TR>
<TR><!--网页中部中栏最新推荐、最新热门代码开始-->
<TD vAlign=top>
<TABLE style="WORD-BREAK: break-all" cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD class=left_title width="64%" colSpan=2><IMG height=28
src="index_files/ad_zxtjwz.gif" width=174 border=0></TD>
<TD class=left_title width="30%"><IMG height=28
src="index_files/ad_zxrmwz.gif" width=174 border=0></TD>
</TR>
<TR><!--网页中部中栏最新推荐图片代码-->
<TD style="BORDER-RIGHT: #d8d8d8 1px solid" align=middle >
<TABLE cellSpacing=5 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR vAlign=top>
<TD align=middle><% call ShowPicArticle(0,1,10,1,1,120,92,200,false,true) %></TD>
</TR></TBODY></TABLE></TD><!--网页中部中栏最新推荐文章代码-->
<TD vAlign=top width=*>
<TABLE cellSpacing=4 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top background=index_files/ad_bg1.gif><% call ShowElite(7,20) %> </TD>
</TR></TBODY></TABLE></TD><!--网页中部中栏最新热门文章滚动代码-->
<TD style="BORDER-LEFT: #d8d8d8 1px solid" vAlign=top>
<TABLE cellSpacing=4 cellPadding=0 width="100%"
bgColor=#f8f8f8 border=0>
<TBODY>
<TR>
<TD background=index_files/ad_bg2.gif><% call ShowHot(10,14) %> </TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD><!--网页中部中栏最新推荐、最新热门代码结束--></TR>
<TR>
<TD class=main_shadow></TD></TR><!--网页中部中栏文章栏目代码开始-->
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=* background=index_files/ad_rmwztpbg.gif><IMG
height=32 src="index_files/ad_rmwztp.gif" width=239
border=0></TD>
<TD align=middle width=55
background=index_files/ad_rmwztpbg.gif><IMG
height=7 src="index_files/ad_more.gif" width=35
border=0></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=main_tdbg_575 align=middle height=125> <marquee><% call ShowPicArticle(0,4,16,1,4,120,92,200,false,true) %></marquee>
</TD>
</TR></TBODY></TABLE>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr,ClassCount,iClassID
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.Readme From caifuwClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=0 and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.RootID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
dim sqlClassAD,rsClassAD,ClassAD
sqlClassAD="select * from Advertisement where IsSelected=True"
sqlClassAD=sqlClassAD & " and (ChannelID=0 or ChannelID=" & ChannelID & ")"
sqlClassAD=sqlClassAD & " and ADType=2 order by ID Desc"
set rsClassAD=server.createobject("adodb.recordset")
rsClassAD.open sqlClassAD,conn,1,1
if rsRoot.bof and rsRoot.eof then
response.Write("还没有任何栏目，请首先添加栏目。")
else
ClassCount=rsRoot.recordcount
iClassID=0
do while not rsRoot.eof
%>
<td valign="top" width="50%"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -