For遍历出列表信息

最新推荐文章于 2024-05-20 13:58:24 发布

tourstar

最新推荐文章于 2024-05-20 13:58:24 发布

阅读量583

点赞数

分类专栏： ASP 文章标签： class

本文链接：https://blog.youkuaiyun.com/tourstar/article/details/5598120

版权

ASP 专栏收录该内容

7 篇文章

订阅专栏

    <%
    dim menuid3
    set rs=server.createobject("adodb.recordset")
    rs.open "select menuId from menus where menuname='政策法规'",conn,1,1
    if not rs.eof then
     for i=1 to rs.recordcount
      if i=1 then
       menuid3 = rs("menuId")
      else
       menuid3=menuid3&","&rs("menuId")
      end if
     rs.movenext
     next
    end if
    rs.close
    set rs=nothing

    set rs=server.createobject("adodb.recordset")
    rs.open "select top 10 * from policyStatute where menuId in ("&menuid3&") order by datetime desc",conn,1,1
    if not rs.eof then
     for i=1 to rs.recordcount
    %>
    <tr>
    <td width="4%" height="20"><img src="images/logo1.gif" /></td>
    <td width="76%" align="left"><a href="info.asp?states=policyStatute&Id=<%=rs("id")%>" class="hl_leftpdt" target="_blank"><%= left(rs("title"),25)%>..</a></td>
    <td width="20%" align="left"><%=rs("datetime")%> </td>
    </tr>
    <tr><td colspan="3"><img src="images/xxx4.gif" /></td></tr>
    <%
     rs.movenext
     next
    end if
    rs.close
    set rs = nothing
    %>