评价网 > 科教论文 > 管理学毕业论文 > 企业管理论文 > 正文

基于ASP的人事管理系统(9)

2014-06-28 01:11 tion NumCode()

   Response.Expires = -1

   Response.AddHeader "Pragma","no-cache"

   Response.AddHeader "cache-ctrol","no-cache"

   dim zNum,i,j

   dim Ados,Ados1

   Randomize timer

   zNum = cint(8999*Rnd+1000)

   Session("GetCode") = zNum

   dim zimg(4),NStr

   NStr=cstr(zNum)

      For i=0 to 3

      zimg(i)=cint(mid(NStr,i+1,1))

       Next

   dim Pos

   set Ados=Server.CreateObject("Adodb.Stream")

       Ados.Mode=3

       Ados.Type=1

       Ados.Open

   set Ados1=Server.CreateObject("Adodb.Stream")

       Ados1.Mode=3

       Ados1.Type=1

       Ados1.Open

       Ados.LoadFromFile(Server.mappath("images/body.Fix"))

       Ados1.write Ados.read(1280)

       for i=0 to 3

          Ados.Position=(9-zimg(i))*320

          Ados1.Position=i*320

          Ados1.write ados.read(320)

       next  

       Ados.LoadFromFile(Server.mappath("images/head.fix"))

       Pos=lenb(Ados.read())

       Ados.Position=Pos

       for i=0 to 9 step 1

          for j=0 to 3

              Ados1.Position=i*32+j*320

              Ados.Position=Pos+30*j+i*120

              Ados.write ados1.read(30)

          next

       next

       Response.ContentType = "image/BMP"

       Ados.Position=0

       Response.BinaryWrite Ados.read()

       Ados.Close:set Ados=nothing

       Ados1.Close:set Ados1=nothing

End Function%>

4.1.2系统主界面

在主页面Admin_Index.asp中根据不同的用户类型将开放不同的功能权限。其系统主界面如图4.3所示。

图4.3 系统主界面

该系统设有三种用户类型：普通员工、公司领导、系统员。在主界面的右边是系统功能菜单，不同的用户类型将有不同的功能权限被开放，用户具有的权限将在该功能菜单被显示。在该主界面的首页也显示公司最新动态信息和工作计划内容，用户可以点击查看公司动态和工作计划的详细内容。另外，在主界面同时也显示系统运行服务器的具体信息。

1.      实现不同用户类型权限的设计

(1) 对普通员工的权限设置代码如下:

<%if rs("flag")>0 and rs("flag")<5 then%>

<input type="radio" name="flag" value="2" <%if rs("flag")>0 and rs("flag")<5 then%>checked<%end if%>>

<span class="style1">普通员工</span>

<%end if%>

(2) 对公司主管的权限设置代码如下：

<%if rs("flag")>4 and rs("flag")<9 then%>

<input type="radio" name="flag" value="6" <%if rs("flag")>4 and rs("flag")<9 then%>checked<%end if%>>

<span class="style1">公司主管人员</span>

        <%end if%>

(3) 对系统管理员权限设置代码如下：

<%if rs("flag")>8 then%>

<input type="radio" name="flag" value="9" <%if rs("flag")>8 then%>checked<%end if%>>

<span class="style1">系统管理员</span> (不选择默认为普通员工)

       <%end if%>

该系统中不同的用户类型将拥有不同的操作权限。其中，管理员的操作权限最大，拥有整个系统的所有操作权限；次之为公司主管仅不具有对系统设置的权限，但拥有对公司所有工作内容的管理操作权限；普通员工的操作权限最小，仅具有工作内容查看和查询信息的权限。

2.  获取服务器有关参数的设计

其获取服务器参数代码如下：

<%=Request.ServerVariables("SERVER_NAME")%>

‘服务器名

<%=Request.ServerVariables("LOCAL_ADDR")%>

‘服务器IP

<%=Request.ServerVariables("SERVER_PORT")%>

‘服务器端口

<%=Request.ServerVariables("SERVER_SOFTWARE")%>

‘IIS版本

<%=Server.ScriptTimeout%>

‘脚本超时时间

<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>

‘本文件路径

<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>

‘服务器CPU数量

<%=ScriptEngine&"/"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>

‘服务器解译引擎

<%=Request.ServerVariables("OS")%>

‘服务器操作系统 中国大学排名
2.系统管理员、公司主管、普通员工的功能权限菜单如图4.4、4.5、4.6所示。

     

                                                                                                         

     

4.2 系统各功能模块具体设计 4.2.1 个人短信息模块

1．个人短信息模块设计

个人短信息模块主要包括向其他用户发送短信息的页面addmes.asp、查看发给自己的短信息页面、管理个人短信息页面。其界面如图4.7所示。

图4.7 个人短信息界面

2．实现将短信息内容写入数据库的代码如下：

<%

IsAll=trim(Request("IsAll"))

UserID=trim(Request("UserID"))

Content=trim(Request("Content"))

if IsAll="YES" then

SQL="Insert into Message(UserID,Content) values('YES','"&content&"')"

else

SQL="Insert into Mess

          [9]