<TABLE cellSpacing=0 cellPadding=0 width=760  border=0>
  <TR>
    <TD width=38 height=27 background=images/bg2_left.gif></TD>
    <TD width=689 background=images/bg2_bg.gif align=middle class=t4>
    點擊資訊名稱可以得到更詳盡的信息</TD>
    <TD width=33 background=images/bg2_right.gif></TD>
  </TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
  <TR>
    <TD height="4"></TD>
  </TR>
</TABLE>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="759">
  <tr>   
<%
set rs=server.CreateObject("adodb.recordset")
if len(mylb)=0 then
  rs.open "select * from xinxi where 審核=-1 and 城市='"& mycity &"' order by 推薦指數(shù) desc",conn,1,1
else  
  rs.open "select * from xinxi where 審核=-1 and 類別=" & mylb & " and 城市='"& mycity &"' order by 推薦指數(shù) desc",conn,1,1
end if
i=1
while not rs.eof

set rslb=server.CreateObject("adodb.recordset")
rslb.open "select * from leibie where 類別編號=" & rs("類別"),conn,1,1
%>
          <td width=253 height=168 vAlign=top align=center>
            <TABLE cellSpacing=0 cellPadding=0 width=250 height=31 border=0 background="images/rnyip06_0624.gif" >
              <TR>
                <TD width=185 class=t2><%if rs("名稱")<>"" then response.write ("<b><a alt='查看〖"&rs("名稱")&"〗的詳細信息' href=javascript:openScript('xinxi.asp?id="&rs("編號")&"',530,400)>" &rs("名稱")&"</a> （<a alt='查看所有『" &rslb("類別名")& "』的信息' href='city.asp?ct="&mycity&"&lb=" &rslb("類別編號")& "'>"&rslb("類別名")&"</a>）</b>") end if%></TD>
                <TD width=70><%if rs("推薦指數(shù)")<>"" then response.write ("<img border=0 title='推薦指數(shù)→"&rs("推薦指數(shù)")&"級' src='images/level"&rs("推薦指數(shù)")&".gif' width=55 height=12>") end if%></TD>
              </TR>
            </TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=250 border=0 height=123>
              <TR>
                <TD width=4></TD>
                <TD width=1 bgColor=#c7c7c7></TD>
                <TD width=3></TD>
                <TD vAlign=top width=234 background="images/rnyip07_0624.gif">
                     
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="230" height=123>
                    <TR>
                      <TD colspan="2" vAlign=top width="230">
                               
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="230" >
                          <tr>
                             <td height=70 class="t3">
                               <%if rs("介紹")<>"" then
                                  response.write ("介紹<img height=9 src='images/arrow1.gif' width=20 border=0>")
                                  if len(rs("介紹"))>70 then
                                    response.write ( left(rs("介紹"),64) &"... <a alt='查看〖"&rs("名稱")&"〗的詳細信息' style='color: #FF0000' href=javascript:openScript('xinxi.asp?id="&rs("編號")&"',530,400)>更多&gt;&gt;</a>")
                                  else
                                    response.write ( left(rs("介紹"),68) )
                                  end if
                                end if%></td>
                          </tr>
                          <tr>
                             <td height=1 background="images/bg_con08.gif"></td>
                          </tr>
                          <tr>
                             <td height=32 class="t3">
        <%
		set rspl=server.CreateObject("adodb.recordset")
		rspl.open "select top 2 * from xinxibook where 資訊編號=" & rs("編號") &" order by 編號 desc",conn,1,1
		if rspl.recordcount=0 then 
          response.write ( "<font color='#999999'>暫時沒有評論</a>")
        else
		  while not rspl.eof%>
                              <a href="javascript:openScript('xinxi.asp?id=<%=rs("編號")%>',530,400)" alt="發(fā)言時間：<%=rspl("發(fā)言時間")%>"><font color="#FF3300"><%=left(rspl("發(fā)言內容"),12)%>...</font></a><font color="#999999"><%=left(rspl("發(fā)言者姓名"),5)%></font><br>
        <%
		  rspl.movenext
		  wend
		end if
		rspl.close
		set rspl=nothing%>

                             </td>
                          </tr>
                        </table>  
                      </TD>
                    </tr>
                    <tr>
                      <td width="143" height=19>
                      <marquee behavior="alternate" width="60" scrollamount="2" scrolldelay="100" onmouseover="this.stop()" onmouseout="this.start()"><a href="javascript:openScript('xinxi.asp?id=<%=rs("編號")%>',530,400)" style="text-decoration: none" title="查看〖<%=rs("名稱")%>〗的詳細信息"><font color="#FF0000">詳</font><font color="#00CC00">細</font><font color="#FF9900">信</font><font color="#0000FF">息</font></a></marquee>
                      </td>
                      <td width="87" align="right"><a href="javascript:openScript('xinxi.asp?id=<%=rs("編號")%>',530,400)" style="text-decoration: none" title="查看〖<%=rs("名稱")%>〗的評論">查看</a>|<a href="javascript:openScript('xinxi_add.asp?id=<%=rs("編號")%>',530,400)" style="text-decoration: none" title="發(fā)表〖<%=rs("名稱")%>〗的評論">發(fā)表</a>（<font style='color:red; font-weight: bold'><%
							set rspl=server.CreateObject("adodb.recordset")
							rspl.open "select * from xinxibook where 資訊編號=" & rs("編號"),conn,1,1
                            response.write (rspl.recordcount)
                      		rspl.close
							set rspl=nothing%></font>）</td>
                    </tr>
                  </table>
                    
                </TD>
                <TD width=3></TD>
                <TD width=1 bgColor=#c7c7c7></TD>
                <TD width=4></TD>
              </TR>
            </TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=250 height="7" border=0 background="images/rnyip08_0624.gif">
              <TR>
                <TD></TD>
              </TR>
            </TABLE>
          </td>
<%
rslb.close
set rslb=nothing
if i mod 3=0 then response.write("</tr><tr>") end if
i=i+1
rs.movenext
wend
rs.close
set rs=nothing
%>
  </tr>
</table>