setup.asp

精美OA网络办公系统,带PSD文件.可任意修改.

Orderby=" where WS_Did="&WS_Did
else
Orderby=" ORDER BY WS_OrderBy ASC"
end if
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
WS_DepartmentName=WS_S.HX_Replace(request.form("WS_DepartmentName"))
WS_DepartmentTel=WS_S.HX_Replace(request.form("WS_DepartmentTel"))
WS_DepartmentFax=WS_S.HX_Replace(request.form("WS_DepartmentFax"))
WS_OrderBy=WS_S.HX_Replace(request.form("WS_OrderBy"))
if WS_OrderBy="" then WS_OrderBy=1
select case actionstep
case "addsaveinfo"
       WS_S.HX_Isnull "部门名称不能为空",WS_DepartmentName
       set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_DepartmentName='"&WS_DepartmentName&"'")	 
	   If SERS.recordcount>0 then
	   HX_GoBack "添加失败:\n此部门已存在!",""
	   End If
	   Call WS_S.HX_RSClose(SERS)  
       msg="“"&WS_DepartmentName&"”部门添加成功!"
       rs.addnew    
       rs("WS_DepartmentName")=WS_DepartmentName
	   rs("WS_DepartmentTel")=WS_DepartmentTel
	   rs("WS_DepartmentFax")=WS_DepartmentFax
       rs("WS_OrderBy")=WS_OrderBy
       rs.update
       HX_GoBack msg,"setup.asp?action=step5"
case "editsaveinfo"
       WS_S.HX_Isnull "部门名称不能为空",WS_DepartmentName
       set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_DepartmentName='"&WS_DepartmentName&"' and WS_Did<>"&WS_Did)	 
	   If SERS.recordcount>0 then
	   HX_GoBack "修改失败:\n此部门已存在!",""
	   End If
       msg="“"&rs("WS_DepartmentName")&"”部门修改成功!"
	   rs("WS_DepartmentName")=WS_DepartmentName
	   rs("WS_DepartmentTel")=WS_DepartmentTel
	   rs("WS_DepartmentFax")=WS_DepartmentFax
       rs("WS_OrderBy")=WS_OrderBy
       rs.update
       HX_GoBack msg,"setup.asp?action=step5"
case "del"
     msg="“"&rs("WS_DepartmentName")&"”部门删除成功"
     conn.execute("delete from HX_Department where WS_Did="&WS_Did)	
	 conn.execute("delete from HX_Appointment where WS_Did="&WS_Did)
	 conn.execute("delete from HX_CompanyUser where WS_department="&WS_Did)
       HX_GoBack msg,"setup.asp?action=step5"
end select
%>		
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor=F1F1F1 background="hximages/titlelinebg.gif"><table width="500"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor=F1F1F1 height="25" background="hximages/titleline.gif"><font class="fontmenu">第四步：部门设置</font></td>
  </tr>
</table></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="1" cellpadding="3" bgcolor="#f1f1f1">
  <form name="form1" method="post" action="?action=step5&actionstep=addsaveinfo">
    <tr bgcolor="#A1BBE0" class="td4">
      <td width="25%"><div align="center">部门名称</div></td>
 	  <td width="21%"><div align="center">电 话</div></td>
      <td width="20%"><div align="center">传 真</div></td>
      <td width="21%"><div align="center">排 序</div></td>
      <td><div align="center">操 作</div></td>
    </tr>
    <tr bgcolor="#f1f1f1" onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
    <td align="center"><input type="text" name="WS_DepartmentName" size="18" value=""></td>
    <td align="center"><div align="center"><input type="text" name="WS_DepartmentTel" size="15" value=""></div></td>
    <td align="center"><div align="center"><input type="text" name="WS_DepartmentFax" size="15" value=""><strong></strong></div></td>
	<td width="20%" align="center"><input type="text" name="WS_OrderBy" size="10" value="<%=rs.recordcount+1%>" onKeyPress="event.returnValue=IsDigit();" style="ime-mode:disabled"></td>
    <td width="13%" align="center"><input type="submit" name="Submit" value=" 添 加 "></td>
  </tr>
</form>
</table>
<br>
<table width="100%"  border="0" cellspacing="1" cellpadding="3" bgcolor="#f1f1f1">
 
    <tr bgcolor="#A1BBE0" class="td4">
      <td width="9%"><div align="center">序　号</div></td>
      <td width="22%"><div align="center">部门名称</div></td>
      <td width="19%"><div align="center">电 话</div></td>
      <td width="21%"><div align="center">传 真</div></td>
      <td><div align="center">排 序</div></td>
      <td><div align="center">操 作</div></td>
    </tr>
	<%if rs.recordcount<=0 then
	 cnt=false
	 response.write "<tr><td height=30 align=center colspan=6 bgcolor=ffffff>暂 无 数 据</td></tr>"
	else
	cnt=true
	do while not rs.EOF
	%>
    <form name="form1" method="post" action="?action=step5&actionstep=editsaveinfo&WS_Did=<%=rs("WS_Did")%>"> <tr bgcolor="#f1f1f1" onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
    <td align="center"><%=rs("WS_Did")%></td>
    <td align="center"><input type="text" name="WS_DepartmentName" size="18" value="<%=rs("WS_DepartmentName")%>"></td>
    <td align="center"><div align="center"><input type="text" name="WS_DepartmentTel" size="15" value="<%=rs("WS_DepartmentTel")%>"></div></td>
    <td align="center"><div align="center"><input type="text" name="WS_DepartmentFax" size="15" value="<%=rs("WS_DepartmentFax")%>"><strong></strong></div></td>
    <td width="8%" align="center"><input type="text" name="WS_OrderBy" size="4" value="<%=rs("WS_OrderBy")%>" onKeyPress="event.returnValue=IsDigit();" style="ime-mode:disabled"></td>
    <td width="21%" align="center"><input type="submit" name="Submit" value=" 修改 ">&nbsp;<input type="button" name="Submit" value=" 删除 " onclick="javascript:if(!confirm('是否要删除此部门及其下面的职位和员工！')) return false;else location.href='?action=step5&actionstep=del&WS_Did=<%=rs("WS_Did")%>';"></td>
  </tr></form>
  <%
	  rs.movenext
      loop
  end if
  call WS_S.HX_RSClose(RS) 
  %>

</table><br>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
<form action="?action=step6" method="post">
  <tr bgcolor="#f1f1f1">
    <td height="26" align="center"><input type="button" name="Submit2" value=" 上一步 " onClick="location.href='?action=step4';">
	  <input type="submit" name="Submit" value=" 下一步 ">
      <input type="button" name="Submit2" value=" 跳 过 " onClick="location.href='?action=step6';" <%if cnt=false then response.write "disabled"%>></td>	
    </tr></form>
</table>

    <%end sub
sub step6()
dim actionstep,cnt
ColumnName="":Tablename="HX_Appointment":action=request("action"):actionstep=request("actionstep"):WS_Aid=request("WS_Aid")
if WS_Aid<>"" and isnumeric(WS_Aid) then Orderby=" where WS_Aid="&WS_Aid else Orderby=" ORDER BY WS_OrderBy ASC"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
WS_AppointmentName=WS_S.HX_Replace(request.form("WS_AppointmentName"))
WS_OrderBy=WS_S.HX_Replace(request.form("WS_OrderBy"))
WS_Did=WS_S.HX_Replace(request.form("WS_Did"))
if WS_OrderBy="" then
WS_OrderBy=1
end if
select case actionstep
case "addsaveinfo"
       WS_S.HX_Isnull "职位名称不能为空",WS_AppointmentName
       set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_AppointmentName='"&WS_AppointmentName&"'")	 
	   If SERS.recordcount>0 then
	   HX_GoBack "添加失败:\n此职位已存在!",""
	   End If
	   Call WS_S.HX_RSClose(SERS)  
       msg="“"&WS_AppointmentName&"”职位添加成功!"
       rs.addnew
	   rs("WS_Did")=WS_Did    
       rs("WS_AppointmentName")=WS_AppointmentName
       rs("WS_OrderBy")=WS_OrderBy
       rs.update
       HX_GoBack msg,"setup.asp?action=step6"
case "editsaveinfo"
       WS_S.HX_Isnull "职位名称不能为空",WS_AppointmentName
       set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_AppointmentName='"&WS_AppointmentName&"' and WS_Aid<>"&WS_Aid)	 
	   If SERS.recordcount>0 then
	   HX_GoBack "修改失败:\n此职位已存在!",""
	   End If
       msg="“"&rs("WS_AppointmentName")&"”职位修改成功!"
	   rs("WS_Did")=WS_Did
	   rs("WS_AppointmentName")=WS_AppointmentName
       rs("WS_OrderBy")=WS_OrderBy
       rs.update
       HX_GoBack msg,"setup.asp?action=step6"
case "del"
     msg="“"&rs("WS_AppointmentName")&"”职位删除成功"
     conn.execute("delete from HX_Appointment where WS_Aid="&WS_Aid)	
     HX_GoBack msg,"setup.asp?action=step6"
