⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 userchk.asp

📁 这是我做的一个OA雏形
💻 ASP
字号:
<!--#INCLUDE FILE="data.asp" -->
<!--#INCLUDE FILE="check.asp" -->
<%
if Session("Urule")<>"a" then
response.redirect "error.asp?id=admin"
end if
%><!--#INCLUDE FILE="check.asp" -->
<script>
function OpenWindows(url,widthx,heighx)
{
  var 
 newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=20,left=60,width=320,height=160");
 return false;
 
}
function OpenWindows1(url,widthx,heighx)
{
  var 
 newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=20,left=60,width=500,height=330");
 return false;
 
}
</script>
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>

<HTML><HEAD><TITLE>用户管理</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="css.css" 
rel=stylesheet>
<META content=180 http-equiv=refresh>
<script>
function js_openpage(url) 
{
  var 
  newwin=window.open(url,"NewWin","toolbar=no,resizable=yes,location=no,directories=no,status=no,menubar=no,scrollbars=yes,top=100,left=120,width=600,height=360");
  // newwin.focus();
  return false;
  }
  
function js_openpage_1(url) 
{
  var 
  newwin=window.open(url,"NewWin","toolbar=no,resizable=yes,location=no,directories=no,status=no,menubar=no,scrollbars=yes,top=100,left=120,width=600,height=400");
  // newwin.focus();
  return false;
}

function  DelChk()                       
           {    flag=0;                         
                for (j=0;j<form.elements.length;j++)   {                        
                   if (form.elements[j].checked==true){                        
                   flag=flag+1;                        
                   break;                        
                }                        
           }                        
           if (flag !=0){                         
               if (confirm("此操作将删除所选择的文件,请您确定删除!"))  {                        
               var url="manage/articledel.asp?ownid=" ;                       
               form.action=url;                       
               form.submit();}                        
          }                        
         else  { alert("(没有选择文件)请在复选框内选择要删除的文件") }                        
 }                   
</script>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
function cform(){
 if(!confirm("您确认删除此用户!"))
 return false;

}
function pass(){
 if(!confirm("您确认该用户通过审核!"))
 return false;

}

</script>
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
//-->
</script> <script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->

</script>
<script>
   function  logout()
   {
      if  (confirm("确认退出大眼睛网络综合信息办公系统?"))
      {
        document.location.href="logout.asp";
      }
   }
</script>
</HEAD>
<BODY leftMargin=0  topMargin=0>


      <TABLE align=center bgColor=#ff3300 border=0 cellPadding=0 cellSpacing=0 
      width=772>
        <TBODY>
        <tr>
                <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'" width="666">

<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD>
      <TABLE align=center bgColor=#ff3300 border=0 cellPadding=0 cellSpacing=0 
      width=772>
        <TBODY>
        <TR>
          <TD height=2></TD></TR></TBODY></TABLE>


      <TABLE align=center bgColor=#ff3300 border=0 cellPadding=0 cellSpacing=0 
      width=772>
        <TBODY>
        <TR>
          <TD>
            <TABLE border=0 cellPadding=4 cellSpacing=1 height=20 
              width="100%"><TBODY>
              <TR bgColor=#ff6600>
                <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'"><font color="#ffffff">&nbsp;</font><a href="main1.asp"><FONT 
                  color=#ffffff>首页</FONT></a></TD>
                <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'"><a href="file.asp"><font color="#ffffff">进行项目</font></a></TD>
                <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'"><a href="guoqixiangmu.asp"><font color="#ffffff">过期项目</font></a></TD>
                <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'"><a href="wcxiangmu.asp"><font color="#ffffff">完成项目</font></a></TD>
                <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'"><a href="tezhixiangmu.asp"><font color="#ffffff">特指项目</font></a></TD>
                <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'"><a href="shanchuxiangmu.asp"><font color="#ffffff">删除项目</font></a></TD>
                <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'"><A 
                  href="userchk.asp" ><font color="#ffffff">用户管理</font></A></TD>
                  <TD align=middle onmouseout="this.bgColor = '#FF6600'" 
                onmouseover="this.bgColor = '#FF3300'"><a href="javascript:logout()" target=_self><font color="#ffffff">退出系统</font></A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
                </TD>
        
          <TD width="102">
             </TD></TR></TBODY></TABLE>
                        <TABLE align=center border=0 cellPadding=0 cellSpacing=5 height=92 
      width=774>
        <TBODY>
        
    <TR> 
      <TD width="222"> 
        <p>&nbsp;<img border="0" src="images/dd1.gif" align="center" width="209" height="87">
             </TD>
          <TD align=right width="530">
            <TABLE align=right bgColor=#cccccc border=0 cellPadding=1 
            cellSpacing=0 width="96%" VALIGN="TOP">
              <TBODY>
              <TR>
                <TD align=left bgcolor="#FFFFFF">
                  <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0" ID=Untitled WIDTH=530 HEIGHT=90>
    <param name="_cx" value="13123">
    <param name="_cy" value="2699">
    <param name="FlashVars" value="0">
    <param name="Movie" value="111.swf">
    <param name="Src" value="111.swf">
    <param name="WMode" value="Window">
    <param name="Play" value="0">
    <param name="Loop" value="-1">
    <param name="Quality" value="High">
    <param name="SAlign" value>
    <param name="Menu" value="-1">
    <param name="Base" value>
    <param name="AllowScriptAccess" value="always">
    <param name="Scale" value="ShowAll">
    <param name="DeviceFont" value="-1">
    <param name="EmbedMovie" value="0">
    <param name="BGColor" value="003333">
    <param name="SWRemote" value><embed width="480" height="60" src="111.swf" wmode="window" scale="Default" salign="CC" play="true" devicefont="true" loop="true" menu="true" quality="high" bgcolor="#003333" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">
