<% Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_nav where mj_nav_display = true order by mj_nav_order asc" rs.Open sql, conn, 1, 1 Do While Not rs.EOF %>
• ·" target="<%=rs("mj_nav_open")%>"><%=rs("mj_nav_name")%>
<% rs.movenext Loop rs.Close Set rs = Nothing %>

• 总记录：<%=zong_tj%> 条
• 男记：<%=boy_tj%> 篇
• 留言数：<%=guest_tj%> 条
• 女记：<%=girl_tj%> 篇
• 相册数：<%=photofl_tj%> 条
• 评论：<%=articlecomment_tj%> 篇

<% Set rs = server.CreateObject("adodb.recordset") sql = "select top "&xzlb("mj_xze")&" * from mj_guestbook where mj_guestbook_display = true order by mj_guestbook_date desc" rs.Open sql, conn, 1, 1 dim i i=1 Do While Not rs.EOF %>
• 【<%=i%>楼】<%=left(rs("mj_guestbook_contact"),3)%>（<%=formatdatetime(rs("mj_guestbook_date"),2)%> ）

• <%=left(rs("mj_guestbook_content"),50)%>

<% i=i+1 rs.movenext Loop rs.Close Set rs = Nothing %>
• <<< 查看全部留言

<% Set rs = server.CreateObject("adodb.recordset") sql = "select top "&xzlb("mj_xzg")&" * from mj_link where mj_uploadfile = 'text' order by mj_link_order asc" rs.Open sql, conn, 1, 1 Do While Not rs.EOF %>
• ·" target="_blank" title="<%=rs("mj_link_name")%>"><%=rs("mj_link_name")%>
<% rs.movenext Loop rs.Close Set rs = Nothing %>

<% Set rs = server.CreateObject("adodb.recordset") sql = "select top "&xzlb("mj_xzh")&" * from mj_link where mj_uploadfile <> 'text' order by mj_link_order asc" rs.Open sql, conn, 1, 1 Do While Not rs.EOF %> " target="_blank">" width="175" height="45" align="<%=rs("mj_link_name")%>" title="<%=rs("mj_link_name")%>" /> <% rs.movenext Loop rs.Close Set rs = Nothing %>