lei11.asp
来自「一套asp办公小软件」· ASP 代码 · 共 128 行
ASP
128 行
<% 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>
</head>
<!--#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">
<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>
<% Dim maxmajnum
if trim(request("T1"))<>"" and Instr(trim(request("T1"))," ")=0 and IsNumeric(trim(request("Q1")))=True then
set rs=server.createobject("adodb.recordset")
sql="select * from gongs "
sql=sql & "order by quanz"
rs.open sql,conn,1,1
maxmajnum=0
majkdexist=0
Do while not rs.eof
maxmajnum=maxmajnum+1
if rs("gongsmc")=trim(request("T1")) then
majkdexist=1
Exit Do
end if
rs.movenext
Loop
rs.close
if majkdexist=0 then
set rs=server.createobject("adodb.recordset")
rs.Open "gongs",conn,2,2
rs.AddNew
rs("gongsmc")=request("T1")
rs("quanz")=request("Q1")
rs.Update
rs.close
Response.Write ("公司增加完毕!")
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from gongs "
sql=sql & "order by quanz"
rs.open sql,conn,1,1
%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=100%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from gongs "
sql=sql & "order by quanz"
rs.open sql,conn,1,1 %>
<TR><TD colSpan=5><DIV align=center>现在全部的公司名称如下</DIV></TD></TR>
<TR>
<%j=1
do until rs.eof %>
<% if j>5 then%>
</tr><tr>
<td><font color="red"><% =rs("gongsmc")%>-<% =rs("quanz")%></font></td>
<%j=1%>
<%else%>
<td><font color="red"><% =rs("gongsmc")%>-<% =rs("quanz")%></font></td>
<%end if
j=j+1
rs.movenext
loop
conn.close %>
</TR></table>
<form action="lei11.asp" target="_self" method="post" id=form1 name=form1>
<table border=1 cellPadding=1 cellSpacing=1 width=100%>
<tr><TD width=33%>新增的公司名<INPUT id="T1" name="T1"></TD><TD width=33%>新增的公司权重<INPUT id="Q1" name="Q1" width=5%></TD>
<TD width=33% align=center><INPUT id=button1 name=button1 type=submit value=确定增加></TD>
</tr>
</TABLE>
<% 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 majkdexist=1 then
Response.Write "<hr><center><i>公司名<font color=red><b>"&trim(request("T1"))&"</b></font>已经存在,不能成为一个新的公司.</i></center>"
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
%>
</form>
</body>
<%else %>
<P><a target="_top" href="Admin_Login.asp">请登录 </a> </p>
<%end if %>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?