📄 edit_user.asp

📁 鄂尔多斯建站网全站程序(冬季修正版)
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<!--#include file="../include/code.asp"-->
<%
'**********************************
'版本:host_free 3.0               *
'官方网站:http://www.850518.com   *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版)     *
'msn: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from duser order by id desc" 
rs.open sql,conn,1,1
%>
<%
   const maxperpage=20   
   dim totalput   
   dim currentpage
   dim totalpages
   dim i,j
   if not isempty(request("page")) then
      currentpage=cint(request("page"))
   else
      currentpage=1
   end if
   
%>
<html>

<head>
<meta http-equiv="content-language" content="zh-cn">
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<meta name="generator" content="microsoft frontpage 6.0">
<meta name="progid" content="frontpage.editor.document">
<link href="style.css" rel=stylesheet>
</head>

<body style="background-color: #eeeeee">

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="1" width="600" bgcolor="#626262">
    <tr>
      <td height="20">&nbsp;&nbsp;<%call user_title%></td>
    </tr>
    <tr>
      <td height="500" bgcolor="#ffffff" valign="top">
		<div align="center">
			<table border="0" cellpadding="0" cellspacing="0" width="95%" id="table1">
				<tr>
					<td>　</td>
				</tr>
				<tr>
					<td>
					<p align="center"><%   
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   
           showpage totalput,maxperpage,"edit_user.asp"   
            showcontent   
            showpage totalput,maxperpage,"edit_user.asp"   
       else   
          if (currentpage-1)*maxperpage<totalput then   
            rs.move  (currentpage-1)*maxperpage   
            dim bookmark   
            bookmark=rs.bookmark   
           showpage totalput,maxperpage,"edit_user.asp"   
            showcontent   
             showpage totalput,maxperpage,"edit_user.asp"   
        else   
	        currentpage=1   
           showpage totalput,maxperpage,"edit_user.asp"   
           showcontent   
           showpage totalput,maxperpage,"edit_user.asp"   
	      end if   
	   end if   
   rs.close   
   end if   
	           
   set rs=nothing     
   conn.close   
   set conn=nothing   
     
   
   sub showcontent   
       dim i   
	   i=0   
     
%></td>
				</tr>
				<tr>
					<td>　</td>
				</tr>
				<tr>
					<td>
					<div align="center">
						<table border="0" cellpadding="0" cellspacing="1" width="100%" id="table2" bgcolor="#626262">
							<tr>
								<td height="20" align="center" width="64">
								<font color="#ffffff">会员编号</font></td>
								<td height="20" align="center">
								<font color="#ffffff">用户名</font></td>
								<td height="20" align="center" width="209">
								<font color="#ffffff">注册时间</font></td>
								<td height="20" align="center" width="102">
								<font color="#ffffff">操作管理</font></td>
							</tr>
							<%do while not rs.eof%>
							<tr>
								<td height="20" bgcolor="#ffffff" align="center" width="64"><%=rs("id")%></td>
								<td height="20" bgcolor="#ffffff" align="center"><%=rs("d_webname")%></td>
								<td height="20" bgcolor="#ffffff" align="center" width="209"><%=rs("d_time")%></td>
								<td height="20" bgcolor="#ffffff" align="center" width="102">
								<a class="red" href="save_user.asp?id=<%=rs("id")%>">修改</a> | <a class="red" href="del.asp?id=<%=rs("id")%>&action=del_user" onclick="return confirm('确定要删除吗？\n\n该操作不可恢复！')">删除</a></td>
							</tr>
							<% i=i+1  
	      if i>=maxperpage then exit do  
	      rs.movenext  
	   loop  
		  %> 
						</table>
					</div>
					</td>
				</tr>
				<tr>
					<td>　</td>
				</tr>
				<tr>
					<td>
					<p align="center"><% 
   end sub  
 
function showpage(totalnumber,maxperpage,filename) 
  dim n 
  if totalnumber mod maxperpage=0 then 
     n= totalnumber \ maxperpage 
  else 
     n= totalnumber \ maxperpage+1 
  end if 
  response.write "<form method=post action="&filename&">" 
  response.write "<p align='center'><font color='#000080'>分页</font>&nbsp;" 
  if currentpage<2 then 
    response.write "<font color='#000080'>首页 上一页</font>&nbsp;" 
  else 
    response.write "<a href="&filename&"?page=1&>首页</a>&nbsp;" 
    response.write "<a href="&filename&"?page="&currentpage-1&">上一页</a>&nbsp;" 
  end if 
  if n-currentpage<1 then 
    response.write "<font color='#000080'>下一页 尾页</font>" 
  else 
    response.write "<a href="&filename&"?page="&(currentpage+1) 
    response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>" 
  end if 
   response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&currentpage&"</font><font color='#000080'>/"&n&"</strong>页</font> " 
    response.write "<font color='#000080'>&nbsp;共<b>"&totalnumber&"</b>个会员<b> "&maxperpage&"</b>个会员/页</font> "  
end function 
%></td>
				</tr>
				<tr>
					<td>　</td>
				</tr>
			</table>
		</div>
		</td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
<%
'**********************************
'版本:host_free 3.0               *
'官方网站:http://www.850518.com   *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版)     *
'msn: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
⌨️ 快捷键说明

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