</OBJECT>
              </TD>
            </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0  width="774" align=center > <TBODY> <TR> <TD bgColor=#4e5960 class=heading colSpan=2 height=3></TD></TR> 
<TR> <TD bgColor=#4e5960 class=heading> <FONT 
    color=#ffffff><B>注册用户管理</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onClick="MM_openBrWindow('register.asp','','width=510,height=430')"><img border="0" src="images/user_1.gif"></a></TD></TR> <TR> <FORM action="userchk.asp" method=post name=sele><TD vAlign=top>
    <TABLE border=0 cellPadding=2 cellSpacing=1 width="100%"> 
<TBODY> <TR bgColor=#999999> <TD class=heading colspan=10 width="580"><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"> 
<TBODY> <TR> <TD align=right width="2%"><IMG height=18 
                  src="images/adorn.gif" width=10></TD><TD align=right>
<%  
dim page
page=request("page")
PageSize = 10
dim rs,strSQL,news
strSQL ="select * from user ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,3,3
    rs.PageSize = PageSize
	totalfilm=rs.recordcount
    pgnum=rs.Pagecount
    if page="" or clng(page)<1 then page=1
    if clng(page) > pgnum then page=pgnum
    if pgnum>0 then rs.AbsolutePage=page

if rs.eof then
response.write "<font color='#ffffff' class='3dfont'>还没有任何东东</font>"
else
%> 
<table border="0" cellspacing="0" cellpadding="0" width="100%"> <tr> <FONT COLOR="#ffffff"> 
[<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个] <%if page=1 then%> [首 
页] [上一页] <% else %> [<a href="userchk.asp?page=1">首 页</a>] [<a href="userchk.asp?page=<%=page-1%>">上一页</a>]<%end if%><%if rs.pagecount-page<1 then%> 
[下一页] [尾 页] <%else%> [<a href="userchk.asp?page=<%=page+1%>">下一页</a>] [<a href="userchk.asp?page=<%=rs.pagecount%>">尾 
页</a>]</FONT> <%end if%> <input type='text' name='page' size=2 maxlength=10 style="font-size:9pt;color:#FFFFFF;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000" value="<%=page%>" align=center> 
<input style="border:1 solid black;FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal" type='submit'  value=' Goto '   size=2></td> </tr>
</table></TD> <TD width="3%"><IMG height=18 
                  src="images/adorn.gif" 
            width=10></TD></TR> </TBODY> </TABLE></TD> </TR> <TR bgColor=#bfbfbf align=center> 
<TD width="41"><b>姓名</b></TD><TD width="61"><b>用户名</b></TD><TD width="81"><b>注册时间</b></TD>
<TD width="79"><b>所属单位</b></TD><TD width="66"><b>审核</b></TD>
<TD width="49"><B>修改</B></TD><TD width="42"><b>删除</b></TD>
<TD width="42"><b>权限</b></TD><TD width="42"><b>权限设置</b></TD></TR> 
<%
count=0 
do while not (rs.eof or rs.bof) and count<rs.PageSize 
%> <TR> <td height="23" bgColor=#efefef width="41"> <p align="center"><%=rs("name")%> </td>
    <td bgColor=#efefef width="61"> 
<p align="center"><%=rs("username")%> </td><td bgColor=#efefef width="81"> <p align="center"><%=rs("time")%> 
</td><td bgColor=#efefef width="79"> <p align="center"><%=rs("part")%> </td>
    
    <td align="center" bgColor=#efefef width="66"><% if rs("shenhe")=true then %>已审核<%else%><a href="shenghe.asp?id=<%=rs("id")%>" onclick="return pass();">待审核</a><%end if%></td>
        <td bgColor=#efefef width="49"> 
<p align="center"><a href="#" onClick="MM_openBrWindow('edit.asp?id=<%=rs("id")%>','','width=500,height=300')">修改 
</a> </td><td  bgColor=#efefef width="42"> <p align="center"> <a href="dele.asp?id=<%=rs("id")%>" onclick="return cform();">删除</a> 
</td><td bgColor=#efefef width="42"><%
						  if rs("rule")="a" then 
						  response.write "超级用户"  
						  else if rs("rule")="b" then 
						  response.write "管理员" 
						  else if rs("rule")="c" then 
                          response.write "贵宾用户" 
						  else 
						  response.write "普通用户" 
						  end if
						  end if
						  end if%></td>
<td bgColor=#efefef width="49"><p align="center"><a href="#" onClick="MM_openBrWindow('shezhi.asp?id=<%=rs("id")%>','','width=500,height=300')">设置
</a> </td>
</TR> <%rs.movenext 
count=count+1
loop 
end if%> <tr> <td colspan=10 bgcolor=#9c9a9c style="color:red" width="580">(注:可以通过修改用户资料来更改用户权限和用户资料) 
</td></tr> </TBODY> </TABLE></TBODY></TABLE>
      
      <BR></BODY></HTML>

⌨️ 快捷键说明

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