userlist.asp

自己做的毕业设计

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

<meta http-equiv="Content-Language" content="zh-cn">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<SCRIPT language=JavaScript>
function showoperatealert(id)
{
		if (id==1)
        {

		{
		  	thisForm.target='_self';
			thisForm.action="user_del.asp";
			thisForm.submit();
		}
		}
		if (id==2)
        {

		{
		  	thisForm.target='_self';
			thisForm.action="user_add.asp";
			thisForm.submit();
		}
		}
		
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall' )
       e.checked = form.chkall.checked;
    }
  }
//-->
    </SCRIPT>
<style type="text/css">
<!--
body {
	background-color: #E7EEF5;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style><div align="center">
 <table width="100%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#C5D5E4" style="font-size:12px; letter-spacing:1px;">
<tr bgcolor="#B6EBC4">
<td width="49%" height="20" bgcolor="#E8EEF4" style="margin-top: 0; margin-bottom: 0">
    <FORM name=sou1 action="?cnmai=1" method=POST style="line-height: 100%; margin-top: 0; margin-bottom: 0">
    <p align="center">用户名：
      <input type="text" name="T1" size="20">
    <input type="submit" value="查找" name="B1">
    </form>    </td>
    <td width="51%" height="20" bgcolor="#E8EEF4" style="margin-top: 0; margin-bottom: 0">
    <FORM name=sou2 action="?cnmai=2" method=POST style="line-height: 100%; margin-top: 0; margin-bottom: 0">
    <p align="center">姓名：
      <input type="text" name="T2" size="20">
    <input type="submit" value="查找" name="B1">
    </form>    </td>
  </tr>
</table>
</div>
<div align="center">
  <center>
 <table width="100%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#C5D5E4" style="font-size:12px; letter-spacing:1px;">

<FORM name=thisForm action="" method=POST style="line-height: 100%; margin-top: 0; margin-bottom: 0">
<%
dim rs,sql,k,cnmai,rs1
dim ThisPage,Pagesize,Allrecord,Allpage
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
cnmai=request("cnmai")
set rs = Server.CreateObject("ADODB.RecordSet")
set rs1 = Server.CreateObject("ADODB.RecordSet")
Select Case cnmai
Case "1"
sql = "select * from [user] where [username] like '%"&trim(request("T1"))&"%' order by id desc"
Case "2"
sql = "select * from [user] where [name] like '%"&trim(request("T2"))&"%' order by id desc"
Case Else
sql="select * from [user] order by id desc"
End Select
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>还没有用户数据！"
response.end
end if
rs.Pagesize=10
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
k=0
%>
<tr bgcolor="#B6EBC4">
    <td width="11%" height="30" bgcolor="#C5D5E4" >
    <p align="center">编号</td>
    <td width="19%" height="30" bgcolor="#C5D5E4" >
    <p align="center">姓名</td>
    <td width="13%" height="30" bgcolor="#C5D5E4" >
    <p align="center">性别</td>
    <td width="21%" height="30" bgcolor="#C5D5E4" >
      <p align="center">登陆帐号</td>
    <td width="21%" height="30" bgcolor="#C5D5E4">
    <p align="center">证件号</td>
    <td height="30" colspan="2" align="center" bgcolor="#C5D5E4" >
    操作</td>
  </tr>
  <%
  dim id
  do while not rs.eof
  id=rs("id")
  %>
<tr onmouseover="this.style.backgroundColor='#EFE8D6';return true;" onmouseout="this.style.backgroundColor='#FFFFFF';">
    <td width="11%" height="25" bgcolor="#E3EBF2" >
    <p align="center"><%=k+1%></td>
    <td width="19%" height="25" bgcolor="#E3EBF2" >
    <p align="center"><%=rs("name")%></td>
    <td width="13%" height="25" bgcolor="#E3EBF2" >
    <p align="center"><%=rs("sex")%></td>
    <td width="21%" height="25" bgcolor="#E3EBF2" >
    <p align="center"><%=rs("username")%></td>
    <td width="21%" height="25" bgcolor="#E3EBF2" >
    <p align="center">
      <%=rs("no")%>
    </td>
    <td width="8%" height="25" align="center" bgcolor="#E3EBF2" ><a href="user_edit.asp?id=<%=rs("id")%>"><img src="../img/edit.gif" alt="修改信息" width="16" height="16" border="0" style="cursor:hand" widtd="16"/></a></td>
    <td width="7%" align="center" bgcolor="#E3EBF2" ><input type="checkbox" name="selectedid" value="<%=trim(rs("id"))%>" /></td>
</tr>
  
    <%
    k=k+1
    rs.movenext
    if k>=Pagesize then exit do
	loop
	rs.close
    set rs=nothing
    set rs1=nothing
    closedb
	%>
  <tr>
    <td height="30" colspan="7" bgcolor="#E3EBF2">
         <table width="98%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#C5D5E4" style="font-size:12px; letter-spacing:1px;">
<tr bgcolor="#B6EBC4">
<td height="31" colspan="4" align="center" bgcolor="#DBE4EE">
<p align="center">
  <INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>选中所有记录&nbsp;&nbsp; 
  <input onclick=javascript:showoperatealert(2)  type="button" name="button" id="button" value="添加用户" />
  &nbsp;&nbsp; 
  <input onclick=javascript:showoperatealert(1) type="submit" value="删除用户" name="B1"></td>
</tr>
<tr> 
<td height="17" width="151" align="center">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td height="17" width="181" align="center">
共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="17" width="237" align="center">
现在是第 
                <font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="17" width="200" align="center">
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&t1="&trim(request("t1"))&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&t1="&trim(request("t1"))&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&t1="&trim(request("t1"))&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&t1="&trim(request("t1"))&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
          </table>    </td>
  </tr>
  </form>
</table>
  </center>
</div>