📄 lei31.asp
字号:
<% 'if session("name")<>"" 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>
</head>
<STYLE type=text/css>
p,table,a,body,input {
FONT-FAMILY: "MS Song"; FONT-SIZE: 9pt; LINE-HEIGHT: 16pt
}
</STYLE>
<body topmargin="10" leftmargin="5">
<p>
</object>
</p>
<form action="xinxi1.asp" target="main" method="post">
<table width=100%>
<tr><td width=50%>公司：<a href="lei11.asp" target="main">增加</a>、<a href="lei12.asp" target="main">修改</a>、<a href="lei13.asp" target="main">删除</a></td>
<td width=50%>部门：<a href="lei31.asp" target="main">增加</a>、<a href="lei32.asp" target="main">修改</a>、<a href="lei33.asp" target="main">删除</a></td>
</tr>
<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 width=100% border=1 cellPadding=1 cellSpacing=1>
<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%" height="11" colSpan=11>
<font color="#000040">部门权重：<input type="text" name="quanzhong" size="20" value="">--您在此部门的排列顺序！</font></td>
</tr>
<tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from gongs "
sql=sql & "order by quanz"
rs.open sql,conn,1,1
%>
<% do until rs.eof
k=rs("id")
'cc="checked" %>
<%sql1="SELECT * FROM bum where gongsid=" & 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 rowspan=<%=hang%>><input type="radio" name=radio value=<%=rs("gongsmc") %>>
<b><font color="red"><% =rs("gongsmc")%></font></b>
<% sql1="SELECT * FROM bum where gongsid=" & k & " order by quanz"
set rs2=server.createobject("adodb.recordset")
rs2.open sql1,conn,1,1
do until rs2.eof
'if rs2.eof=true then
' sj1=""
'end if
'if rs2("quanz")="" then
' sj2=""
'end if
if j>9 then
j=1%>
</tr><tr>
<td><font color="#000040"><% =rs2("bummc")%>-<%=rs2("quanz")%></font></td>
<%else%>
<td><font color="#000040"><% =rs2("bummc")%>-<%=rs2("quanz")%></font></td>
<%
end if
j=j+1%>
<% rs2.movenext
loop%>
<% rs.movenext %>
</td></tr><tr>
<%loop
%>
</tr></table>
<tr>
<td valign="middle" align="center" height="11">
<font color="#E9BF30"><input type="submit" value="填写完毕" name="B1"></font></td>
</tr></form>
</body>
</html>
<%'else %>
<P>请登录 </p>
<%'end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -