设置了一个栏目ID1 二级栏目ID2 ID3 ID1代码怎么修改才能把ID2 ID3内容显示出来
Response.Write(""&SitePath&"news.asp?ID=18")Endif%>"target="_blank">财经</a></div><divi...
Response.Write(""&SitePath&"news.asp?ID=18")
End if%>" target="_blank">财经</a>
</div>
<div id="aaa_right_L001_tui">
<ul>
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 ID,Title,ArtDescription from Yao_Article where ClassID=18 and IsHot=1 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<a href="<%=SitePath%><%If html=1 then Response.Write("article.asp?ID="&rs1("ID")&"") else:if html=3 then Response.Write("article/"&rs1("ID")&".html") End if%>" title="<%=rs1("Title")%>" target="_blank"><font color="#003399"><%=rs1("Title")%></font></a>
</ul>
<ul>
<li><%=left(trim(rs1("ArtDescription")),70)%>...</li>
</ul>
<%
rs1.movenext
loop
else
Response.Write("暂无站长新闻推荐信息")
end if
rs1.close
set rs1=nothing
%>
</div>
<div id="aaa_right_L001_list">
<ul>
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 6 ID,Title,DateAndTime from Yao_Article where ClassID=18 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%> 展开
End if%>" target="_blank">财经</a>
</div>
<div id="aaa_right_L001_tui">
<ul>
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 ID,Title,ArtDescription from Yao_Article where ClassID=18 and IsHot=1 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<a href="<%=SitePath%><%If html=1 then Response.Write("article.asp?ID="&rs1("ID")&"") else:if html=3 then Response.Write("article/"&rs1("ID")&".html") End if%>" title="<%=rs1("Title")%>" target="_blank"><font color="#003399"><%=rs1("Title")%></font></a>
</ul>
<ul>
<li><%=left(trim(rs1("ArtDescription")),70)%>...</li>
</ul>
<%
rs1.movenext
loop
else
Response.Write("暂无站长新闻推荐信息")
end if
rs1.close
set rs1=nothing
%>
</div>
<div id="aaa_right_L001_list">
<ul>
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 6 ID,Title,DateAndTime from Yao_Article where ClassID=18 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%> 展开
1个回答
Storm代理
2023-08-29 广告
2023-08-29 广告
"StormProxies是全球大数据IP资源服务商,其住宅代理网络由真实的家庭住宅IP组成,可为企业或个人提供满足各种场景的代理产品。点击免费测试(注册即送1G流量)StormProxies有哪些优势?1、IP+端口提取形式,不限带宽,I...
点击进入详情页
本回答由Storm代理提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询