检查资讯
INFORMATION
-
<%
sql="select * from info_sort where qtype='information' order by orderno asc,id asc"
Rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
%>
- "" then%><%if sortid=rs("id") then%>class="left_nav_hover"<%end if%><%end if%>>" title="<%=rs("SortName")%>"><%=left(rs("SortName"),10)%> <% rs.movenext loop rs.close %>
- 在线留言
<%
set rsn=server.CreateObject("Adodb.recordset")
sqln="select * from info_sort where qtype='information' order by orderno asc,id asc"
Rsn.open sqln,conn,1,1
do while not rsn.eof
%>
<%
if rsn("id")<>"" then
num=conn.execute("select count(*) from query_info where sortid="&rsn("id")&" ")(0)
if num=1 then
%>
<%
sql="select top 1 * from query_info where sortid="&rsn("id")&" order by order_info asc,id asc"
Rs.open sql,conn,1,1
if not(rs.eof) then
%>
"/><%end if%>
<%
end if
rs.close
%>
<%else%>
<%end if
end if
%>
<%
rsn.movenext
loop
rsn.close
%>
<%=rsn("SortName")%>
">MORE
"" then%> class="content fl" <%end if%>>
<%=rs("Field1")%> ">[更多]
<%if rs("images")<>"" then%>
<%=rsn("SortName")%>
">MORE
-
<%
sql="select top 7 * from query_info where sortid="&rsn("id")&" order by order_info asc,id asc"
Rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
%>
- " title="<%=rs("subject")%>"><%=left(rs("subject"),26)%> [<%=formatdatetime(rs("addday"),2)%>] <% rs.movenext loop rs.close %>