site_daohang.asp

网上学生心里调查系统

<TABLE cellSpacing=0 cellPadding=0 width=760 background=images/party_bg.gif border=0 height="120" style="border-collapse: collapse">
  <TR>
    <TD width=96><IMG src="images/party_1.jpg" border=0></TD>
    
    <TD align=middle width=160>
      <TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
        <TR>
          <TD align=middle>
            <TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
              <TR>
                <TD align=middle height=24><a href="site_city.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #FF5050; font-weight: bold">城市资讯</a></TD></TR>
              <TR>
                <TD height=78 align="center">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="147"><%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 3 * from xinxi where 审核=-1 and 城市='"& mycity &"' order by 推荐指数 desc",conn,1,1
if rs.recordcount=0 then 
  response.write ( "<tr><td align='center'>暂时没有资讯<br><a style='color:red' href='add_zx.asp'>&gt;&gt;添加资讯&lt;&lt;</a></td></tr>")
else
  cti=1
  Do while not rs.eof
    response.write ("<tr><td><font color=#FF0000>·</font><a alt='查看〖"&rs("名称")&"〗的详细信息' href=javascript:openScript('xinxi.asp?id="&rs("编号")&"',530,400)>" &left(rs("名称"),16)&"</a></td></tr>")
    rs.movenext
    if cti=3 then
      exit do
    end if
    cti=cti+1 
  Loop
  response.write ("<tr><td align='right' width='147'><a href='site_city.asp?ct="& mycity &"'>&gt;&gt;更多</a></td></tr>")
end if
rs.close
set rs=nothing
%>                 </table>
                </TD></TR>
              </TABLE>
          </TD>
        </TR>
      </TABLE>
    </TD>  
      
    <TD width=6></TD>
    
    <TD align=middle width=160>
      <TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
        <TR>
          <TD align=middle>
            <TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
              <TR>
                <TD align=middle height=24><a href="site_cityparty.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #0066CC; font-weight: bold">聚会联谊</a></TD></TR>
              <TR>
                <TD height=78>
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="147">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 3 * from party where 审核=-1 and 城市='"& mycity &"' order by 编号 desc",conn,1,1
if rs.recordcount=0 then 
  response.write ( "<tr><td align='center'>暂时没有聚会<br><a style='color:red' href='add_party.asp'>&gt;&gt;添加聚会&lt;&lt;</a></td></tr>")
else
  Do while not rs.eof
    response.write ("<tr><td><font color=#FF0000>·</font><a alt='查看〖"&rs("名称")&"〗的详细信息' href=javascript:openScript('party.asp?id="&rs("编号")&"',530,400)>" &left(rs("名称"),9)&"...</a></td></tr>")
    rs.movenext
  Loop
  response.write ("<tr><td align='right' width='147'><a href='site_cityparty.asp?ct="& mycity &"'>&gt;&gt;更多</a></td></tr>")
end if
rs.close
set rs=nothing
%>                  
                  </table>
                </TD></TR>
              </TABLE>
          </TD>
        </TR>
      </TABLE>
    </TD>
    
    <TD width=6></TD>
    
    <TD align=middle width=160>
      <TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
        <TR>
          <TD align=middle>
            <TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
              <TR>
                <TD align=middle height=24><a href="site_citybook.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #008000; font-weight: bold">城市留言</a></TD></TR>
              <TR>
                <TD height=78 align="center">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"><%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select top 3 * from citybook where 城市区号='" & mycity &"' order by 编号 desc",conn,1,1
if rspl.recordcount=0 then 
  response.write ( "<tr><td align='center'>暂时没有留言<br><a style='color:red' href='site_citybook.asp?ct="&mycity&"'>&gt;&gt;我要留言&lt;&lt;</a></td></tr>")
else
  Do while not rspl.eof
    response.write ("<tr><td><font color=#FF0000>·</font><a href='site_citybook.asp?ct="&mycity&"'>" &left(rspl("发言内容"),9) &"...</a></td></tr>")
  rspl.movenext
  Loop
  response.write ("<tr><td align='right' width='147'><a href='site_citybook.asp?ct="& mycity &"'>&gt;&gt;更多</a></td></tr>")
end if
rspl.close
set rspl=nothing%></table></TD></TR>
              </TABLE>
          </TD>
        </TR>
      </TABLE>
    </TD>
    
    <TD width=6></TD>
    <TD align=middle width=160>
      <TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
        <TR>
          <TD align=middle>
            <TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
              <TR>
                <TD align=middle height=24 style="font-size: 10pt; color: #9966FF; font-weight: bold">
                帮助中心</TD></TR>
              <TR>
                <TD height=78>·欢迎使用资讯评论功能<br>
                ·城市聚会联谊开通<br>
                ·城市留言已开通</TD></TR>
              </TABLE>
          </TD>
        </TR>
      </TABLE>
    </TD>
    
    <TD width=6></TD>
    
  </TR>
</TABLE>