📄 lei12.asp
字号:
<% if session("name")<>"" then %>
<html>
<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>
<!--#include file="global.asp"-->
<STYLE type=text/css>
p,table,a,body,input {
FONT-FAMILY: 宋体; FONT-SIZE: 14.6px; LINE-HEIGHT: 16pt
}
</STYLE>
<base target="main">
</head>
<body topmargin="10" leftmargin="15">
<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",""%>
<% set rs=server.createobject("adodb.recordset" )
delormodbyothersession=0
rem *****************************************************************************************************************************
quanzhongmod=0
if IsNumeric(trim(request("Q2")))=True and trim(request("R1"))<>"" then
set rs=conn.Execute("select * from gongs where gongsmc='"&trim(request("R1"))&"'"&"order by quanz")
if rs.eof then
delormodbyothersession=1
else
conn.execute("update gongs set quanz="&Cint(trim(request("Q2")))&" where gongsmc='"&trim(request("R1"))&"'")
quanzhongmod=1
end if
rs.close
end if
rem ******************************************************************************************************************************
if trim(request("T3"))<>"" and Instr(trim(request("T3"))," ")=0 and trim(request("R1"))<>"" then
set rs2=conn.Execute("select * from gongs where gongsmc='"&trim(request("R1"))&"'"&"order by quanz")
if rs2.eof then
delormodbyothersession=1
else
if trim(request("T3"))<>trim(request("R1")) then
set rs=conn.Execute("select * from gongs order by quanz")
majnameexist=0
Do while not rs.eof
if rs("gongsmc")=trim(request("T3")) then
majnameexist=1
Exit Do
end if
rs.movenext
Loop
rs.close
if majnameexist=0 then
conn.execute("update gongs set gongsmc='"&trim(request("T3"))&"' where gongsmc='"&trim(request("R1"))&"'")
else
Response.Write ("没有被增加,所取的名中不应和已有的公司相同!")
end if
end if 't3<>r1
end if 'rs2.eof
rs2.close
end if
rem ***************************************************************************************************************************
%>
<form action="lei12.asp" target="_self" method="post" id=form1 name=form1>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=100%>
<%
sql="select * from gongs order by quanz "
set jin=server.createobject("adodb.recordset")
jin.open sql,conn,1,1
%>
<TR><TD colSpan=5><DIV align=center><font color="green">现在全部的公司名称如下</font></DIV></TD></TR>
<TR>
<%j=1
do until jin.eof %>
<% if j>5 then%>
</tr><tr>
<td><INPUT type="radio" id=radio1 name="R1" value=<%=jin("gongsmc")%>><font color="green"><% =jin("gongsmc")%>-<% =jin("quanz")%></font></td>
<%j=1%>
<%else%>
<td><INPUT type="radio" id=radio1 name="R1" value=<% =jin("gongsmc")%>><font color="green"><% =jin("gongsmc")%>-<% =jin("quanz")%></font></td>
<%end if
j=j+1
jin.movenext
loop
conn.close %>
</TR></table>
<table border=1 cellPadding=1 cellSpacing=1 width=100%>
<tr><TD width=33%>修改后的公司名<INPUT id="T3" name="T3"></TD><TD width=33%>修改后的公司权重<INPUT id="Q2" name="Q2" size="17"></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
%>
<%else %>
<P>请登录 </p>
<%end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -