deptmng.asp

asp+access实现web环境中的企业实时考勤

<%@LANGUAGE="VBScript"%>
<!--#include file="login.asp"-->
<%
'程序：王星亮 网名：血饮狂刀 国外的叫我LANBOO
'OICQ：40001
'EMAIL：[e-mail]
'我是什么都有，您想要我开发什么程序，尽管说。只要价格合理就行。
'我电话：[phone]
response.expires = 0
DeptId=request("DeptId")
gpy=request("gpy")
AddTime=now
AddIp=request.servervariables("remote_addr")
OperID= session("My_Login_ID")
LoginName= session("My_Login_Name")
'/////////////////
Const PageSize=10
Page=request("Page")
if not IsNumeric(Page) then Page=1
Page=CInt(Page)
if Page<=0 then Page=1

'/////////////////
%>
<script language="javascript">
function confirmDel(id){
if ( confirm("你确定要删除吗？")) {
  window.location.href = "<%=request.servervariables("SCRIPT_NAME")%>?gpy=del&DeptId=" + id
  }
}
</script>
<%

if gpy="" then
  LookData()
elseif gpy="ShowHtml" then
  dim sql1(10)
  ShowHtml(sql1)
elseif gpy="Add" then
  DeptName=html(request("DeptName"))
  Explain=html(request("Explain"))
  Phone=html(request("Phone"))
  Fax=request("Fax")
  Chief=request("Chief")
  Query="select * from MyDept where Name='"&Name&"'"
  set sqlDept=conn.Execute(Query)
  if not sqlDept.eof then Back("对不起，已经存在相同记录！")
  Query="Insert into MyDept values("&GetID("select max(ID)+1 from MyDept")&",'"&DeptName&"','"&Explain&"',0,'"&Phone&"','"&Fax&"','"&Chief&"','"&OperID&"','"&AddIp&"',#"&AddTime&"#)"
  conn.Execute(Query)
%>
<script language='javascript'>
  alert('部门成功增加!');
  window.location.href = "<%=UrlName%>";
</script>
<%

elseif gpy="Modi" then
  if DeptId="" then Back("未知错误！")
  set sqlDept=conn.Execute("select * from MyDept where ID="&DeptId)
  ShowHtml(sqlDept)

elseif gpy="Modi_Ok" then
  DeptName=html(request("DeptName"))
  Explain=html(request("Explain"))
  Phone=html(request("Phone"))
  Fax=request("Fax")
  Chief=request("Chief")
  Query="Update MyDept set Name='"&DeptName&"',Explain='"&Explain&"',Chief="&Chief&",Phone='"&Phone&"',Fax='"&Fax&"' where ID="&DeptId
  conn.Execute(Query)
%>
<script language='javascript'>
  alert('部门修改增加!');
  window.location.href = "<%=UrlName%>";
</script>
<%

elseif gpy="del" then
  set sqlDept=conn.execute("delete from MyDept where ID="&DeptId)
%>
<script language='javascript'>
  alert('部门成功删除!');
  window.location.href ="<%=UrlName%>";
</script>
<%

end if

sub LookData()
  set sql2=server.createobject("ADODB.recordset")
  Query="select * from MyDept  order by IssueTime desc"
  sql2.open Query,conn,1,1
  sql2.PageSize=CLng(PageSize)
  if Page>sql2.PageCount then Page=sql2.PageCount
  if not(sql2.eof) then
    sql2.absolutepage=CLng(Page)
  end if
  PageNum=sql2.PageCount
  Rows=sql2.RecordCount

  HtmlHead("已有部门列表")
%>
<div align=right><a href="<%=UrlName&"?gpy=ShowHtml"%>">增加新部门</a></div>
<table border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr>
  <td class="pt3" colspan=10>
  <table width="550">
    <tr><td>
    <%=sql2.RecordCount%>个记录/共<%=sql2.PageCount%>页&nbsp;&nbsp;第<%=Page%>页&nbsp;&nbsp;
  </td><td align=right>&nbsp;&nbsp;
  </td></tr></table>
  </td>
  </tr>
  <tr align=center > 
    <td bgcolor='rgb(214,211,206)' width='10' height='20'>&nbsp;</td>
    <td>部门名称</td>
    <td>部门负责人</td>
    <td>电话号码</td>
    <td>传真号码</td>
    <td>发布时间</td>
    <td>操作</td>
  </tr>
