list.asp

用ASP写的ASP交友系统

        </center>
      </div>
    </td>
  </tr>
</table>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="777">
    <tr>
      <td width="100%" bgcolor="#FFFFFF">
        <table border="0" cellpadding="0" cellspacing="0" width="777" height="20">
          <tr>
            <td width="6%" bgcolor="#EABB00" height="20">　</td>
            <td width="6%" bgcolor="#F0C000" height="20">　</td>
            <td width="6%" bgcolor="#FFCD06" height="20">　</td>
            <td width="6%" bgcolor="#FFD21E" height="20">　</td>
            <td width="6%" bgcolor="#FFD52D" height="20">　</td>
            <td width="7%" bgcolor="#FFDA46" height="20">　</td>
            <td width="7%" bgcolor="#FFDE5B" height="20">　</td>
            <td width="7%" bgcolor="#FFDE59" height="20">　</td>
            <td width="7%" bgcolor="#FFDE59" height="20">　</td>
            <td width="7%" bgcolor="#FFDF62" height="20">　</td>
            <td width="7%" bgcolor="#FFE168" height="20">　</td>
            <td width="7%" bgcolor="#FFEA95" height="20">　</td>
            <td width="7%" bgcolor="#FFEFB0" height="20">　</td>
            <td width="7%" bgcolor="#FFF9DD" height="20">　</td>
            <td width="7%" bgcolor="#FFFDF0" height="20">　</td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </center>
</div>

<div align="center" style="width: 777; height: 209">
    <table border="0" cellpadding="0" cellspacing="0" width="777" height="117" bgcolor="#E3E3E3">
      <tr>
<td width="578" align="center" style="border-bottom-style: solid; border-bottom-width: 1" bgcolor="#FFFFFF">
      <p align="left">
      <font size="2"><%if search_txt<>"" then%>以下是包含关键字<font color="#ff0000"><%=search_txt%></font>的所有网友<%else%>以下是所有网友的列表<%end if%></font>
      </p>
      </td>
    </tr>
    <tr>
      <td width="578" bgcolor="#FFFFFF">
      <font size="2">第<font color="red"><%=currentpage%></font>页&nbsp;<%if search_txt="" then%>已加入网友共<%else%>找到网友<%end if%><font color="blue"><%=Records%></font>位&nbsp;共<font color="blue"><%=Pages%></font>页</font>
      </td>
    </tr>
    <tr>
      <%if pages>1 then%>
      <td width="578" bgcolor="#FFFFFF">
      <font size="2">转到页码:[                    
      <%for p=1 to pages%>
      <a <%if currentpage=p then%> style="color:red" <%end if%> href="list.asp?currentpage=<%=p%>&search_txt=<%=search_txt%>&px=<%=px%>"><%=p%></a>                    
      <%if p/30=0 then%>                    
      <%end if%>                    
      <%next%>                    
      ]</font>                    
      </td>
      <%end if%>
    </tr>
  </table>
  <!------------------------------------------------------------------------------------------------------------------------->
    <table border="0" width="750" cellspacing="0" bordercolor="#FF9966">
       <tr>
        <td width="87" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">网名↑↓</font></td>
        <td width="60" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">性别↑↓</font></td>
        <td width="116" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">来自↑↓</font></td>
        <td width="80" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">生日↑↓</font></td>
        <td width="99" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">网络寻呼机↑↓</font></td>
        <td width="110" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">登记IP↑↓</font></td>
        <td width="81" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">登记时间↑↓</font></td>
        <td width="69" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">人气↑↓</font></td>
      </tr>
      <%linenumber=rs_lar.pagesize%>
      <%do while (not rs_lar.eof) and (line<linenumber)%>
      <tr>
        <td width="87" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><a href="read.asp?user_id=<%=rs_lar("user_id")%>" title="查看网友<%=rs_lar("netname")%>的祥细资料"><%=rs_lar("netname")%></a></td>
        <td width="60" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("sex")%></td>
        <td width="116" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("home")%></td>
        <td width="80" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("britherday")%></td>
        <td width="99" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("netcall")%></td>
        <td width="110" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("ip")%></td>
        <td width="81" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("date")%></td>
        <td width="69" align="center" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("renqi")%></td>
      </tr>
      <%rs_lar.movenext%>
      <%line=line+1%>
      <%loop%>
    </table>
  <!-------------------------------------分页导航--------------------------------------->
  <table width="750" bgcolor="white">
    <tr>
      <td bgcolor="white">
      
      <%if currentpage>1 then%>
      <font size="2"><a href="list.asp?currentpage=<%=currentpage-1%>&search_txt=<%=search_txt%>&px=<%=px%>"><font size="2">[上一页]</font></a>
      <%end if%>                    
      <%if currentpage<pages then%>                    
      <a href="list.asp?currentpage=<%=currentpage+1%>&search_txt=<%=search_txt%>&px=<%=px%>">[下一页]</a>                    
      <%end if%>                    
      <%if currentpage>1 then%>                    
      <a href="list.asp?currentpage=1&search_txt=<%=search_txt%>&px=<%=px%>">[最首页]</a>                    
      <%end if%>                    
      <%if currentpage<pages then%>                    
      <a href="list.asp?currentpage=<%=pages%>&search_txt=<%=search_txt%>&px=<%=px%>">[最末页]</a>                    
      <%end if%>                    
      </font>
      </td>
    </tr>
  </table>
  <!-------------------------------------------------------------------------------------------------------------------------><!------------------------------------------------------------------------------------------------------------------------->
<form>
  <table border="0" width="100%" cellspacing="0" height="27">
    <tr>
      <td width="100%" height="13">
      <p align="center">
      搜索关键字<input type="text" name="search_txt" size="8" value="<%=search_txt%>"><input type="submit" value="搜索" name="B1"><a href="no.htm" target="_blank">[高级搜索]</a>
      </p>
      </td>
   </tr>
    <tr>
      <td width="100%" height="12">
      <p align="center">关键字为空列出所有网友
      </td>
    </tr>
  </table>
</form>
</div>
            
<div align="center">
  <center>
            
<table border="0" cellpadding="0" cellspacing="0" width="777"  bgcolor="#E3E3E3">
  <tr>
    <td width="100%" bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
</table>
            
  </center>
</div>
            
  <div align="center">                             
    <center>                             
    <table border="0" cellpadding="0" cellspacing="0" width="777" bgcolor="#FFFFFF" height="22">                             
      <tr>                             
        <td width="100%" height="22"><img border="0" src="ku/dididi.gif" width="777" height="28"></td>                             
      </tr>                             
    </table>                             
    </center>                             
  </div>                             
                                  
  <div align="center">                             
    <center>                             
    <table border="0" cellpadding="0" cellspacing="0" width="777" height="29" bgcolor="#EABB00">                             
      <tr>                             
        <td width="773"  height="29"> 
          <p align="center"> &nbsp;紫雨工作室-2001-年:酒乡网友联盟                                                        
          版权所有，未经许可不的复制 &copy;2001-2002All                                                        
          Rights Reserved</p>                       
 </td>                                
      </tr>                               
    </table>                               
    </center>                               
  </div>                               
                                    
  <div align="center">                               
    <center>                               
    <table border="0" cellpadding="0" cellspacing="0" width="777" bgcolor="#000000">                               
      <tr>                               
        <td width="100%"></td>                               
      </tr>                               
    </table>                               
    </center>                               
  </div>                               
                           
                       
</body> </html>           
<%rs_lar.close:set rs_lar=nothing:set conn=nothing%>