list.asp

asp交友程序1.0版 ,本程序使用的核心为蓝芒asp交友程序

        <td width="281"><p><font color="white"><marquee>天翔网 </font><a href="http://www.wzsky.com"
             target="_blank"><font color="yellow">http://www.wzsky.com</font></a><font
             color="white"> 欢迎您的光临！</font></marquee></td>
    </tr>
</table></div>
<table border="0" cellpadding="0" cellspacing="0" width="100%"
 height="80" bgcolor="#A5EF00">
    <tr>
        <td width="253" height="88" bgcolor="#99CC00"><p align="center">&nbsp;<img src="image/TOP.jpg" width="186"
                         height="73" border="0" alt="天翔网"></td>
        <td width="506" height="88" bgcolor="#99CC00"><p align="left"><a href="http://www.wzsky.com" target="_blank"><img src="images/sky.jpg"
             width="468" height="60" border="0"></a></td>
        <td width="17" height="88" bgcolor="#99CC00"><p>　 </td>
    </tr>
</table><div align="center"><table border="0" cellpadding="0" cellspacing="0" width="100%"
 height="19" bgcolor="#A5EF00">
    <tr>
        <td width="240" bgcolor="#99CC00"><p><img src="images/top_left_a.gif"
             width="240" height="19" border="0"></td>
        <td width="532" bgcolor="#99CC00"><p align="right"><span style="BACKGROUND-COLOR: #99cc00"><img src="images/top_left_z.gif"
             border="0" usemap="#FPMap1"></span></td>
    </tr>
</table><table border="0" cellpadding="0" cellspacing="0" width="100%"
 height="21" background="images/top_bg.gif">
    <tr>
        <td width="401"></td>
        <td width="374"><p><img src="images/nav.gif" width="370" height="21"
             border="0" usemap="#FPMap2"></td>
    </tr>
</table></div>
        </td>
    </tr>
</table>
<!------------------------------------------------------------------------------------------------------------------------------>
  <!-------------------------------------分页导航--------------------------------------->
  <table border="0" width="750">
    <tr>
      <td width="578" align="center" style="border-bottom-style: solid; border-bottom-width: 1">
      <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">
      <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">
      <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="#FF9966" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#FFFFFF">网名<a title="按网名升序排列" <%if px="s_netname" then%> style="color:red" <%end if%> href="list.asp?px=s_netname&search_txt=<%=search_txt%>">↑</a><a title="按网名降序排列" <%if px="j_netname" then%> style="color:red" <%end if%> href="list.asp?px=j_netname&search_txt=<%=search_txt%>">↓</a></font></td>
        <td width="60" align="center" bgcolor="#FF9966" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#FFFFFF">性别<a title="按性别升序排列" <%if px="s_sex" then%> style="color:red" <%end if%> href="list.asp?px=s_sex&search_txt=<%=search_txt%>">↑</a><a title="按性别降序排列" <%if px="j_sex" then%> style="color:red" <%end if%> href="list.asp?px=j_sex&search_txt=<%=search_txt%>">↓</a></font></td>
        <td width="116" align="center" bgcolor="#FF9966" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#FFFFFF">来自<a title="按籍贯升序排列" <%if px="s_home" then%> style="color:red" <%end if%> href="list.asp?px=s_home&search_txt=<%=search_txt%>">↑</a><a title="按籍贯降序排列" <%if px="j_home" then%> style="color:red" <%end if%> href="list.asp?px=j_home&search_txt=<%=search_txt%>">↓</a></font></td>
        <td width="80" align="center" bgcolor="#FF9966" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#FFFFFF">生日<a title="按生日升序排列" <%if px="s_britherday" then%> style="color:red" <%end if%> href="list.asp?px=s_britherday&search_txt=<%=search_txt%>">↑</a><a title="按生日降序排列" <%if px="j_britherday" then%> style="color:red" <%end if%> href="list.asp?px=j_britherday&search_txt=<%=search_txt%>">↓</a></font></td>
        <td width="99" align="center" bgcolor="#FF9966" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#FFFFFF">网络寻呼机<a title="按网络传呼机号码升序排列" <%if px="s_netcall" then%> style="color:red" <%end if%> href="list.asp?px=s_netcall&search_txt=<%=search_txt%>">↑</a><a title="按网络传呼机号码降序排列" <%if px="j_netcall" then%> style="color:red" <%end if%> href="list.asp?px=j_netcall&search_txt=<%=search_txt%>">↓</a></font></td>
        <td width="110" align="center" bgcolor="#FF9966" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#FFFFFF">登记IP<a title="按登记IP升序排列" <%if px="s_ip" then%> style="color:red" <%end if%> href="list.asp?px=s_ip&search_txt=<%=search_txt%>">↑</a><a title="按登记IP降序排列" <%if px="j_ip" then%> style="color:red" <%end if%> href="list.asp?px=j_ip&search_txt=<%=search_txt%>">↓</a></font></td>
        <td width="81" align="center" bgcolor="#FF9966" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#FFFFFF">登记时间<a title="按登记时间升序排列" <%if px="s_date" then%> style="color:red" <%end if%> href="list.asp?px=s_date&search_txt=<%=search_txt%>">↑</a><a title="按登记时间降序排列" <%if px="j_date" then%> style="color:red" <%end if%> href="list.asp?px=j_date&search_txt=<%=search_txt%>">↓</a></font></td>
        <td width="69" align="center" bgcolor="#FF9966" 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="#FFFFFF">人气<a title="按人气升序排列" <%if px="s_renqi" then%> style="color:red" <%end if%> href="list.asp?px=s_renqi&search_txt=<%=search_txt%>">↑</a><a title="按人气降序排列" <%if px="j_renqi" then%> style="color:red" <%end if%> href="list.asp?px=j_renqi&search_txt=<%=search_txt%>">↓</a></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>
<p><map name="FPMap1">
<area shape="rect" coords="381, 4, 446, 18" href="sendphoto.asp">
<area shape="rect" coords="283, 4, 357, 18" href="register.asp"
 target="_blank">
<area shape="rect" coords="190, 4, 264, 18" href="list.asp">
<area shape="rect" coords="8, 2, 71, 16" href="your.asp">
<area shape="rect" coords="102, 4, 168, 18" href="no.htm">
</map><map name="FPMap2">
<area shape="rect" coords="336, 3, 361, 17" href="http://www.go88.net/wzsky/erso">
<area shape="rect" coords="296, 3, 321, 17" href="http://go88.net/wzsky/music">
<area shape="rect" coords="256, 4, 281, 18" href="http://go88.net/wzsky/bbs">
<area shape="rect" coords="213, 3, 238, 17" href="http://go88.net/wzsky/picknet">
<area shape="rect" coords="172, 3, 197, 17" href="http://go88.net/wzsky/club">
<area shape="rect" coords="131, 4, 156, 18" href="http://go88.net/wzsky/web">
<area shape="rect" coords="48, 4, 73, 18" href="http://go88.net/wzsky/game" target="_top">
<area shape="rect" coords="7, 4, 32, 18" href="http://www.wzsky.com" target="_top">
<area shape="rect" coords="90, 3, 115, 17" href="http://go88.net/wzsky/soft">
</map><!------------------------------------------------------------------------------------------------------------------------------>           
<!--#include file="sky.htm"-->           
</p>
</body></html>           
<%rs_lar.close:set rs_lar=nothing:set conn=nothing%>