查询指定栏目下的信息列表HAIRUICMS
<%
set NewsListRs=server.CreateObject("adodb.recordset")
NewsListRs.open "select top 5 ItemID,Item1,UpdateTime from Cuz_News where SortID in ("&AllChildSort("News",3)&") and ...
<%
set NewsListRs=server.CreateObject("adodb.recordset")
NewsListRs.open "select top 5 ItemID,Item1,UpdateTime from Cuz_News where SortID in ("&AllChildSort("News",3)&") and "&ItemRecT&" order by UpdateTime desc,ItemID desc",conn,1,1
do while not NewsListRs.eof
%>
<li>
<a href="/News/Show.asp?ItemID=<%=NewsListRs("ItemID")%>" title="<%=NewsListRs("Item1")%>" target="_blank"><%=FixString(NewsListRs("Item1"),20,0)%></a>
<span><%=FormatTime(NewsListRs("UpdateTime"),2)%></span></li>
<%
NewsListRs.movenext
loop
NewsListRs.close
set NewsListRs=nothing
%>
调取内容字段：
<%=FixString(RemoveHTML(NewsListRs("Content")),116,6)%>
上一篇：设为首页、加入收藏代码
下一篇：查询导航
我要评论