📄 morearticle.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="tophit.asp"-->
<% linum="10"
id=request("id")
sql="select cat_name from a_cat where cat_id=" & id
rs.open sql,conn,1,3
%>
<script>document.title="<% =rs("cat_name") %>";</script>
<% rs.close
Set rs2= Server.CreateObject ("ADODB.RecordSet")
sql="select * from a_s where cat_id=" & id
rs2.open sql,conn,1,3
%>
<table width="750" height="321" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="300" height="243"><table width="298" height="240" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="32" valign="middle"><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width=62
background="images/homedhbg.gif"
height=34><IMG height=34
src="images/homed1.gif"
width=55></TD>
<TD width=302
background="images/homedhbg.gif"><A href="xiaolei.asp?id=<% =rs2("s_id") %>"><% =rs2("s_name") %></A> </TD>
<TD align=right width=48
background="images/homedhbg.gif"><A href="xiaolei.asp?id=<% =rs2("s_id") %>"><IMG
src="images/new_more.gif" width="42" height="12"
border=0> </A></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td valign="top"><ul class="ul2">
<% sql="select top " & linum & " * from art where s_id=" & rs2("s_id") & " order by art_id desc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<li class="li2"><IMG src="images/di.GIF" width="8" height="8"> <a target=_blank href="showarticle.asp?id=<%= rs("art_id") %>"><% =gottopic(rs("art_title"),40) %></a></li>
<%
rs.movenext
loop
rs.close
rs2.movenext
%>
</ul></td>
</tr>
</table></td>
<td width="300"><table width="298" height="241" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="32" valign="middle"><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width=62
background="images/homedhbg.gif"
height=34><IMG height=34
src="images/home2.gif"
width=55></TD>
<TD width=302
background="images/homedhbg.gif"><a
href="xiaolei.asp?id=<% =rs2("s_id") %>">
<% =rs2("s_name") %>
</a> </TD>
<TD align=right width=48
background="images/homedhbg.gif"><a
href="xiaolei.asp?id=<% =rs2("s_id") %>">
<IMG src="images/new_more.gif" width="42" height="12"
border=0> </A></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td valign="top"><ul class="ul2">
<% sql="select top " & linum & " * from art where s_id=" & rs2("s_id")&" order by art.art_id desc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<li class="li2"><IMG src="images/di.GIF" width="8" height="8"> <a target=_blank href="showarticle.asp?id=<%= rs("art_id") %>"><% =gottopic(rs("art_title"),40) %></a></li>
<%
rs.movenext
loop
rs.close
rs2.movenext
%>
</ul></td>
</tr>
</table></td>
<td width="150"><table width="150" height="241" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="158" height="32" valign="middle"><TABLE cellSpacing=0 cellPadding=0 width="146"
border=0>
<TBODY>
<TR>
<TD width=52
background="images/zxrm.gif"
height=34> </TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td valign="top">
<% top10 "art_date",3 %>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="75"><table width="298" height="243" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="32" valign="middle"><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width=62
background="images/homedhbg.gif"
height=34><IMG height=34
src="images/home2.gif"
width=55></TD>
<TD width=302
background="images/homedhbg.gif"><a href="xiaolei.asp?id=<% =rs2("s_id") %>"><% =rs2("s_name") %></a>
</TD>
<TD align=right width=48
background="images/homedhbg.gif"><a href="xiaolei.asp?id=<% =rs2("s_id") %>"><IMG
src="images/new_more.gif" width="42" height="12"
border=0></a> </TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td valign="top">
<ul class="ul2">
<% sql="select top " & linum & " * from art where s_id=" & rs2("s_id") &" order by art.art_id desc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<li class="li2"><IMG src="images/di.GIF" width="8" height="8"> <a target=_blank href="showarticle.asp?id=<%= rs("art_id") %>"><% =gottopic(rs("art_title"),40) %></a></li>
<%
rs.movenext
loop
rs.close
rs2.movenext
%>
</ul>
</td>
</tr>
</table></td>
<td><table width="298" height="240" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="32" valign="middle"><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width=62
background="images/homedhbg.gif"
height=34><IMG height=34
src="images/homed1.gif"
width=55></TD>
<TD width=302
background="images/homedhbg.gif"><a href="xiaolei.asp?id=<% =rs2("s_id") %>"><% =rs2("s_name") %></a>
</TD>
<TD align=right width=48
background="images/homedhbg.gif"><a href="xiaolei.asp?id=<% =rs2("s_id") %>"><a href="xiaolei.asp?id=<% =rs2("s_id") %>"><IMG
src="images/new_more.gif" width="42" height="12"
border=0> </A> </TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td valign="top"><ul class="ul2">
<% sql="select top " & linum & " * from art where s_id=" & rs2("s_id") & " order by art.art_id desc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<li class="li2"><IMG src="images/di.GIF" width="8" height="8"> <a target=_blank href="showarticle.asp?id=<%= rs("art_id") %>"><% =gottopic(rs("art_title"),40) %></a></li>
<%
rs.movenext
loop
rs.close
rs2.close
set rs2=nothing
%>
</ul></td>
</tr>
</table></td>
<td><table width="150" height="241" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="158" height="32" valign="middle"><TABLE cellSpacing=0 cellPadding=0 width="146"
border=0>
<TBODY>
<TR>
<TD width=52
background="images/djph.gif"
height=34> </TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td valign="top">
<% top10 "art_count",3 %>
</td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -