📄 index.asp
字号:
<!--#include file="inc/func_info.asp"-->
<%
'请勿改动下面这三行代码
const ChannelID=1
Const ShowRunTime="Yes"
MaxPerPage=20
SkinID=0
PageTitle="首页"
Set rsArticle= Server.CreateObject("ADODB.Recordset")
Set rsPic= Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<title><%=strPageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<%call MenuJS()%>
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="top.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td width="186" valign="top" style='padding:10px,0px,10px,10px'>
<table border="0" cellpadding="0" cellspacing="0" class="border186">
<tr>
<td class="title_txt_left"> </td>
<td class="title_txt_center">最 新 热 门</td>
<td class="title_txt_right"> </td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="border186">
<tr>
<td valign="top" class="border4"><% call ShowHot(6,14) %></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" class="border186">
<tr>
<td class="title_txt_left"> </td>
<td class="title_txt_center">专 题 栏 目</td>
<td class="title_txt_right"> </td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="border186">
<tr>
<td valign="top" class="border4"><% call ShowSpecial(8) %></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" class="border186">
<tr>
<td class="title_txt_left"> </td>
<td class="title_txt_center">最 新 调 查</td>
<td class="title_txt_right"> </td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="border186">
<tr>
<td valign="top" class="border4"><% call ShowVote() %></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" class="border186">
<tr>
<td class="title_txt_left"> </td>
<td class="title_txt_center">本 站 统 计</td>
<td class="title_txt_right"> </td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="border186">
<tr>
<td valign="top" class="border4"><% call ShowSiteCountAll() %></td>
</tr>
</table> </td>
<td width="592" valign="top" style='padding:0px,10px,10px,10px'><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="29%" valign="top" style="padding-top:12px"><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td style="padding-left:2px "><% call ShowPicArticle(0,2,16,1,1,145,100,200,false,false) %></td>
</tr>
</table></td>
<td width="71%" height="160" valign="top" style='padding-top:8px'><% call ShowNewArticle(11,40) %></td></tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="53%" valign="top"><table width="96%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td class="title_bg_left"> </td>
<td class='title_bg_center'><a href="Soft_Index.asp">最新下载</a></td>
<td class="title_bg_right"> </td>
</tr>
</table>
<table width="96%" border="0" cellpadding="0" cellspacing="0" class="border4">
<tr>
<td height="160"><%call ShowNewSoft(8,30)%></td>
</tr>
</table></td>
<td width="47%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="10" class="title_bg_left"></td>
<td width="246" class='title_bg_center'><a href="guestbook.asp">最新留言</a></td>
<td width="10" class="title_bg_right"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="border4">
<tr>
<td height="160"><% call showGuest(26,8) %></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td class="title_bg_left"></td>
<td class='title_bg_center'><a href="movie.asp">最新影音</a></td>
<td width="1%" valign="top" class='title_bg_center'><a href="movie.asp">more...</a></td>
<td class="title_bg_right"></td>
</tr>
</table>
<table width='100%' border=0 cellpadding=0 cellspacing=0 class="border4">
<tr>
<td height="1" align="cneter" style='padding-right:6px'>
<% call show_newmovie %></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td class="title_bg_left"></td>
<td class='title_bg_center'><a href="Photo_Index.asp">最新图片</a></td>
<td width="1%" valign="top" class='title_bg_center'><a href="Photo_Index.asp">more...</a></td>
<td class="title_bg_right"></td>
</tr>
</table>
<table width='100%' border=0 cellpadding=0 cellspacing=0 class="border4">
<tr>
<td height="1" align="cneter"><div id=demo style=overflow:hidden;height:131;width:545;><table align=left cellpadding=0 cellspace=0 border=0><tr>
<td id=demo1 valign=top><%call ShowNewPhoto(8,fasle,16)%></td>
<td id=demo2 valign=top></td></tr></table></div>
<script>
var speed=15
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</td>
</tr>
</table> </td>
</tr>
</table>
</td></tr>
</table>
<% call Bottom() %>
<% call PopAnnouceWindow(400,300) %>
<% call ShowAD(0) %>
<% call ShowAD(4) %>
<% call ShowAD(5) %>
</body>
</html>
<script>
mtDropDown.initialize();
</script>
<%
'=================================================
'过程名：ShowNewSoft
'作 用：显示最新更新
'参 数：SoftNum ----最多显示多少个软件
' TitleLen ----标题最多字符数，一个汉字=两个英文字符
'=================================================
call CloseConn()
sub ShowNewSoft(SoftNum,TitleLen)
dim sqlNew,rsNew
if SoftNum>0 and SoftNum<=100 then
sqlNew="select top " & SoftNum
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -