searchuser.asp

功能简介： 前台: 1.用户名注册:登 录 名：密码：确认密码：性别：查询权限： 地址： 联系电话： 移动电话： E - mail： 工作单位 2.系统优点管理,公告新闻管理,联系我们管理

 <!--#include file="conn.asp"-->
 <LINK 
href="images/25175css_pro.css" type=text/css rel=stylesheet>

<form action="delcls.asp?type=2" method=post>
                        <table id="t111"  cellspacing=0 cellpadding=2 width="50%" 
                                align=center border=1>
                                  <tbody>
                                    <tr>
                                      <td height=23  align="center" width="20%" >编号</td>
                                      <td height=23  align="center" width="20%" >用户名</td>
									   <td height=23  align="center" width="20%" >状态</td>
                                      <td height=23  align="center" colspan="2" width="40%" >操作</td>
                                    </tr>
                                    
                                    <%
								  dim pgsize,pgnum,pgcount,datacount,district,intpage,url,sql
								  set rs=server.createobject("adodb.recordset")
								
								  url="searchUser.asp"
								  pgsize=15
								  pgnum=1
								  pgcount=0
								  datacount=0
								  district=0
						
								 
								 if(request("page")<>"") then
								 	sql=session("sql")
										rs.open sql,conn,1,1
								 	datacount=rs.recordcount
									rs.pagesize=15
            					 	pgcount=rs.Pagecount
            					 	pgnum=session("pgnum")          
           							intpage=request("page")								
									
									select case intpage
										case 1
										
										pgnum=1
									
										case 2
										pgnum=pgnum-1
										
										case 3
										pgnum=pgnum+1
										
										case 4
										pgnum=pgcount
									end select	
            
            						session("pgnum")=pgnum
								 
								 else
								 dim classid,sname,data_timeopen,data_timeend
								 sql="select *  from   regist where 1=1"
								 
								 if request("username")<>"" then
								  sql=sql &" and username like '%"&request("username")&"%'"
								 end if
								
								 
								 session("sql")=sql
								
										rs.open sql,conn,1,1
									if Not(rs.bof and rs.eof) then
									datacount=rs.recordcount		 
									rs.pagesize=15
									pgcount=rs.Pagecount
									
									end if
               						session("datacount")=datacount
            						session("pgcount")=pgcount
            						session("pgnum")=pgnum
								 
								 end if
								
								 
								 
								 if not rs.eof then
								 rs.move (Cint(pgnum)-1)*15,1
								  dim n
								 n=1
	for i=1 to rs.pagesize
								 
								 %>
                                    <tr>
                                      <td height=23  align="center" width="20%" ><a href="updateuser.asp?id=<%=rs("id")%>" target="_parent"><%=(pgnum-1)*15+n%></a></td>
                                      <td height=23  align="center" width="20%" ><a href="updateuser.asp?id=<%=rs("id")%>" target="_parent"><%=rs("username")%></a></td>
									  <td height=23  align="center" width="20%" ><%if rs("isadjust")=0 then  response.write("未审核") else response.write("已审核") end if%></td>
                                      <td height=23 align="center"  width="20%" >
									  
									  <%if rs("isadjust")=0 then%>
									  
									  <a href="shuser.asp?id=<%=rs("id")%>" target="_parent">审核</a>
									  
									  <%else%>
									  &nbsp;
									  <%end if%>									  </td>
                                      <td height=23 align="center"  width="20%" ><a href="deluser.asp?id=<%=rs("id")%>" target="_parent">删除</a>&nbsp;&nbsp;</td>
                                    </tr>
                                    <%	rs.movenext
			   		if rs.eof then exit for
					n=n+1
					next%>
                                    <%else%>
                                    <tr>
                                      <td colspan="5"><table cellspacing=0 cellpadding=2  width="100%" 
                                align=center border=0>
                                          <tbody>
                                            <tr>
                                              <td height=23 align="center"  width="100%" >查无此记录</td>
                                            </tr>
                                          </tbody>
                                      </table></td>
                                    </tr>
                                    <%end if
	
	
	rs.close
		set rs=nothing
	%>
                                  </tbody>
                                </table></TD>
</TR>	  
								
							<TR><TD>
                                <TABLE cellSpacing=0 cellPadding=2  width="50%" 
                                align=center border=0>
                                <TBODY>
                                <TR>
								
								<TD height=23 colspan="9" align="center"  width="100%" >
							
								
								 共<%=datacount%>条记录，当前<%=pgnum%>/<%=pgcount%>页&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <%
            if  pgnum>1  then
        %>
        <a href="<%=url%>?page=1">首页</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="<%=url%>?page=2">上一页</a>&nbsp;&nbsp;&nbsp;&nbsp;
        <%end if
            if pgnum<pgcount then
        %>
        <a href="<%=url%>?page=3">下一页</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="<%=url%>?page=4">尾页</a>
        <% end if%>								</TD>
								</TR></TBODY></TABLE>
						</form>