<% if not isempty(request("pageno")) or request("pageno")<>0 then pageno=request.querystring("pageno") else pageno=1 end if %>
Now:Home - Knowledge
<% strsql="select * from mic_news_type where type_id=5 order by id" set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open strsql, conn, 1, 1 do while not rs1.eof %>
">More+<%=rs1("type_name")%>
    <% sql="select top 8 * from news_info where mic_news_type = "&rs1("id")&" order by id desc" set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 1, 1 do while not rs.eof %>
  • " title ="<% =rs("title") %>" ><% =rs("title") %>
    <% =rs("datetime") %>
  • <% rs.movenext loop rs.close set rs=nothing %>
<% rs1.movenext loop rs1.close set rs1=nothing %>