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

📄 chuli-user.asp

📁 现在的病毒是越来越多了,几乎每上一回电脑都要杀毒,所以杀毒软件是必不可少的
💻 ASP
字号:
<!--#INCLUDE FILE="sysinc.asp" -->

<html>
<head>
<LINK href="../style.css" rel=stylesheet>
<%kaction=request("kaction")
  Kid=request("id")
%>
<title>用户-><%=kaction%></title>
</head>

<body bgcolor="#009900">
<%
if kaction="删除" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="69"> 
      <div align="center"><br>
        <br>
        <br>
        <br>
        <br>
        <%
    if session("权限")="管理" then
         sqlstr="delete from 用户表 where 用户编号="&Kid
        my_rs.open sqlstr,my_Conn

    '添加日志信息
    'my_rs.close
    set my_rs=nothing
    set my_rs=server.createobject("adodb.recordset")
   sqlstr="select * from 系统日志信息"
   my_rs.open sqlstr,my_Conn,1,3
   my_rs.addnew
   my_rs("使用者名称")=session("username")
   my_rs("所做事件")="删除用户,编号为"&Kid
   my_rs.update
   my_rs.close
    %>
        <font color="#000000"> 删除成功!</font> 
        <% else%>
        <font color="#000000">权限不够,与管理员联系!</font>
        <% end if
      response.write  "<input type='button' value='关闭窗口' name='B2' class='buttonface' onclick='javascript:self.close()'>"
elseif kaction="修改" then
    if session("权限")="管理" then
        
   sqlstr="select * from 用户表 where 用户编号="&Kid
   my_rs.open sqlstr,my_Conn,1,1
%>
      </div>
    </td>
  </tr>
</table>

<form method="POST" action="adminmoduserdb.asp">
  <div align="center">
    <center>
      <table border="0" width="318" height="48" bgcolor="#0000FF" cellspacing="1">
        <tr> 
          <td width="93" height="15" align="center" bgcolor="#FFCCFF"> 
            <div align="left"> 用户名:</div>
          </td>
          <td width="218" height="15" bgcolor="#CCCCFF"> 
            <input type="text" name="username" size="12" value=<%=my_rs("用户名")%> class="smallInput" maxlength="16">
          </td>
        </tr>
        <tr> 
          <td height="15" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 权限:</div>
          </td>
          <td height="15" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left">
              <input type="radio" name="purview" value="只读" 
<%if my_rs("权限")="只读" then
     response.write "checked"
  end if
%>>
              只读 
              <input type="radio" name="purview" value="可写" 
<%if my_rs("权限")="可写" then
     response.write "checked"
  end if

%>>
              可写 
              <input type="radio" name="purview" value="管理" 
<%if my_rs("权限")="管理" then
     response.write "checked"
  end if
%>              可写 
             >
              管理 </div>
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 职务:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <select name="business">
                
                <option value="总经理" <%if my_rs("职务")="总经理" then
                                            response.write selected
                                          end if%>
                > 总经理</option>
                <option value="部门经理" <%if my_rs("职务")="部门经理" then
                                            response.write selected
                                          end if%>
                > 部门经理</option>
                <option value="科长"  <%if my_rs("职务")="科长" then
                                            response.write selected
                                          end if%>
                > 科长</option>
                <option value="普通职员"  <%if my_rs("职务")="普通职员" then
                                            response.write selected
                                          end if%>
                > 普通职员</option>
              </select>
            </div>
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 所属部门:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <select name="department">
            

                <option value="生产科" <%if my_rs("所属部门")="生产科" then
                                            response.write selected
                                          end if%>
                >  生产科</option>
                <option value="财务科" <%if my_rs("所属部门")="财务科" then
                                            response.write selected
                                          end if%>
                >  财务科</option>
              </select>
            </div>
          </td>
        </tr>
        <tr> 
          <td height="3" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 性别:</div>
          </td>
          <td height="3" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <input type="text" name="sex" size="20" value=<%=my_rs("性别")%> class="smallInput" maxlength="16">
            </div>
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 电子邮件:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <input type="text" name="Email" size="20" value=<%=my_rs("电子邮件地址")%> class="smallInput" maxlength="40">
            </div>
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 联系电话:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <input type="text" name="phone" size="20" value=<%=my_rs("联系电话")%> class="smallInput" maxlength="16">
            </div>
          </td>
        </tr>
        <tr> 
          <td height="65" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 住址:</div>
          </td>
          <td height="65" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <textarea name="place" cols="23" class="smallInput"><%=my_rs("住址")%></textarea>
            </div>
          </td>
        </tr>
        <tr> 
          <td colspan="2" height="8" align="center" bgcolor="#FFCCFF">&nbsp;</td>
        </tr>
      </table>
    </center>
  </div>
  <p align="center"> 
    <input type="submit" value="修改用户" name="B1" class="buttonface " >
    &nbsp;  
