admin.asp

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

<!------------------------------------------------------------------------------------------------------------------------------>
<table border="0" width="750" cellspacing="0" cellpadding="3">
  <tr>
    <td bgcolor="#336699" style="border-bottom-style: solid" bordercolor="#336699" width="88" height="19"><a href="default.asp"><font color="white">交友首页</font></a></td>
    <td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="adminreg.asp" class="x"><font color="white">入会管理</font></a></b></td>
    <td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="admin.asp" class="x"><font color="white">档案管理</font></a></b></td>
    <td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="no.htm" class="x"><font color="white">相片管理</font></a></b></td>
    <td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="no.htm" class="x"><font color="white">留言管理</font></a></b></td>
    <td style="border-bottom-style: solid" bordercolor="#336699" width="76" height="19" bgcolor="#000000"><b><a href="no.htm" class="x"><font color="white">启事管理</font></a></b></td>
    <td style="border-bottom-style: solid" bordercolor="#336699" width="76" height="19" bgcolor="#000000"><a href="exitadmin.asp" class="x"><b><font color="white">退出管理</font></b></a></td>
    <td style="border-bottom-style: solid" bordercolor="#336699" width="125" height="19" bgcolor="#000000"><font color="white">&nbsp;</font></td>
    <td style="border-bottom-style: solid" bordercolor="#336699" width="92" height="19" bgcolor="#000000"><font color="white">&nbsp;</font></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"><i><%if search_txt<>"" then%>以下是包含关键字<font color="#ff0000"><%=search_txt%></font>的所有网友<%else%>以下是所有网友的列表</i><%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="admin.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>  
  <!------------------------------------------------------------------------------------------------------------------------->  
  <form name="form1">  
    <table border="0" width="750" cellspacing="0">  
        <tr>  
        <td width="87" align="center" bgcolor="#000000" 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="admin.asp?px=s_netname&search_txt=<%=search_txt%>">↑</a><a title="按网名降序排列" <%if px="j_netname" then%> style="color:red" <%end if%> href="admin.asp?px=j_netname&search_txt=<%=search_txt%>">↓</a></font></td>  
        <td width="60" align="center" bgcolor="#000000" 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="admin.asp?px=s_sex&search_txt=<%=search_txt%>">↑</a><a title="按性别降序排列" <%if px="j_sex" then%> style="color:red" <%end if%> href="admin.asp?px=j_sex&search_txt=<%=search_txt%>">↓</a></font></td>  
        <td width="116" align="center" bgcolor="#000000" 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="admin.asp?px=s_home&search_txt=<%=search_txt%>">↑</a><a title="按籍贯降序排列" <%if px="j_home" then%> style="color:red" <%end if%> href="admin.asp?px=j_home&search_txt=<%=search_txt%>">↓</a></font></td>  
        <td width="80" align="center" bgcolor="#000000" 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="admin.asp?px=s_britherday&search_txt=<%=search_txt%>">↑</a><a title="按生日降序排列" <%if px="j_britherday" then%> style="color:red" <%end if%> href="admin.asp?px=j_britherday&search_txt=<%=search_txt%>">↓</a></font></td>  
        <td width="99" align="center" bgcolor="#000000" 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="admin.asp?px=s_netcall&search_txt=<%=search_txt%>">↑</a><a title="按网络传呼机号码降序排列" <%if px="j_netcall" then%> style="color:red" <%end if%> href="admin.asp?px=j_netcall&search_txt=<%=search_txt%>">↓</a></font></td>  
        <td width="110" align="center" bgcolor="#000000" 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="admin.asp?px=s_ip&search_txt=<%=search_txt%>">↑</a><a title="按登记IP降序排列" <%if px="j_ip" then%> style="color:red" <%end if%> href="admin.asp?px=j_ip&search_txt=<%=search_txt%>">↓</a></font></td>  
        <td width="81" align="center" bgcolor="#000000" 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="admin.asp?px=s_date&search_txt=<%=search_txt%>">↑</a><a title="按登记时间降序排列" <%if px="j_date" then%> style="color:red" <%end if%> href="admin.asp?px=j_date&search_txt=<%=search_txt%>">↓</a></font></td>  
        <td width="55" align="center" bgcolor="#000000" 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="admin.asp?px=s_renqi&search_txt=<%=search_txt%>">↑</a><a title="按人气降序排列" <%if px="j_renqi" then%> style="color:red" <%end if%> href="admin.asp?px=j_renqi&search_txt=<%=search_txt%>">↓</a></font></td>  
        <td width="44" align="center" bgcolor="#000000" 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">删除</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="adminread.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" 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("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="55" 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>  
        <td width="44" 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"><a href="deluser.asp?user_id=<%=rs_lar("user_id")%>">[删除]</a></td>  
      </tr>  
      <%rs_lar.movenext%>  
      <%line=line+1%>  
      <%loop%>  
      <%rs_lar.close%>  
    </table>  
    </form>  
  <!-------------------------------------分页导航--------------------------------------->  
  <table align="center" width="750">  
    <tr>  
      <td>  
        
      <%if currentpage>1 then%>  
      <font size="2"><a href="admin.asp?currentpage=<%=currentpage-1%>&search_txt=<%=search_txt%>&px=<%=px%>"><font size="2">[上一页]</font></a>  
      <%end if%>  
      <%if currentpage<pages then%>  
      <a href="admin.asp?currentpage=<%=currentpage+1%>&search_txt=<%=search_txt%>&px=<%=px%>">[下一页]</a>  
      <%end if%>  
      <%if currentpage>1 then%>  
      <a href="admin.asp?currentpage=1&search_txt=<%=search_txt%>&px=<%=px%>">[最首页]</a>  
      <%end if%>  
      <%if currentpage<pages then%>  
      <a href="admin.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"><input type="submit" value="搜索" name="B1"><a href="search.asp">[高级搜索]</a>  
      </p>  
      </td>  
   </tr>  
    <tr>  
      <td width="100%" height="12">  
      <p align="center">关键字为空列出所有网友  
      </td>  
    </tr>  
  </table>  
</form>  
</body>  
</html>