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

📄 add_departinfo.asp

📁 功能不是很全面,需要自己修改和添加.尊重作者版权,希望大家相互学习,提出意见和建议.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<!-- #include file="conn.asp" -->
<% 
if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.html';</script>"
response.End
else
if request.QueryString("action")="add_DepartInfo" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select departid from depart where departid='"&int(request.Form("departid"))&"'",conn,1,1
i=0 
do while not rs.eof 
i=i+1 
rs.movenext 
loop 
if i>0 then 
response.write "<script language=javascript>alert('此编号已存在');</script>"
response.write "<script language=javascript>this.location.href='javascript:history.back()';</script>"
Response.end
else 
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select departname from depart where departname='"&trim(request.Form("departname"))&"'",conn,1,1
j=0 
do while not rs1.eof 
j=j+1 
rs1.movenext 
loop 
if j>0 then 
response.write "<script language=javascript>alert('此部门已存在');</script>"
response.write "<script language=javascript>this.location.href='javascript:history.back()';</script>"
Response.end
else 
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from depart",conn,3,2
rs2.addnew
rs2("DepartTypeiD") =int(request.form("departtype"))
rs2("DepartId")=int(request.Form("departid"))
rs2("DepartName")=trim(request.Form("departname"))
rs2.update
rs2.close
set rs2=nothing
response.write "<script language=javascript>alert('添加成功');</script>"
response.End
end if
end if
end if
end if
%>
<%
if request.QueryString("action")="add_DepartTypeInfo" then
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select departtypeid from DepartType where departtypeid='"&int(request.Form("departtypeid"))&"'",conn,1,1
m=0 
do while not rs3.eof 
m=m+1 
rs3.movenext 
loop 
if m>0 then 
response.write "<script language=javascript>alert('此编号已存在');</script>"
response.write "<script language=javascript>this.location.href='javascript:history.back()';</script>"
Response.end
else 

set rs4=server.CreateObject("adodb.recordset")
rs4.open "select departtypename from departtype where departtypename='"&trim(request.Form("departtypename"))&"'",conn,1,1
n=0 
do while not rs4.eof 
n=n+1 
rs4.movenext 
loop 
if n>0 then 
response.write "<script language=javascript>alert('此分类已存在');</script>"
response.write "<script language=javascript>this.location.href='javascript:history.back()';</script>"
Response.end
else 

set rs5=server.CreateObject("adodb.recordset")
rs5.open "select * from departtype",conn,3,2
rs5.addnew
rs5("DepartTypeiD") =int(request.form("departtypeid"))
rs5("DepartTypeName")=trim(request.Form("departtypename"))
rs5.update
rs5.close
set rs5=nothing
response.write "<script language=javascript>alert('分类添加成功');</script>"
response.End
end if
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加部门信息</title>
<link href="main.css" rel="stylesheet" type="text/css">

<style type="text/css">
<!--
body {
	background-image: url(images/5.jpg);
}
-->
</style></head>

<body>
<div id="depart_info">
  <form id="form1" name="form1" method="post" action="add_DepartInfo.asp?action=add_DepartInfo" onSubmit="return checkdata()">
      部门类型
      <select name="departtype" id="departtype">
        <option value="1">行政部门</option>
        <option value="2">教学部门</option>
      </select>
    <br>
    部门编号
    <input type="text" name="departid" id="departid">
    <br>
    部门名称
    <input type="text" name="departname" id="departname">
    <br>
    <input type="submit" name="submit" id="submit" value="提交">
    <br>
  </form>
  <form id="form2" method="post" action="add_DepartInfo.asp?action=add_DepartTypeInfo" onSubmit="return checkdeparttype()">
分类编号
<input type="text" name="departtypeid" id="departtypeid">
<br>
分类名称
<input type="text" name="departtypename" id="departtypename">
<br>
<input type="submit" name="submit" id="submit" value="提交">
<br>
</form>
</div>
<div>

</div>
</body>
<script language="JavaScript" type="text/javascript">

function checkdata()
{
var num = /^[0-9]{4}$/;  // 正则表达式,判断输入的是否是4位数字
if (document.form1.departid.value=="")
	{
	  alert("请输入部门编号")
	  document.form1.departid.focus()
	  return false
	 }
if(!num.test(document.form1.departid.value))
      {
       alert('请输入数字');       
       document.form1.departid.focus;
       return false;
      }
if (document.form1.departname.value=="")
	{
	  alert("请输入部门名称")
	  document.form1.departname.focus()
	  return false
	 }
}
function checkdeparttype()
{
var num1 = /^[0-9]{1,4}$/;
if(document.getElementById("form2").departtypeid.value=="")
   {
      alert("请输入分类号");
	  document.getElementById("form2").departtypeid.focus;
	  return false;
   }
if(!num1.test(document.getElementById("form2").departtypeid.value))
      {
       alert('请输入数字');       
       document.getElementById("form2").departtypeid.focus;
       return false;
      }
if (document.getElementById("form2").departtypename.value=="")
	{
	  alert("请输入分类名称")
	  document.getElementById("form2").departtypename.focus()
	  return false
	 }
}
</script>
</html>

⌨️ 快捷键说明

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