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

📄 userformation.asp

📁 sql server 2005书中11到16章的全部代码
💻 ASP
字号:
<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<head>
<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features)
{ //v2.0 
  window.open(theURL,winName,features);
}
//-->
</script>
<LINK href="../style.css" rel=stylesheet>
<title>用户信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
sqlstr="select * from 用户表"
my_rs.open sqlstr,my_Conn
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" align="center">
  <tr> 
    <td colspan="6" height="25" background="../image/backhead1.jpg"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="15%"> 
            <div align="center">用户名</div>
          </td>
          <td width="15%"> 
            <div align="center">职务</div>
          </td>
          <td width="20%"> 
            <div align="center">所属部门</div>
          </td>
          <td width="15%"> 
            <div align="center">删除</div>
          </td>
          <td width="15%"> 
            <div align="center">修改</div>
          </td>
          <td width="20%"> 
            <div align="center">详细信息</div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td colspan="6" height="369" background="../image/backhead2.jpg"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="25">
        <% do while not my_rs.eof
                   id=my_rs("用户编号")
%>
<tr> 
          <td width="10%" height="25"> 
            <div align="center"><%=my_rs("用户名")%></div>
          </td>
          <td width="10%" height="25"> 
            <div align="center"><%=my_rs("职务")%></div>
          </td>
          <td width="15%" height="25"> 
            <div align="center"><%=my_rs("所属部门")%></div>
          </td>
          <td width="10%" height="25"> 
            <div align="center"><%if session("权限")="管理" then %><a href="#" onClick="MM_openBrWindow('chuli-user.asp?Kaction=删除&id=<%=id%>','','width=270,height=235')"><%end if%>删除</a></div>
          </td>
          <td width="10%" height="25"> 
            <div align="center"><%if session("权限")="管理" then %><a href="#" onClick="MM_openBrWindow('chuli-user.asp?Kaction=修改&id=<%=id%>','','width=350,height=340')"><%end if%>修改</a></div>
          </td>
          <td width="15%" height="25"> 
            <div align="center"><a href="#" onClick="MM_openBrWindow('chuli-user.asp?Kaction=详细信息&id=<%=id%>','','width=350,height=340')">详细信息</a></div>
          </td>
        </tr> <%my_rs.movenext
  loop
%>
      </table>
      <div align="right"><br>
                                    <br>
     <%if session("权限")<>"只读" then %><a href="#" onClick="MM_openBrWindow('adduser.htm','','width=350,height=375')"><%end if %>添加新用户</a>  <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
      </div>
    </td>
  </tr>
  
 
</table>
<%my_rs.close
  my_Conn.close
%>
</body>
</html>

⌨️ 快捷键说明

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