fleft.asp

一个不错的全站程序

<table cellSpacing="1" cellPadding="5" width="180" align="center" bgColor="#003399" border="0">
  <%
  set rsd=server.CreateObject("adodb.recordset")
strsql="select top 80 uid,uname from tblmembers where commend='Y' and utype='F' order by uname"
rsd.Open strsql,conn
while not rsd.EOF
%>
  <tr onmouseover="this.style.backgroundColor='#E6F2FF';" onmouseout="this.style.backgroundColor='#F9F7F2';" bgColor="#f9f7f2">
    <td><a class="zzz" href="showFmember.asp?uid=<%=rsd("uid")%>" target="_blank"><p align="center"><%=rsd("uname")%></a></td>
  </tr>
<%
rsd.MoveNext
wend
rsd.Close
%>
</table>
<br>
<table height="19" cellSpacing="0" cellPadding="0" width="180" background="images/bg2.gif" border="0">
        <tbody>
        <tr>
          <td width="61" height="12">&nbsp;</td>
          <td width="72" height="12">
            <div class="zzz" align="center">行 业 动 态</div></td>
          <td width="47" height="12">&nbsp;</td></tr></tbody></table>
          
          <table class="box2" height="100" cellSpacing="0" cellPadding="0" width="180" border="0">
        <tbody>
        <tr>
          <td width="178" bgColor="#000000" height="1"><img height="1" src width="1"></td></tr>
        <tr>
          <td width="178" background="images/bg3.gif" bgColor="#ffffff" height="100">
            <div align="center"><iframe src="fnews.asp" frameBorder="0" width="178" scrolling="no" height="180"></iframe></div></td></tr></tbody></table>
            <table class="box3" height="13" cellSpacing="0" cellPadding="0" width="180" border="0">
        <tbody>
        <tr>
          <td class="zzz" background="images/bg3.gif" bgColor="#ffffff" height="15">&nbsp;</td>
          <td width="15" height="15"><img height="15" src="images/b_3.gif" width="15" border="0"></td></tr>
        <tr>
          <td width="180" bgColor="#000000" height="1"><img height="1" src width="1"></td></tr></tbody></table>