<input type="reset" name="Reset" class="buttonface " value="重写">
     
<input type="button" value="关闭窗口" name="B2" class="buttonface" onclick="javascript:self.close()">
  </p>
</form>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="69"> 
      <div align="center"><br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <font color="#000000">权限不够,与管理员联系!!</font><%
response.write  "<input type='button' value='关闭窗口' name='B2' class='buttonface' onclick='javascript:self.close()'>"
end if
%></div>
    </td>
  </tr>
</table>
<%
elseif  kaction="详细信息" then
    sqlstr="select * from 用户表 where 用户编号="&Kid
    my_rs.open sqlstr,my_Conn,1,1
%>  
<form method="POST" action="adduserdb.asp">
  <div align="center"> 
    <center>
<table border="0" width="318" height="48" bgcolor="#0000FF" cellspacing="1">
        <tr> 
          <td width="93" height="15" align="center" bgcolor="#FFCCFF"> 
            <div align="left"> 用户名:</div>
          </td>
          <td width="218" height="15" bgcolor="#CCCCFF"> 
            <input type="text" name="username" size="12" value=<%=my_rs("用户名")%> class="smallInput" maxlength="16">
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 权限:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <input type="radio" name="purview" value="只读" 
<%if my_rs("权限")="只读" then
     response.write "checked"
  end if
%>>
              只读 
              <input type="radio" name="purview" value="可写" 
<%if my_rs("权限")="可写" then
     response.write "checked"
  end if

%>>
              可写 
              <input type="radio" name="purview" value="管理" 
<%if my_rs("权限")="管理" then
     response.write "checked"
  end if
%>              可写 
             >
              管理 </div>
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 职务:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <select name="select">
                <option value="总经理" <%if my_rs("职务")="总经理" then
                                            response.write selected
                                          end if%>
                > 总经理</option>
                <option value="部门经理" <%if my_rs("职务")="部门经理" then
                                            response.write selected
                                          end if%>
                > 部门经理</option>
                <option value="科长"  <%if my_rs("职务")="科长" then
                                            response.write selected
                                          end if%>
                > 科长</option>
                <option value="普通职员"  <%if my_rs("职务")="普通职员" then
                                            response.write selected
                                          end if%>
                > 普通职员</option>
              </select>
            </div>
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 所属部门:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <select name="select2">
                <option value="生产科" <%if my_rs("所属部门")="生产科" then
                                            response.write selected
                                          end if%>
                >  生产科</option>
                <option value="财务科" <%if my_rs("所属部门")="财务科" then
                                            response.write selected
                                          end if%>
                >  财务科</option>
              </select>
            </div>
          </td>
        </tr>
        <tr> 
          <td height="3" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 性别:</div>
          </td>
          <td height="3" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <input type="text" name="sex" size="20" value=<%=my_rs("性别")%> class="smallInput" maxlength="16">
            </div>
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 电子邮件:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <input type="text" name="Email" size="20" value=<%=my_rs("电子邮件地址")%> class="smallInput" maxlength="40">
            </div>
          </td>
        </tr>
        <tr> 
          <td height="11" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 联系电话:</div>
          </td>
          <td height="11" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <input type="text" name="phone" size="20" value=<%=my_rs("联系电话")%> class="smallInput" maxlength="16">
            </div>
          </td>
        </tr>
        <tr> 
          <td height="65" align="center" bgcolor="#FFCCFF" width="93"> 
            <div align="left"> 住址:</div>
          </td>
          <td height="65" align="center" bgcolor="#CCCCFF" width="218"> 
            <div align="left"> 
              <textarea name="place" cols="23" class="smallInput"><%=my_rs("住址")%></textarea>
            </div>
          </td>
        </tr>
        <tr> 
          <td colspan="2" height="8" align="center" bgcolor="#FFCCFF">&nbsp;</td>
        </tr>
      </table>
    </center>
  </div>
  <p align="center">     
    <input type="button" value="关闭窗口" name="B2" class="buttonface" onclick="javascript:self.close()">
  </p>
</form>
<%
end if

%>

</body>

</html>

⌨️ 快捷键说明

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