end select
%>		
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor=F1F1F1 background="hximages/titlelinebg.gif"><table width="500"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor=F1F1F1 height="25" background="hximages/titleline.gif"><font class="fontmenu">第五步：职位设置</font></td>
  </tr>
</table></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="1" cellpadding="3" bgcolor="#f1f1f1">
  <form name="form1" method="post" action="?action=step6&actionstep=addsaveinfo">
    <tr bgcolor="#A1BBE0" class="td4">
      <td width="41%" align="center">职位名称</td>
      <td width="21%" align="center">所属部门</td>
      <td width="22%" align="center">排 序</div></td>
      <td width="16%" align="center">操 作</div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
    <td align="center"><input type="text" name="WS_AppointmentName" size="35" value="<%=WS_AppointmentName%>"></td>
    <td align="center"><select name="WS_Did">
	<%Set ders=WS_S.HX_SetRSD("*","HX_Department"," order by WS_OrderBy asc")
	if ders.recordcount>0 then
	do until ders.eof%><option value="<%=ders("WS_Did")%>"><%=ders("WS_DepartmentName")%></option>
	<%ders.movenext
	  loop
	  end if
	  Call WS_S.HX_RSClose(ders)
	  %>
    </select></td>
    <td align="center"><input type="text" name="WS_OrderBy" size="10" value="<%=rs.recordcount+1%>" onKeyPress="event.returnValue=IsDigit();" style="ime-mode:disabled"></td>
    <td align="center"><input type="submit" name="Submit" value=" 添 加 "></td>
  </tr>
</form>
</table>
<br>
<table width="100%"  border="0" cellspacing="1" cellpadding="3" bgcolor="#f1f1f1">
    <tr bgcolor="#A1BBE0" class="td4">
      <td width="10%" align="center">序　号</td>
      <td width="39%" align="center">职位名称</td>
      <td width="15%" align="center">所属部门</td>
      <td align="center">排 序</td>
      <td align="center">操 作</td>
    </tr>
	<%if rs.recordcount<=0 then
	 cnt=false
	 response.write "<tr><td height=30 align=center colspan=5 bgcolor=ffffff>暂 无 数 据</td></tr>"
	else
	cnt=true
	do while not rs.EOF
	%>
    <form name="form1" method="post" action="?action=step6&actionstep=editsaveinfo&WS_Aid=<%=rs("WS_Aid")%>"> <tr bgcolor="#FFFFFF">
    <td align="center"><%=rs("WS_Aid")%></td>
    <td align="center"><input type="text" name="WS_AppointmentName" size="35" value="<%=rs("WS_AppointmentName")%>"></td>
    <td align="center"><select name="WS_Did">
	<%Set ders=WS_S.HX_SetRSD("*","HX_Department"," order by WS_OrderBy asc")
	if ders.recordcount>0 then
	do until ders.eof%><option value="<%=ders("WS_Did")%>" <%if ders("WS_Did")=rs("WS_Did") then response.write "selected"%>><%=ders("WS_DepartmentName")%></option>
	<%ders.movenext
	  loop
	  end if
	  Call WS_S.HX_RSClose(ders) %>
    </select></td>
    <td width="16%" align="center"><input type="text" name="WS_OrderBy" size="10" value="<%=rs("WS_OrderBy")%>" onKeyPress="event.returnValue=IsDigit();" style="ime-mode:disabled"></td>
    <td width="20%" align="center"><input type="submit" name="Submit" value=" 修改 ">&nbsp;<input type="button" name="Submit" value=" 删除 " onclick="location.href='?action=step6&actionstep=del&WS_Aid=<%=rs("WS_Aid")%>';"></td>
  </tr></form>
  <%
	  rs.movenext
      loop
  end if
  call WS_S.HX_RSClose(RS) 
  %>
</table>
<br>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
<form action="?action=step7" method="post">
  <tr bgcolor="#f1f1f1">
    <td height="26" align="center"><input type="button" name="Submit2" value=" 上一步 " onClick="location.href='?action=step5';">
	  <input type="submit" name="Submit" value=" 下一步 ">
      <input type="button" name="Submit2" value=" 跳 过 " onClick="location.href='?action=step7';" <%if cnt=false then response.write "disabled"%>></td>	
    </tr></form>
</table>
    <%end sub
	sub step7()
	ColumnName="":Tablename="HX_CompanyUser":Orderby=""
	dim WS_UserName,WS_Name,WS_sex,WS_phone,WS_email,WS_oicq
    set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
    if rs.recordcount>0 then
	  WS_UserName=rs("WS_UserName")
	  WS_Name=rs("WS_Name")
	  WS_sex=rs("WS_sex")
	  WS_phone=rs("WS_phone")
	  WS_email=rs("WS_email")