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

📄 lei21.asp

📁 一套asp办公小软件
💻 ASP
字号:
<% if session("yonghm")<>"" then %>
<html>
<!--#include file="Global.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<base target="main_part">
<title>添加用户</title>
<STYLE type=text/css>
p,table,a,body,input {
	FONT-FAMILY: "MS Song"; FONT-SIZE: 9pt; LINE-HEIGHT: 16pt
}
</STYLE>
</head>
<body topmargin="10" leftmargin="5">
<p>
<object RUNAT="Server" ID="Conn" PROGID="ADODB.Connection">
</object>

</p>
<form action="xinxi.asp" target="main" method="post">
<table width=100%>
<tr><td width=50%>员工:<a href="lei21.asp" target="main">增加</a>、<a href="lei22.asp" target="main">修改</a>、<a href="lei23.asp" target="main">删除</a></td></tr>
</table>
<center>现在是<员工增加界面></center>
<table border=1 cellPadding=1 cellSpacing=1 width=100%>
<tr>
    <td width="100%" valign="middle" height="10" colSpan=11>
    <font color="#000040">真实姓名:<input type="text" name="name1" size="20" value="">--当别人给您发
	公文时会看到此名称!</font></td>
</tr>

<tr>
    <td width="100%" valign="middle" height="10" colSpan="11">
    <font color="#000040">用户名称:<input type="text" name="name" size="20" value="">--您自己登陆时,使用的用户名称!</font></td>
</tr>
<tr>
    <td width="100%" height="11" colSpan=11>
    <font color="#000040">用户密码:<input type="text" name="Password" size="20"  value="">--您自己登陆时,使用的用户密码!</font></td>
</tr>
<tr>
    <td width="100%" height="11" colSpan=11>
    <font color="#000040">用户权重:<input type="text" name="quanzhong" size="20"  value="">--您在此
	部门的排列顺序!</font></td>
</tr>

<tr>
    <td width="100%" valign="middle" height="10" colSpan=11>
    <font color="#000040">职&nbsp;&nbsp;&nbsp;&nbsp;位:<input type="text" name="name2" size="20" value=""></font></td>
</tr>

<tr>
    <td width="100%" height="11" colSpan=11>
    <font color="#000040">系统维护员:<input type="radio" name=radio1 value=系统维护员></font></td>
</tr>
<tr>
    <%
    set rs=server.createobject("adodb.recordset")
    sql="select * from bum "
	sql=sql & "order by quanz"
    rs.open sql,conn,1,1
    
     %>
    <% do until rs.eof
          k=rs("id")
          'cc="checked" 
          sql1="SELECT * FROM yuang  where bumid=" & k & " order by quanz"   
                set rs1=server.createobject("adodb.recordset")
                    rs1.open sql1,conn,1,1
                     hang=0
                   do until rs1.eof
                      hang=hang+1
                      rs1.movenext
                   loop
                   if hang/9>cint(hang/9) then
                      hang=cint(hang/9)
                      hang=hang+1
                   else
                      hang=cint(hang/9)
                   end if
                   j=1
                   rs1.close%>
        <td width=25% rowspan=<%=hang%>> <input type="radio" name=radio value=<%=rs("bummc")%>>
          <b><font color="red"><% =rs("bummc")%></font></b>
               <% 
                set rs2=server.createobject("adodb.recordset")
                    rs2.open sql1,conn,1,1
               do until rs2.eof 
                     if j>9 then
                       j=1%>
                       </tr><tr>
                       <td><font color="#000040"><% =rs2("yuangmc")%>-<%=rs2("quanz")%></font></td>
                   <%else%>
                       <td><font color="#000040"><% =rs2("yuangmc")%>-<%=rs2("quanz")%></font></td>
                   <% 
                    end if
                    j=j+1%>
                <% rs2.movenext
              loop%>
          <% rs.movenext %>
      </td></tr><tr>
   <%loop
   conn.close %>
</tr></table>
<table>
<tr>
    <td valign="middle" align="center" height="11">
    <font color="#E9BF30"><input type="submit" value="填写完毕" name="B1"></font></td>
</tr></form>
</table>
<%else %>

<P>请登录 </p>
<%end if %>
</body>

⌨️ 快捷键说明

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