u_lb_rx.asp

网上报名系统!用于 电脑学校(院)

<!--#include file="conn.asp" -->

<%
rx=request("rx")
session(rx)=request("rx")
exec="select * from user where rx='"+rx+"'order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>




<link href="../css/aindex.css" rel="stylesheet" type="text/css" />
<link href="../css/index.css" rel="stylesheet" type="text/css" />
<link href="../css/alink.css" rel="stylesheet" type="text/css" />
<table width="100%" align="right" cellpadding="5" cellspacing="1" class="bx"> 
     <tr>
       <td colspan="8" bgcolor="#FFFFFF" class="bg">会员列表</td>
     </tr>
     <tr>
       <td colspan="8" bgcolor="#FFFFFF"><!--#include file="u_so.asp" --></td>
     </tr>
     <tr>
       <td colspan="8" class="bg4">
	   
	   
<%
rs.pagesize=10
pagecount=rs.pagecount
page=int(request.QueryString("page"))
bt=session(rx)
if page<1 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page

%>

   <%
		if Page<>1 then
			response.write "<a href=?rx="+cstr(bt)+"&page=1>首页</a> "
			response.write "<a href=?rx="+cstr(bt)+"&page="+cstr(Page-1)+">上一页</a> "  '********
		  else
			Response.Write "首页 上一页 "
			
		end if
		
		if Page<>pagecount then
			response.write "<a href=?rx="+cstr(bt)+"&page="+cstr(Page+1)+">下一页</a> "
			response.write "<a href=?rx="+cstr(bt)+"&page="+cstr(pagecount)+">尾页</a> "
		  else
			Response.Write "下一页 尾页 "
		end if
	%>
	
	<% for i=1 to pagecount %>
	  <% if cstr(i)=request.querystring("page") then 
	     response.write(cstr(i))
	     else
	     response.write" <a href=?rx="+cstr(bt)+"&page="+cstr(i)+">"+cstr(i)+"</a> "
	     end if
	   %>
	<% next %>
</td>
     </tr>
     <tr>
	   <td width="13%" class="bg">用户</td>
	   <td width="12%" class="bg">姓名</td>
	   <td width="5%" class="bg">性别</td>
	   <td width="9%" class="bg">生日</td>
	   <td width="13%" class="bg">电话</td>
	   <td width="12%" class="bg">QQ</td>
	   <td width="11%" class="bg">操作</td>
       <td width="25%" class="bg">是否已入学</td>
     </tr>
<% for i=1 to rs.pagesize %>	 
<% if rs.eof then
   exit for
   end if
%>
     <tr bgColor=#FFFFFF onMouseOver="javascript:this.bgColor='#E6F7FB';"onMouseOut="javascript:this.bgColor='#FFFFFF';" >
	   <td><a href="u_u.asp?id=<%=rs("id")%>"><%=rs("uname")%></a>　　　　</td>
	   <td><a href="u_u.asp?id=<%=rs("id")%>"><%=rs("un")%></a><font color=#009900"><strong><%if rs("rx")="是" then response.write"√" %></strong></font></td>
	   <td align="center"><%=rs("xb")%></td>
	   <td><%=rs("sr")%></td>
	   <td><%=rs("tel")%></td>
	   <td><a href="href=http://wpa.qq.com/msgrd?V=1&Uin=314191031&Site=互动服务&Menu=yes"target=blank ><%=rs("qq")%></a></td>
       <td>
	   <a href="u_check.asp?id=<%=rs("id")%>">修改</a>
	   <a href="u_del.asp?id=<%=rs("id")%>">删除</a>  
	   <a href="u_check.asp?id=<%=rs("id")%>"></a></td>
       <td>
       <%
	    if rs("rx")="是" then 
		  Response.Write "<a href=ubm.asp?rx=否&id="&rs("id")&">√</a>"
        else
	      Response.Write "<a href=ubm.asp?rx=是&id="&rs("id")&">●</a>" 
		end if		
	   %></td>
     </tr>
<%
rs.movenext
next
%>  
</table>