📄 index.asp
字号:
<!--#include file="Inc/syscode.asp"-->
<!--#include file="top.asp"-->
<%
if LayoutFileName_Index<>"index.asp" then
call CloseConn()
response.Redirect LayoutFileName_Index
end if
'请勿改动下面这三行代码
const ChannelID=2
Const ShowRunTime="Yes"
MaxPerPage=20
SkinID=0
PageTitle="首页"
Set rsArticle= Server.CreateObject("ADODB.Recordset")
Set rsPic= Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<link rel="stylesheet" href="1.css" type="text/css">
<title><%=strPageTitle & " >> " & PageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<%call MenuJS()%>
<script language="JavaScript" type="text/JavaScript">
function refreshMe()
{
window.refresh;
}
</script>
<style type="text/css">
<!--
body {
font-size: 12px;
}
td {
font-size: 12px;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" onLoad="javascipt:setTimeout('refreshMe()',1000);" <%=Body_Label%> onmousemove='HideMenu()'>
<table bgcolor="#FFFFFF" width="762" height="2040" valign="top" border="0" align="center" cellspacing="0" >
<tr> <td bgcolor="#FFFFFF" width="35" rowspan="2" background="images/bg1.gif"> </td><td bgcolor="#FFFFFF" width="194" height="1892" align="center" valign="top">
<TABLE bgcolor="#FFFFFF" WIDTH=194 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD COLSPAN=3> <IMG SRC="images/pic1_1.jpg" WIDTH=194 HEIGHT=64 ALT=""></TD></TR>
<TR> <TD bgcolor="#FFFFFF" ROWSPAN=14> <IMG SRC="images/pic1_2.jpg" WIDTH=21 HEIGHT=1418 ALT=""></TD><TD width="152" height="147"><div align="center">
<% call ShowUserLogin() %> </div></TD><TD ROWSPAN=14> <IMG SRC="images/pic1_4.jpg" WIDTH=21 HEIGHT=1418 ALT=""></TD></TR>
<TR> <TD> <IMG SRC="images/pic1_5.jpg" WIDTH=152 HEIGHT=80 ALT=""></TD></TR> <TR>
<TD width="152" height="74"> <a href="me.asp" target="_blank">相关业务</a> <a href="me.asp" target="_blank">本站简介</a>
<br>
业务联系:web@3niao.com <br>
<a href="gbook/Guest.asp" target="_blank">留言</a> </TD>
</TR> <TR> <TD> <IMG SRC="images/pic1_7.jpg" WIDTH=152 HEIGHT=66 ALT=""></TD></TR>
<TR> <TD width="152" height="86"> <div align="center"> <% call ShowAnnounce(2,5) %>
</div></TD></TR> <TR> <TD> <IMG SRC="images/pic1_9.jpg" WIDTH=152 HEIGHT=71 ALT=""></TD></TR>
<TR> <TD width="152" height="193"> <% call ShowTopUser(6) %> </TD></TR> <TR> <TD>
<IMG SRC="images/pic1_11.jpg" WIDTH=152 HEIGHT=68 ALT=""></TD></TR> <TR> <TD width="152" height="168" valign="top">
<% call ShowVote() %> </TD></TR> <TR> <TD> <IMG SRC="images/pic1_13.jpg" WIDTH=152 HEIGHT=69 ALT=""></TD></TR>
<TR> <TD width="152" height="167" valign="top"> <% call ShowHot(8,14) %> </TD></TR>
<TR> <TD> <IMG SRC="images/pic1_15.jpg" WIDTH=152 HEIGHT=71 ALT=""></TD></TR>
<TR> <TD width="152" height="145" align="center" valign="top"> <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> <IMG SRC="images/pic1_17.jpg" WIDTH=152 HEIGHT=13 ALT=""></TD></TR>
</TABLE><TABLE WIDTH=189 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD COLSPAN=3>
<IMG SRC="images/pc_1.gif" WIDTH=190 HEIGHT=61 ALT=""></TD></TR> <TR> <TD width="13" ROWSPAN=3 valign="top">
<IMG SRC="images/pc_2.gif" WIDTH=13 HEIGHT=406 ALT=""></TD><TD width="163" height="97" align="center" valign="top">
<div align="right"><br> <br> <img src="Images/ad.gif" width="149" height="83"><br>
<br> </div></TD><TD width="14" ROWSPAN=3 align="left" valign="top"> <IMG SRC="images/pc_4.gif" WIDTH=12 HEIGHT=400 ALT=""></TD></TR>
<TR> <TD height="243" valign="top"> <div align="center">QQ联系:8119544<br>
<a href="http://www.3niao.com"><img src="logo.gif" alt="本站logo.gif" width="88" height="31" border="0"></a><br>
<a href="pick"><br>
<img src="pick/image/1.gif" alt="本站的评测!" border="0"></a><br>
<br> <a href="gbooks/?action=registration&user=admin" target="_blank">免费留言本</a><br>
<a href="count2/reg.asp" target="_blank">免费统计器</a><br>
<a href="count1/" target="_blank">免费计数器</a><br> <a href="link" target="_blank">免费网站推广
</a> </div></TD></TR> <TR> <TD height="51" valign="top"> <IMG SRC="images/pc_5.gif" WIDTH=163 HEIGHT=16 ALT=""></TD></TR>
</TABLE></td><td width="522" rowspan="2" valign="top"><table border="0" align="center" cellspacing="0">
<tr>
<td height="29"> <a href="http://www.3niao.com" target="_blank"><IMG SRC="images/ad1.gif" ALT="" WIDTH=450 HEIGHT=240 border="0"></a></td>
</tr> <tr> <td background="Skin\1/title_main.gif"> [<a href="news" target="_blank">新闻中心</a>]
| <a href="news/china.asp" target="_blank">国内新闻</a> |<a href="news/world.asp">
国际新闻</a> | <a href="news/ent.asp" target="_blank">娱乐新闻</a>
| <a href="news/society.asp">社会新闻</a> | <a href="news/finance.asp" target="_blank">财经新闻</a>|
<a href="news" target="_blank">more...</a></td></tr> <tr>
<td><div align="center"> <table width="522" height="20" border="0" align="center" cellspacing="0">
<tr> <TD ID="joynews" width="371" VALIGN="TOP" HEIGHT="241" ROWSPAN="2" style="margin-left: 15">
<SCRIPT SRC="news/topx.asp"></SCRIPT> </TD><TD width="147" ROWSPAN="2" VALIGN="TOP" ID="joynews" style="margin-left: 15">
<div align="center" style="border: 1 solid #3D5A83">
<p><font color="#336699">〖+++本站统计+++〗</font><br>
<% call ShowSiteCount() %> <br> 3鸟设社[色彩连视版] </p></div></TD></tr> </table></div></td></tr>
<tr> <td height="672"> <table width="525" height="634" border="0" align="center" cellspacing="0">
<tr> <td width="523"><div align="center"> <table border="0" cellpadding="0" cellspacing="0" width="517">
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child From ArticleClass 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
if rsRoot.bof and rsRoot.eof then
response.Write("还没有任何栏目，请首先添加栏目。")
else
do while not rsRoot.eof
%> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr>
<td><table width="100%" height="21" border="0" cellpadding="0" cellspacing="0" class="title_main">
<tr> <td width="40"> </td><td width="484" class="title_maintxt"> <%
arrClassID=rsRoot(0)
response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'>" & rsRoot(1) & "</a>"
if rsRoot(5)>0 then
response.write "："
set trs=conn.execute("select top 4 C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,C.LinkUrl From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & rsRoot(0) & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID")
do while not trs.eof
if trs(4)<>"" then
response.write " <a href='" & trs(4) & "'>" & trs(1) & "</a>"
else
response.write " <a href='" & trs(3) & "?ClassID=" & trs(0) & "'>" & trs(1) & "</a>"
end if
trs.movenext
loop
set trs=conn.execute("select ClassID from ArticleClass where RootID=" & rsRoot(2) & " and Child=0 and LinkUrl='' and BrowsePurview>=" & UserLevel)
do while not trs.eof
arrClassID=arrClassID & "," & trs(0)
trs.movenext
loop
end if
%> </td></tr> </table></td></tr> <tr> <td><table width="100%" border="0" cellpadding="3" cellspacing="0" class="border">
<tr> <td width="134" height="100" align="center" valign="top"> <%
sql="select top 1 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from Article A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID in (" & arrClassID & ") and DefaultPicUrl<>'' order by A.OnTop,A.ArticleID desc"
rsPic.open sql,conn,1,1
if rsPic.bof and rsPic.eof then
response.write "<img src='nopic.jpg' width=135 height=100 border=0><br>没有任何图片文章"
else
strPic=""
call GetPicArticleTitle(20,135,100)
response.write strPic
end if
rsPic.close
%> </td><td width="4"> </td><td width="365" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr valign="top">
<td height="100"> <%
sql="select top 7 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from Article A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID in (" & arrClassID & ") order by A.OnTop,A.ArticleID desc"
rsArticle.open sql,conn,1,1
if rsArticle.bof and rsArticle.eof then
response.write "<li>没有任何文章</li>"
else
call ArticleContent(26,True,True,False,0,False,True)
end if
rsArticle.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -