📄 admin_member4.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
admintyp=request.querystring("admintyp")
%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">

<body style="background-color: #D6DFF7">
  
<div align="center">
  <center>
  
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <form name="form1" method="post" action="admin_sysadd.asp">
    <tr> 
      <td background="images/admin/admin_bg_1.gif" height="20">
        <div align="center" class="f1">已 注 册 个 人 会 员 列 表</div>
      </td>
    </tr>
    <tr> 
      <td>
         <table width="100%" border="0" cellpadding="0" bordercolor="#FFFFFF" height="20" style="border-collapse: collapse">
          <tr align="center"> 
            <td width="100%" bgcolor="#D6DFFF">
            <p align="left">说明：</td>

          </tr>
        </table>  
        <div align="center">
          
        <table width="98%" border="1" cellpadding="0" height="20" style="border-collapse: collapse" bordercolor="#6687BA" cellspacing="0">
          <tr align="center"> 
            <td width="20%">会员名称</td>
            <td width="20%">所在省份</td>
            <td width="17%">登陆密码</td>
            <td width="18%">客户类型</td>
            <td width="20%">注册日期</td>
            <td width="5%">删除</td>
          </tr>
        </table>
		  	</div>
		  <%
		  Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from userpersreg where usertyp='个人' order by id desc"
rs.open sql,conn,3,3
if rs.eof then
%>
          <table width="100%" border="0" cellpadding="0" style="border-collapse: collapse">
            <tr>
              <td>
              <div align="center" class="f1">暂 无 人 注 册</div>
            </td>
            </tr>
          </table>
		  <% else
		  rs.Pagesize=20
page=clng(request("page"))
if page<1 or page=empty then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page
		  do while not rs.eof
		  %>
          
        <div align="center">
          
        <table width="98%" border="1" height="20" style="border-collapse: collapse" bordercolor="#FFFFFF" cellspacing="0">
          <tr> 
            <td width="20%" align="center"><%=rs("login_name")%></td>
            <td width="20%" align="center"><%=rs("province")%></td>
            <td width="17%" align="center"><%=rs("password")%></td>
            <td width="18%" align="center"><%=rs("sales")%></td>
            <td width="20%" align="center"><%=rs("date")%>
		   &nbsp; 
         </td> 
            <td width="5%" align="center"><a href="admin_member4.asp?cmd=del&id=<%=rs("id")%>"><img src="images/cross.jpg" alt="删除此会员" width="16" height="16" border="0"></a></td> 
          </tr> 
        </table> 
		  </div>
		  <%  
		  i=i+1 
		  if i>20 then exit do 
		  rs.movenext 
		        loop 
				end if 
				%>
        <div align="center">
          <center> 
        <table width="100%" border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111"> 
          <tr>  
            <td> <% 
if page<>1 then %> <div align="center"><a href=<%=myself%>?page=1>第一页</a>  
                <a href=<%=myself%>?page=<%=(page-1)%>>上一页</a>  
                <% 
end if 
if page<>rs.pagecount then 
%> 
                <a href=<%=myself%>?page=<%=(page+1)%>>下一页</a> <a href=<%=myself%>?page=<%=rs.pagecount%>>最后一页</a>  
                <% end if %> 
                <font style="font-size:9pt">&nbsp;输入页次:</font>  
                <input type=text name=page22 size=3 class="border"> 
                <font style="font-size:9pt">页次:</font><font color=red style="font-size:9pt"><%=page%>/<%=rs.pagecount%></font> 共有记录<font color=red style="font-size:9pt"><%=rs.recordcount %></font>条</div></td> 
          </tr> 
        </table> </center>
        </div>
      </td> 
    </tr> 
  </form> 
</table> 
  </center>
</div>
</body> 
</html> 
 
<%  
if request.QueryString("cmd")="del" then 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="select * from userpersreg where id="& request.QueryString("id") &"" 
rs.open sql,conn,3,3 
rs.delete 
response.Redirect("admin_member4.asp") 
end if 
%> 
<%  
end if 
rs.close 
set rs=nothing 
set conn=nothing 
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -