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

📄 adddepartment.asp

📁 投资管理系统, asp+ mssql server
💻 ASP
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "a"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<html>
<head>
<title>添加部门</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet href="../css/main.css" type="text/css">
</head>
<%
ID=trim(request("ID"))
set rs=server.createobject("adodb.recordset")
rs.open "select DaiHao from tblUnit where ID="&ID,conn,1,1
if not rs.eof then
	UnitDaiHao=rs("DaiHao")
end if
rs.close
if request("submit")<>"" then
	Department=replace(trim(request("Department")),"'","''")
	Daihao=replace(trim(request("Daihao")),"'","''")	
	sql="select * from tblDepartment where (UnitDaiHao="&UnitDaiHao&" and Department='"&Department&"') or  (UnitDaiHao="&UnitDaiHao&" and DaiHao="&daihao&")" 
	rs.open sql,conn
	if not rs.eof then
		bFind=true
	else
		bFind=false
	end if
	rs.close
	set rs=nothing
	if bFind then
		response.write "该'属性'或者‘编号’已经存在 <a href=""javascript:history.back(-1);"">[返回]</a>"
		conn.close
		set conn=nothing
		response.end
	else
		conn.execute " Insert into tblDepartment (UnitDaiHao,Department,DaiHao) values ("&UnitDaiHao&",'"&Department&"',"&daihao&")"
		conn.close
		set conn=nothing
%>
		<form name="returnform" action="Department.asp" method="post" target="FrmRight">
		<input type=hidden name=ID value="<%=ID%>">
	    <Script language="JavaScript">
	      returnform.submit();
	    </Script>
	    </form>
<%
		response.write "添加成功!<a href=# onclick=""javascript:window.close();"">[关闭窗口]</a>"
	end if
else
%>
<BODY BGCOLOR="#FFFFCC">
<form name="SubmitForm" method="post" action="">
部门名称:<INPUT TYPE="text" NAME="Department" value="<%=Department%>" class="input" size=30 maxlength=100> <BR>
部门编号:<INPUT TYPE="text" NAME="Daihao" value="<%=Daihao%>" class="input" size=30 maxlength=100> <BR>
<input type=hidden name=ID value="<%=ID%>">
<div align=center><INPUT TYPE="submit" name="submit" value="添 加" onclick="return CheckData();" class="font9boldwhite">
<input type="button" name="exit" value="退 出" class="font9boldwhite" onclick="javascript:window.close();"></div>
</form>
</BODY>
<%end if%>
</HTML>

<script language=javascript>
function CheckData()
{	
	if(jtrim(document.SubmitForm.Department.value)==""){
		alert("请输入部门名称!");
		document.SubmitForm.Department.focus();
		return false;
	}
	return true;
}
</script>
<script language=javascript src="../inc/jtrim.js"></script>

⌨️ 快捷键说明

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