WEB源码(ASP,PHP,...)

开发平台：
Windows_Unix

admin_edit.asp：源码内容
							<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员工作界面</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="link.css">
</head>
<body>
<%
   const MaxPerPage=30
   dim totalPut    
   dim CurrentPage 
   dim TotalPages 
   dim i,j 
   dim keyword  
   uname=request("uname")
   keyword=trim(request("keyword"))   
   dim user_province 
  user_province=request("user_province") 
   if not isempty(request("page")) then 
      currentPage=cint(request("page")) 
   else 
      currentPage=1 
   end if 
    
%> 
 
<div align="center"><center> 
 
<table border="0" width="77%" class="cls3" cellspacing="0" cellpadding="0"> 
  <tr> 
        <td width="31%" class="cls3"><a href="index.htm">返回首页</a><font color="#000080">&gt;&gt;用户管理</font></td> 
    <td width="60%" class="cls3"><font color="#000080">&nbsp;
          </font><p align="right"><font color="#000080">欢迎管理员<%=uname%>到会员管理处管理,谢谢:)
          </font></td> 
  </tr> 
</table> 
    <p>&nbsp;</p>
    <p><a href="admin_alluser_print.asp" target="_blank">打印所有会员名单按信封格式打印，可以拷贝到Word里面去修改</a></p>
  </center>
</div> 
<p align="center">
<form method="post" action="admin_edit.asp" name=addbt3>
  <div align="center">查询会员姓名关键字：<font color="#FF0000"><%=keyword%></font><br>
    按姓名关键字： 
      <input class=TextBorder maxlength=25 name=keyword size=15>
    &nbsp;&nbsp; 
    <input type="submit" class=buttonface name="Submit" value="搜 索" onClick="check3()">
  </div>
</form> 
<div align="center">
<% 
dim sql 
dim rs 
sql="select * from member where rname like '%"&keyword&"%' order by id desc " 
'response.write sql
Set rs= Server.CreateObject("ADODB.Recordset") 
if user_province="" then
rs.open "select * from member where rname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 
rs.open sql,conn,1,1 
end if 
if rs.eof and rs.bof then 
      response.write "<p align='center'> 还 没 有 任 何 会 员 资 料 ！</p>" 
   else 
	  totalPut=rs.recordcount 
      totalPut=rs.recordcount 
      if currentpage<1 then 
          currentpage=1 
      end if 
      if (currentpage-1)*MaxPerPage>totalput then 
	   if (totalPut mod MaxPerPage)=0 then 
	     currentpage= totalPut  MaxPerPage 
	   else 
	      currentpage= totalPut  MaxPerPage + 1 
	   end if 
 
      end if 
       	       if currentPage=1 then 
                    showpages 
                    showContent 
					showpages 
	           else 
		         if (currentPage-1)*MaxPerPage<totalPut then 
		            rs.move  (currentPage-1)*MaxPerPage 
		            dim bookmark 
		            bookmark=rs.bookmark 
                    showpages 
                    showContent 
					showpages 
                  else 
			        currentPage=1 
                   showpages 
                    showContent 
                   showpages 
			      end if 
			   end if 
			   rs.close 
   end if 
	         
  
    set rs=nothing   
   conn.close 
   set conn=nothing 
 
   sub showContent 
       dim i 
	   i=0 
   
%> 
<div align="center"><center> 
 
      <table border="1" cellspacing="0" width="85%" bordercolorlight="#000000" 
bordercolordark="#FFFFFF" cellpadding="0">
        <tr>
          <td width="8%" align="center" bgcolor="#FEEC85"><strong>用户ID</strong></td> 
          <td width="10%" align="center" bgcolor="#FEEC85"><strong>真实姓名</strong></td>
          <td width="19%" align="center" bgcolor="#FEEC85"><strong>籍贯</strong></td>
          <td width="13%" align="center" bgcolor="#FEEC85"><strong>报考语言种类</strong></td>
          <td width="17%" align="center" bgcolor="#FEEC85"><strong>身份证号</strong></td>
          <td width="13%" align="center" bgcolor="#FEEC85"><strong>联系电话</strong></td>
          <td width="11%" align="center" valign="middle" bgcolor="#FEEC85"><strong><strong>删除资料</strong><strong></td>
          <td width="9%" align="center" bgcolor="#FEEC85"><strong>修改资料</strong></td>
        </tr>
        <%do while not rs.eof%> 
        <tr>
          <td bgcolor="#FFFCD9"><div align="center"><%=rs("uID")%></div></td> 
          <td bgcolor="#FFFCD9" height="23"> 
            <p align="center" bgcolor="#E8E8E8"><%=rs("rname")%>
          </td>
          <td bgcolor="#FFFCD9"> 
            <p align="center"><%=rs("user_province")%><%=rs("user_city")%>
          </td>
          <td bgcolor="#FFFCD9"><%=rs("jbyydm")%></td>
          <td bgcolor="#FFFCD9"><%=rs("sfzh")%></td>
          <td bgcolor="#FFFCD9"><%=rs("tel1")%></td>
          <td bgcolor="#FFFCD9">
            <p align="center"><a href="admin_del.asp?id=<%=rs("id")%>&amp;page=<%=currentpage%>">删除</a>
          </td>
          <td bgcolor="#FFFCD9">
            <p align="center"><a href="admin_change.asp?id=<%=rs("id")%>&amp;page=<%=currentpage%>">修改</a> 
          </td>
        </tr>
        <% i=i+1 
	      if i>=MaxPerPage then exit do 
	      rs.movenext 
	   loop 
		  %> 
      </table> 
</center></div><% 
   end sub  
   sub showpages() 
          dim n 
	   if (totalPut mod MaxPerPage)=0 then 
	      n= totalPut  MaxPerPage 
	   else 
	      n= totalPut  MaxPerPage + 1 
	   end if 
response.write "<p align=center><font color=red>" 
response.write request("user_province") 
response.write "</font>" 
response.write "<font color='#000080'>&nbsp;共</font><b><font color=red>"&totalput&"</font></b><font color='#000080'>项资料</font>  " 
	   dim k 
	   response.write "分页 " 
	   for k=1 to n 
	       if k=currentPage then 
	          response.write "[<b>"+Cstr(k)+"</b>] " 
		   else 
		      response.write "[<b>"+"<a href='admin_edit.asp?page="+cstr(k)+"&user_province="&keyword&"'>"+Cstr(k)+"</a></b>]   " 
		   end if 
	next 
	   response.write "  <a href=admin_edit.asp style='TEXT-DECORATION: underline'><font color=red>到管理员首页</font></a>" 
	   response.write "</p>" 
   end sub 
%> 
</div> 
 
<table border="0" width="100%" cellspacing="0" cellpadding="0"> 
  <tr> 
    <td width="100%"><p align="center"><a href="http://bbs.siyigu.com">草剑<font color="#000080">制作</font></a><font color="#000080">,┃&copy;2005,All  
    Right Server</font></td> 
  </tr> 
</table> 
</body> 
</html> 

						