📄 viewuser.asp

📁 C2C二手交易网SMRUC v2.0 全部实现了C2C电子商务功能。特别适合高校、组织、社区实现自己的C2C电子商务。 C2C二手交易网SMRUC v2.0具有强大的用户自主发布和管理信息功能
💻 ASP
字号:
<%
if session("admin_name")="" then
    response.write "<script LANGUAGE='javascript'>alert('对不起，登陆超时！');</script>"
	response.end
end if
%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>中国人民大学二手交易网-前台用户管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="../css.css" type=text/css rel=STYLESHEET>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</HEAD>
<BODY>
<DIV align=center>
  <TABLE cellSpacing=0 cellPadding=0 width=599 border=0>
    <!--DWLayoutTable-->
    <TBODY>
  <TR>
    <TD width=9 height=38>&nbsp;</TD>
    <TD width=492>&nbsp;</TD>
    <TD width=10>&nbsp;</TD></TR>
  <TR>
    <TD height=75>&nbsp;</TD>
    <TD vAlign=top>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <!--DWLayoutTable-->
            <TBODY>
              <TR> 
                <TD vAlign=top height=20><TABLE cellSpacing=1 cellPadding=1 width="100%" bgColor=#00ffff 
            border=0>
                    <!--DWLayoutTable-->
                    <TBODY>
                      <TR> 
                        <TD vAlign="center" align="middle" width=101 bgColor="#66CCFF" height=20>用户名</TD>
                        <TD vAlign="center" align="middle" width=131 bgColor=#66ccff height=20>最后登陆IP</TD>
                        <TD vAlign="center" align="middle" width=142 bgColor=#66ccff height=20>E-mail</TD>
                        <TD vAlign="center" align="middle" width=94 bgColor=#66ccff height=20>信息/登陆 
                          次数 </TD>
                        <TD vAlign="center" align="middle" width=95 bgColor=#66ccff height=20>操作</TD>
                      </TR>
                    </TBODY>
                  </TABLE></TD>
              </TR>
              <%
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)

set rs=server.createobject("adodb.recordset")
sql="select * from [user] order by user_name asc"
rs.open sql,conn,1,1
if rs.eof then
%>
              <TR> 
                <td >暂且没有注册用户</td>
              </TR>
              <%else
			  set rs1=server.createobject("adodb.recordset")
			  
rs.pagesize=30
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
dim user_id(),user_ip(),user_name(),user_mail()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve user_id(i),user_ip(i),user_name(i),user_mail(i),user_logincount(i),user_infocount(i)
user_id(i)=rs("user_id")
user_ip(i)=rs("user_ip")
user_name(i)=rs("user_name")
user_mail(i)=rs("user_mail")
user_infocount(i)=rs("user_infocount")
user_logincount(i)=rs("user_logincount")
rs.movenext
loop
rs.close
for i=1 to ubound(user_name)
		%>
              <TR> 
                <TD vAlign=top height=20><TABLE cellSpacing=1 cellPadding=1 width="100%" bgColor=#00ffff border=0>
                    <!--DWLayoutTable-->
                    <TBODY>
                      <TR> 
                        <TD vAlign="center" align="middle" width=101 bgColor="#ffffff" height=20><%=user_name(i)%></TD>
                        <TD vAlign="center" align="middle" width=131 bgColor="#ffffff" height=20><%=user_ip(i)%></TD>
                        <TD vAlign="center" align="middle" width=142 bgColor="#ffffff" height=20><%=user_mail(i)%></TD>
                        <TD vAlign="center" align="middle" width=94 bgColor="#ffffff" height=20><%=user_infocount(i)%> | <%=user_logincount(i)%></TD>
                        <TD vAlign="center" align="middle" width=95 bgColor="#ffffff" height=20><a href="deluser.asp?Uid=<%=user_id(i)%>">删除</a></TD>
                      </TR>
                    </TBODY>
                  </TABLE></TD>
              </TR>
              <%next
end if%>
              <TR> 
                <TD height=21 valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#00CCFF">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td width="215" height="21">#按用户名音序排列</td>
                      <td width="55" align="center" valign="middle">第<%=page%>页</td>
                      <td width="55" align="center" valign="middle">共<%=totalpage%>页</td>
                      <td width="55" align="center" valign="middle"><%if page>1 then%><a href="viewuser.asp?page=<%=page-1%>">上一页</a><%end if%></td>
                      <td width="55" align="center" valign="middle"><%if page<totalpage then%><a href="viewuser.asp?page=<%=page+1%>">下一页</a><%end if%></td>
					  <td width="88" align="center" valign="middle">转到
                          <select name="menu1" onChange="MM_jumpMenu('self',this,0)">
						  <%for i=1 to totalpage%>
                            <option value="viewuser.asp?page=<%=i%>"><%=i%></option>
							<%next
							%>
                          </select>
                          页 </td>
                    </tr>
                  </table></TD>
              </TR>
              <TR>
                <TD height=14>&nbsp;</TD>
              </TR>
            </TBODY>
          </TABLE></TD>
    <TD>&nbsp;</TD></TR>
</TBODY></TABLE></DIV></BODY></HTML>
⌨️ 快捷键说明

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