departdetail.asp

一个VB的p2p聊天系统

<!--#include file="headfiles/Connection.inc"-->
<%
dim DepartID,level,DID,intOpt
DepartID=request.Form("txtDepart")
intOpt=request.form("txtOperate")
intSuper=request.Form("txtDSuper")
'response.Write(intOpt)
if DepartID="" or DepartID="1" then
	DID=""
	level=0
	DepartID=1
else
	level=cint(left(DepartID,1))
	DID=cint(right(DepartID,len(DepartID)-1))
end if
if intOpt="" then
	intOpt=0
else
	intOpt=cint(intOpt)
end if
'response.Write("operate="&intOpt&"  DepartID="&DepartID&"  level="&level&"  Did="&did)
'response.Write(level&"...."&DepartID&"...."&len(DepartID))
dim rsDepart1,rsDepart2,rsDepart3,rsDepartDetail,rsDepartDetail2
set rsDepart1=server.CreateObject("adodb.recordset")
set rsDepart2=server.CreateObject("adodb.recordset")
set rsDepart3=server.CreateObject("adodb.recordset")
dim dname,dmanager,dintroduce
dname=request.Form("txtDName")
dmanager=request.Form("txtDManager")
dintroduce=request.Form("taDIntro")
set rsDepartDetail=server.CreateObject("adodb.recordset")
set rsDepartDetail2=server.CreateObject("adodb.recordset")
select case intOpt
	case 1
		select case level
			case 0
				strSql="select * from Depart1Table"
				rsDepartDetail.open strSql,conn,3,2
				rsDepartDetail.addnew
				rsDepartDetail("Depart_Name")=dname
				rsDepartDetail("Depart_Manager")=dmanager
				rsDepartDetail("Depart_Intro")=dintroduce
				rsDepartDetail("Depart_Sub")=0
				rsDepartDetail.update
				rsDepartDetail.close
			case 1
				strSql="select * from Depart1Table where Depart_ID="&Did
				rsDepartDetail.open strSql,conn,3,2
				rsDepartDetail("Depart_Sub")=rsDepartDetail("Depart_Sub")+1
				rsDepartDetail.update
				rsDepartDetail.close
				strSql="select * from Depart2Table"
				rsDepartDetail.open strSql,conn,3,2
				rsDepartDetail.addnew
				rsDepartDetail("Depart_Name")=dname
				rsDepartDetail("Depart_Manager")=dmanager
				rsDepartDetail("Depart_Intro")=dintroduce
				rsDepartDetail("Depart_Super")=did
				rsDepartDetail("Depart_Sub")=0
				rsDepartDetail.update
				rsDepartDetail.close
			case 2
				strSql="select * from Depart2Table where Depart_ID="&Did
				rsDepartDetail.open strSql,conn,3,2
				rsDepartDetail("Depart_Sub")=rsDepartDetail("Depart_Sub")+1
				rsDepartDetail.update
				rsDepartDetail.close
				strSql="select * from Depart3Table"
				rsDepartDetail.open strSql,conn,3,2
				rsDepartDetail.addnew
				rsDepartDetail("Depart_Name")=dname
				rsDepartDetail("Depart_Manager")=dmanager
				rsDepartDetail("Depart_Intro")=dintroduce
				rsDepartDetail("Depart_Super")=did
				rsDepartDetail.update
				rsDepartDetail.close
		end select
	case 2
		strSql="select * from Depart"&level&"Table where Depart_ID="&Did
		rsDepartDetail.open strSql,conn,3,2
		rsDepartDetail("Depart_Name")=dname
		rsDepartDetail("Depart_Manager")=dmanager
		rsDepartDetail("Depart_Intro")=dintroduce
		rsDepartDetail.update
		rsDepartDetail.close
	case 3
		select case level
			case 1
				strSql="select * from Depart2Table where Depart_Super="&did
				rsDepartDetail.open strSql,conn,3,2
				do while not rsDepartDetail.eof
					strSql="select * from Depart3Table where Depart_Super="&rsDepartDetail("Depart_ID")
					rsDepartDetail2.open strSql,conn,3,2
					do while not rsDepartDetail2.eof
						rsDepartDetail2.delete
						rsDepartDetail2.movenext
					loop
					rsDepartDetail2.close
					rsDepartDetail.delete
					rsDepartDetail.movenext
				loop
'				rsDepartDetail2.update
				rsDepartDetail.close
				strSql="select * from Depart1Table where Depart_ID="&Did
				rsDepartDetail.open strSql,conn,3,2
				rsDepartDetail.delete
				rsDepartDetail.update
				rsDepartDetail.close
			case 2
				strSql="select * from Depart2Table where Depart_ID="&Did
				rsDepartDetail.open strSql,conn,3,2
				strSql="select * from Depart1Table where Depart_ID="&rsDepartDetail("Depart_Super")
				rsDepartDetail2.open strSql,conn,3,2
				rsDepartDetail2("Depart_Sub")=rsDepartDetail2("Depart_Sub")-1
				rsDepartDetail2.update
				rsDepartDetail2.close
				rsDepartDetail.delete
				rsDepartDetail.update
				rsDepartDetail.close
				strSql="select * from Depart3Table where Depart_Super="&did
				rsDepartDetail2.open strSql,conn,3,2
				do while not rsDepartDetail2.eof
					rsDepartDetail2.delete
					rsDepartDetail2.movenext
				loop
'				rsDepartDetail2.update
				rsDepartDetail2.close
			case 3
				strSql="select * from Depart3Table where Depart_ID="&Did
				rsDepartDetail.open strSql,conn,3,2
				strSql="select * from Depart2Table where Depart_ID="&rsDepartDetail("Depart_Super")
				rsDepartDetail2.open strSql,conn,3,2
				rsDepartDetail2("Depart_Sub")=rsDepartDetail2("Depart_Sub")-1
				rsDepartDetail2.update
				rsDepartDetail2.close
				rsDepartDetail.delete
				rsDepartDetail.update
				rsDepartDetail.close
		end select
	case else
end select
strSql="select * from Depart1Table order by Depart_ID"
rsDepart1.open strSql,conn,3,1
strSql="select * from Depart2Table order by Depart_Super"
rsDepart2.open strSql,conn,3,1
strSql="select * from Depart3Table order by Depart_Super"
rsDepart3.open strSql,conn,3,1
if DID<>"" then
	strSql="select * from Depart"&level&"Table where Depart_ID="&DID
'	RESPONSE.Write(STRSQL)
	rsDepartDetail.open strSql,conn,3,1
end if
'response.Write(rsDepart1.recordcount&rsDepart2.recordcount&rsDepart3.recordcount)
'<a onmouseover="this.className='red'" onmouseout="this.className='detail'"></a>
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language=javascript src="headfiles/PicTree.js"></SCRIPT>
<title>无标题文档</title>
<link href="headfiles/text.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function DoClick1(id){
	DoClick(id);
//	var level;
//	level=id.substring(0,1);
//	if(level=3){
//		frmDepart.btnNew.disabled=true;
//	}else{
//		frmDepart.btnNew.disabled=false;
//	}
	frmDepart.txtDepart.value=id;
	frmDepart.txtOperate.value=0;
	frmDepart.submit();
}

function SaveDepart(){
	if(frmDepart.txtDName.value==''){
		alert('部门名称不能为空，请输入！');
		frmDepart.txtDName.focus();
		return false;
	}
	if(frmDepart.txtDManager.value==''){
		alert('部门经理不能为空，请输入！');
		frmDepart.txtDManager.focus();
		return false;
	}
	var msg;
	msg=confirm("您的操作将修改该部门的信息！\n\n确实要保存这些内容吗？");
	if(msg==false){
		return false;
	}
	frmDepart.submit();
}

function NewDepart(){
	modify();
	newTr.style.display='block';
	frmDepart.txtDSuper.value=frmDepart.txtDName.value;
	frmDepart.txtDSuperID.value=frmDepart.txtDID.value;
	frmDepart.txtDName.value="";
	frmDepart.txtDManager.value="";
	frmDepart.taDIntro.value="";
	frmDepart.txtDID.value="（自动添加）"
	frmDepart.txtOperate.value=1;
}

function CancelDepart(){
	init();
	frmDepart.txtOperate.value=0;
}

function ModifyDepart(){
	modify();
	frmDepart.txtOperate.value=2;
}

function DeleteDepart(){
	var msg;
	msg=confirm("您的操作将删除该部门的信息！\n\n确实要保存这些内容吗？");
	if(msg==false){
		return false;
	}