📄 info_mb_info.asp
字号:
<html>
<head>
<title>网络学院 - 首页 >>> 资讯无限┆┆为您提供最新最全的站长资讯！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name=keywords content="站长,站长资源,资讯无限,im63,im63.com,asp源码,cgi源码,php源码,jsp源码,.net源码,网站素材,网页素材,网页模板,韩国模板,欧美模板,商业模板,免费模板,常用软件,注册版,破解版,免费LOGO,娱乐,flash动画,网络编程,网络学院,站长资源,网站联盟,精品网址,图片,壁纸,桌面,书籍教程,asp编程,cgi编程,php编程,平面设计,多媒体设计,服务器架设,服务器软件,电子图书,LOGO模板,PNG源文件,PSD源文件,精品字体,字体下载,软件下载">
<LINK href="../style.css" rel=stylesheet>
</head>
<body><center>
<!--#include file="mdb_path_info.asp"-->
<%newshu=10 '每个分类显示最新文章数
set rs=server.CreateObject("ADODB.RecordSet")
set rs_info=server.CreateObject("ADODB.RecordSet")
set rs_yl=server.CreateObject("ADODB.RecordSet")
i=0
sql="select top 10 title,id from info where date>Now()-7 order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
top="还没有文章"
else
do while not rs.eof
top=top&"·<a href=""../info/"&rs("id")&".htm"">"&rs("title")&"</a><br>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
list=list&"｜ "
rs.open "select * from infotype where tj=1 order by id",conn,1,1
if NOT rs.EOF then
allshu=rs.recordcount
Dim list_1(20)
Dim list_2(20)
Dim list_3(20)
do while NOT rs.EOF
ii=ii+1
list=list&"<a href="""&rs("id")&"_1.htm""><font color=""#000000"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a> ｜ "
list_1(ii)="<b><a href="""&rs("id")&"_1.htm""><font color=""#000000"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a></b>"
list_2(ii)="<font color=""#008000"">·</font><a href="""&rs("id")&"_1.htm""><font color=""#008000"">更多内容 - ->></font></a>"
i=0
sqqq_yl=""
sql_yl="select * from infotype where ts like '"&rs("ts")&"%'"
rs_yl.open sql_yl,conn,1,1
if not rs_yl.eof then
do while not rs_yl.eof
sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&""
rs_yl.MoveNext
loop
end if
rs_yl.close
rs_info.open "select id,title,date from info where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1
if NOT rs_info.EOF then
do while not rs_info.eof
list_3(ii)=list_3(ii)&"·<a href=""../info/"&rs_info("id")&".htm"">"&rs_info("title")&"</a><br>"
i=i+1
if i>=newshu then exit do
rs_info.movenext
loop
end if
rs_info.close
rs.MoveNext
loop
end if
rs.close
set rs=nothing
set rs_yl=nothing
set rs_info=nothing
conn.close
set conn=nothing%>
<script language=javascript src="../head3.js"></script>
<script language=javascript src="../search.js"></script>
<table border="0" cellpadding="0" cellspacing="0" width="770">
<tr>
<td width="770" height="4"></td>
</tr>
</table></center><center>
<table border="0" cellpadding="0" cellspacing="1" width="770" bgcolor="#E6E6E6" height="28">
<tr>
<td width="770" height="4" bgcolor="#F4F4F4"><img src="../images/c.gif" border="0" width="4" height="1">您的位置：<a href="../">首页</a> >> </td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="770">
<tr>
<td width="100%" bgcolor="#FFFFFF" height="4"></td>
</tr>
</table>
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="165" valign="top" bgcolor="#F4F4F4">
<table border="0" cellpadding="3" cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#111111">
<font color="#FFFF00">→</font>
<font color="#FFFFFF">本周阅读排行</font></td>
</tr>
<tr>
<td width="100%"><%=top%>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#111111">
<font color="#FFFF00">→</font>
<font color="#FFFFFF">精品推荐</font></td>
</tr>
<tr>
<td width="100%"><script language=javascript src="../ads/js_ads_left.js"></script></td>
</tr>
</table>
</td>
<td width="8" valign="top"></td>
<td width="577" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" bgcolor="#183EAD" height="1"></td>
</tr>
<tr>
<td width="100%" height="1"></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEF4F9" height="19"><p align="center"><%=list%></td>
</tr>
<tr>
<td width="100%" height="1"></td>
</tr>
<tr>
<td width="100%" bgcolor="#183EAD" height="1"></td>
</tr>
<tr>
<td width="100%" height="3"></td>
</tr>
</table><%if allshu="" then%>暂无内容!<%else%><table border="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<%
if allshu<=2 then
shu=1
else
if allshu>2 then
if allshu/2-int(allshu/2)>0 then
shu=allshu/2+1
else
shu=allshu/2
end if
end if
end if
for a=1 to shu%>
<tr>
<%for i=1 to 2
aa=aa+1%>
<td width="286" bgcolor="#DFEBF4"><%=list_1(aa)%></td>
<%if i=1 then%>
<td width="5"> </td>
<%end if
next%>
</tr>
<tr>
<td width="286" bgcolor="#183EAD" height="1"></td>
<td width="5" height="1"></td>
<td width="286" bgcolor="#183EAD" height="1"></td>
</tr>
<tr>
<%
for i=1 to 2
aaa=aaa+1%>
<td width="286" valign="top"><%=list_3(aaa)%><%=list_2(aaa)%></td>
<%if i=1 then%>
<td width="5"> </td>
<%end if
next%>
</tr>
<%next%>
</table>
<%end if%></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="770" bgcolor="#FFFFFF">
<tr>
<td height="4"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="770">
<tr>
<td width="100%" bgcolor="#3FAEE4" height="26" class="menu" align="center"><img src="../images/c.gif" border="0" height="2" width=1><br><a class="menu" href="#">TOP</a>┆<a class="menu" href="../help/adv.htm">广告联系</a>┆<a class="menu" href="../help/sm.htm">本站声明</a>┆<a class="menu" href="../help/faq.htm">下载帮助</a>┆<a class="menu" href="../help/up.htm">发布软件</a>┆<a class="menu" target="_blank" href="../Gbook/">访客留言</a>┆<a class="menu" href="../feedback/">意见反馈</a></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="770" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="30" align="center">中文版权所有:<a href="#">资讯无限</a>,网站维护:夏天,联系QQ:5046191</td>
</tr>
<tr>
<td width="100%" align="center"></td>
</tr>
</table></center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -