📄 lei32.asp
字号:
<% if session("name")<>"" then %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<base target="main_part">
<title>添加科室</title>
</head>
<STYLE type=text/css>
p,table,a,body,input {
FONT-FAMILY: 宋体; FONT-SIZE: 9pt; LINE-HEIGHT: 16pt
}
</STYLE>
<base target="main">
<body topmargin="10" leftmargin="15">
<p>
<object RUNAT="Server" ID="Conn" PROGID="ADODB.Connection">
</object>
<object RUNAT="Server" ID="Connn" PROGID="ADODB.Recordset">
</object>
</p>
<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>
<% conn.Open "email","sa",""%>
<%
delormodbyothersession=0
rem *****************************************************************************************************************************
quanzhongmod=0
if IsNumeric(trim(request("Q3")))=True and trim(request("R1"))<>"" then
set rs=conn.Execute("select * from keshi where 用户号=" & request("R1") & "order by 排序权重")
if rs.eof then
delormodbyothersession=1
else
conn.execute("update keshi set 排序权重="&Cint(trim(request("Q3")))&" where 用户号=" & request("R1") )
quanzhongmod=1
end if
rs.close
end if
rem ******************************************************************************************************************************
if trim(request("T4"))<>"" and Instr(trim(request("T4"))," ")=0 and request("R1")<>"" then
set rs2=conn.Execute("select * from keshi where 用户号=" & request("R1") & "order by 排序权重")
if rs2.eof then
delormodbyothersession=1
else
if trim(request("T4"))<>request("R1") then
set rs=conn.Execute("select * from keshi where 用户号=" & rs2("用户号") & "order by 排序权重")
majnameexist=0
Do while not rs.eof
if rs("用户名")=trim(request("T4")) then
majnameexist=1
Exit Do
end if
rs.movenext
Loop
rs.close
if majnameexist=0 then
conn.execute("update keshi set 用户名='"&trim(request("T4"))&"' where 用户号=" & request("R1"))
else
Response.Write ("没有被增加,所取的科室名在其部门中有相同的名称!")
end if
end if 't3<>r1
end if 'rs2.eof
rs2.close
end if
rem ***************************************************************************************************************************
%>
<form action="lei32.asp" target="_self" method="post" id=form1 name=form1>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=100%>
<%
sql="SELECT * FROM majorkindtable order by 大类权重 "
Set jin = Conn.Execute(sql)%>
<TR><TD colSpan=6><DIV align=center><font color="green">现在全部的部门名称如下</font></DIV></TD></TR>
<TR>
<% j=1
do until jin.eof
k=jin("大类号")
'cc="checked" %>
<%sql1="SELECT * FROM keshi where 大类号='" & k & "' order by 排序权重"
set jin1=conn.Execute (sql1)
hang=0
do until jin1.eof
hang=hang+1
jin1.movenext
loop
if hang/5>cint(hang/5) then
hang=cint(hang/5)
hang=hang+1
else
hang=cint(hang/5)
end if
j=1
jin1.close
%>
<td rowspan=<%=hang%>><b><font color="red"><% =jin("大类名")%></font></b></td>
<% set jin1=conn.Execute (sql1)
do until jin1.eof
if j>5 then%>
</tr><tr>
<td><input type="radio" name="R1" value=<%=jin1("用户号") %>><font color="#000040"><% =jin1("用户名")%>--<% =jin1("排序权重")%></font></td>
<% j=1
else%>
<td><input type="radio" name="R1" value=<%=jin1("用户号") %>><font color="#000040"><% =jin1("用户名")%>--<% =jin1("排序权重")%></font></td>
<%end if
j=j+1%>
<% jin1.movenext
loop
j=1%></tr><tr>
<% jin.movenext %>
<%loop
conn.close %>
</TR></table>
<table border=1 cellPadding=1 cellSpacing=1 width=100%>
<tr><TD width=33%>修改后的科室名称<INPUT id="T4" name="T4"></TD><TD width=33%>修改后的科室权重<INPUT id="Q3" name="Q3"></TD>
<TD width=33% align=center><INPUT id=button1 name=button1 type=submit value=确定修改 ></TD>
</tr>
</TABLE></form>
<% if trim(request("T1"))<>"" and Instr(trim(request("T1"))," ")>0 then
Response.Write "<hr><center><i>大类<font color=red><b>"&trim(request("T1"))&"</b></font>没有被增加,所取的大类名中不应含空格</i></center>"
Response.End
end if
%>
<% if trim(request("T1"))<>"" and trim(request("Q1"))="" then
Response.Write "<hr><center><i>您应该为要新建的大类指定一个<font color=red><b>排序权重</b></font></i></center>"
Response.End
end if
%>
<% if trim(request("T1"))<>"" and IsNumeric(request("Q1"))=False then
Response.Write "<hr><center><i>请以自然数作为大类的<font color=red><b>排序权重</b></font></i></center>"
Response.End
end if
%>
</body>
</html>
<%else %>
<P>请登录 </p>
<%end if %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -