suoyou.asp

网上学生心里调查系统

<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 推荐指数 desc",conn,1,1
else  
  rs.open "select * from xinxi where 审核=-1 and 类别=" & mylb & " and 城市='"& mycity &"' order by 推荐指数 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("推荐指数")<>"" then response.write ("<img border=0 title='推荐指数→"&rs("推荐指数")&"级' src='images/level"&rs("推荐指数")&".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="发言时间：<%=rspl("发言时间")%>"><font color="#FF3300"><%=left(rspl("发言内容"),12)%>...</font></a><font color="#999999"><%=left(rspl("发言者姓名"),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="发表〖<%=rs("名称")%>〗的评论">发表</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>