<%for i=1 to Pagesize
   if sql2.eof then exit for
   %>
 <tr bgcolor=#FFFFFF >
    <td bgcolor='rgb(214,211,206)' width='10' height='20'>&nbsp;</td>
    <td><%=sql2("Name")%></td>
    <td><%if sql2("Chief")<>"" then response.write GetName("select Name from MyOper where ID="&sql2("Chief"))%>&nbsp;</td>
    <td><%=sql2("Phone")%>&nbsp;</td>
    <td><%=sql2("Fax")%>&nbsp;</td>
    <td><%=sql2("IssueTime")%></td>
    <td class=pt2>
        <a href=<%response.write(request.servervariables("SCRIPT_NAME")&"?gpy=Modi&DeptId="&sql2("ID"))%>>修改</a>&nbsp;
        <a href=<%response.write("javascript:confirmDel("&sql2("ID")&")")%>>删除</a>	
	</td>
 </tr>
<%
  sql2.movenext
  next
 response.write("</table>")
 HtmlEnd
end sub


sub ShowHtml(sql)
HtmlHead("部门管理")
%>
  <SCRIPT language=JavaScript>
  <!--
  function checkvalue() {
    aa=document.form1
    if (aa.DeptName.value=="") {
        window.alert ("请输入部门名称!"); aa.DeptName.focus();return false}
	}
//-->
</SCRIPT>
<form name="form1" method="post" action=<%=request.servervariables("SCRIPT_NAME")%> onSubmit="return checkvalue()">
<table width='500' border='1' cellspacing='0' cellpadding='0' bordercolorlight='#7C7C7C' bordercolordark='#FFFFFF'>
    <tr>
      <td>部门名称：</td>
      <td colspan=3>
        <input type="text" name="DeptName" size=60 value="<%=sql(1)%>">
      </td>
    </tr>
    <tr>
      <td>负&nbsp;责&nbsp;人：</td>
      <td colspan=3>
        <SELECT NAME="Chief">
		  <option value='0'>---无---</option>
<%
          set sqlOper=conn.Execute("select ID,Name from MyOper")
		  while not sqlOper.eof
           response.write "<option value='"&sqlOper("ID")&"'>"&sqlOper("Name")&"</option>"
   		   sqlOper.movenext
		  wend
%>
		</SELECT>
     </td>
    </tr>
    <tr>
      <td>电话号码：</td><td><input type="text" name="Phone"  value="<%=sql(4)%>"></td>
      <td>传真号码：</td><td><input type="text" name="Fax"  value="<%=sql(5)%>"></td>
    </tr>
	<tr> 
      <td valign="top">部门职责：</td>
      <td colspan=3>
        <textarea name="Explain" cols="50" rows="6"><%=sql(2)%></textarea>
      </td>
    </tr>
    <tr> 
      <td colspan="4"> 
        <div align="center">
<%If DeptId<>"" then%>
<SCRIPT LANGUAGE="JavaScript">
<!--
  document.form1.Chief.value='<%=sql(6)%>';
//-->
</SCRIPT>
        <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value="  修改" name="okbtn">
        <input type=hidden name="DeptId" value=<%=DeptId%>>
        <input type=hidden name="gpy" value="Modi_Ok">
<%else%>
        <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value="  增加" name="okbtn">
        <input type=hidden name="Issuer" value=<%=Issuer%>>
        <input type=hidden name="gpy" value="Add">
<%end if%>
        <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/Delete.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center"  type="button" value="  放弃" name="okbtn" onClick="history.back();">
        </div>
      </td>
    </tr>
  </table>
</form>

<%
HtmlEnd
response.write "<br>"
end sub
'程序：王星亮 网名：血饮狂刀 国外的叫我LANBOO
'OICQ：40001
'EMAIL：[e-mail]
'我是什么都有，您想要我开发什么程序，尽管说。只要价格合理就行。
'我电话：[phone]
%>