📄 info_mb_info.asp
字号:
<html>
<head>
<title>香巴拉 软件下载 - 资讯中心 - [czy888.126.com]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta copy="程序制作 [惊云,网址www.65658.com] ; 盗版必究!">
<style>
td{font-size:9pt;line-height:140%}
body{font-size:9pt;line-height:140%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="0" leftmargin="0" style="text-align: center">
<script language=javascript src="../in_top2.js"></script>
<!--#include file="mdb_path_info.asp"-->
<%newshu=8 '每个分类显示最新文章数
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%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="750">
<tr>
<td width="100%">您的位置：<a href="../index.htm">首页</a>-> 资讯中心</td>
</tr>
</table>
</center>
</div>
<div align="center">
<table border="0" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="165" valign="top" bgcolor="#F4F4F4">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" 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>
</td>
</tr>
</table>
</div>
<script language=javascript src="../ads/js_p_list.js"></script>
<script language=javascript src="../in_copy2.js"></script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -