介绍了一种基于B/S架构的自定义日志管理系统，用于校园网一卡通系统中的机房刷卡子系统。该系统能够实现用户上机、交费记录的查找、统计、分析等功能，并根据不同用户角色限制相应权限。
出处:计算机与信息技术
自定义日志系统是校园网一卡通系统中机房刷卡子系统的一个基于B/S开发的功能模块，该系统的后台数据库为自定义格式的数据库系统。数据库中主要的用户表和日志表的结构如下：
Structure FixUse '用户表
Public ID As Integer '用户ID
＜VBFixedArray(15)＞ Public NoCard() As Byte '卡号
＜VBFixedArray(15)＞ Public NoUser() As Byte '学号
＜VBFixedArray(15)＞ Public Name() As Byte '姓名
＜VBFixedArray(15)＞ Public PSW() As Byte '密码
Public Dept As Integer '部门ID
Public Attr As Integer '机房总管
Public AttreEx As Integer '机房总管扩展
Public Money As Integer '帐户金额
Public Power As Integer '用户权限
Public PowerEx As Integer '用户权限扩展
Public MoneyEx As Integer '帐户金额扩展
＜VBFixedArray(31)＞ Public Rev() As Byte '系统,
End Structure
Structure FixLog '上下机、交费日志表
Dim ID As Integer '流水号
Dim Type As Integer '事件类型
＜VBFixedArray(5)＞ Dim DateTime() As Byte '上机开始时间，若为交费，则为空
＜VBFixedArray(5)＞ Dim MAC() As Byte '指定上机IP地址
Dim ManagerID As Integer '收费管理员ID
Dim UserID As Integer '用户ID
Dim Money As Integer '消费或交费金额 Dim ID_EquipMent As Integer '上机设备号
＜VBFixedArray(5)＞ Dim DateTimeEnd() As Byte '下机时间
Public Location As Int64 '系统保留
＜VBFixedArray(13)＞ Dim revex() As Byte '保留
End Structure
日志系统的开发原理及实现技术
1、自定义数据库开发原理
采用ASP.NET和VB.NET三层模型开发，以Web应用程序的方式运行该模块。常用三层开发模型（ASP.NET模型）如图1所示。UI层负责与用户交互，接收用户的输入并将服务器端传来的数据呈现给客户。业务逻辑层负责接收浏览器传来的请求并将请求传给数据层，同时将请求处理结果发给浏览器。它由Web表单、XML Web服务和组件服务组成。其中Web表单是ASP.NET应用程序的核心所在，它是向客户呈现数据和信息的基础，也是响应和处理客户与显示的Web表单交互生成的信息和数据的基础。
系统日志管理模块对用户上机、交费记录实现查找、统计、分析、图示、打印等功能。
业务逻辑层包装在用VB.NET开发的后台类库中。
本自定义日志管理系统功能模块结构如图2所示。因为本系统是面向所有用户，包括系统管理员，辅助管理员，和普通上机学生，所以在功能上必须对不同用户加以限定。
查询该用户密码和余额
查询该用户上机、交费日志
统计、图示、打印、上机、交费
查看用户数据库总余额
按日期顺序重新排序日志文件，然后写入日志文件
查某个用户的密码、余额
查询
图2 系统功能模块结构
由图2可知，普通用户登录该系统后，只能查询统计该用户的上机、交费信息。辅助管理员一般指计算中心聘用的那些临时工、或勤工俭学的学生，他们协助管理员进行机房的管理。根据管理的需要他们有一些管理级别的权限，但有些重要的统计信息他们不能获得。
2、自定义日志系统实现技术
2.1 技术细节
(1)本模块首先对系统实时产生的日志文件进行合并。因为每天都会有许多新的日志文件生成，所以系统自动检索有无新的日志文件产生，若有则将其合并到总库中,并按日期建立索引，同时删除已合并的日志文件。
(2)面向学生、面向管理员及其验证。在ASP.NET中，身份验证通过配置文件Web.config中的authentication小节实现，Forms表示通过页面表单验证，即输入的用户和密码是正确的，才能访问后续的页面表单。否则将指向登录页面。 ＜authentication mode="Forms" ＞
＜forms name="cookie-name" path="/" loginUrl="/webchongyuan/login.aspx" protection="Encryption" timeout="10" /＞
＜/authentication＞
通过会话对象Session确定用户属于哪一个级别，即Session("LoginType") = LoginType，LoginType取NormalUse或NormalManager或SuperManager。
登录验证的主要代码如下：
LoginType = UseServer.LoginIn(txtName.Text.Trim, txtPass.Text.Trim) '获得权限级别
Session("LoginType") = LoginType '将权限级别存储在会话中
Select Case LoginType
Case DataType.Data.LoginType.SUPUERMANAGER '高级管理员
FormsAuthentication.RedirectFromLoginPage(txtName.Text, False)
clsDebug.DebugFileOut(txtName.Text & vbTab & Now.ToString)
Response.Redirect("entertime.aspx") '转向后续页面
Case DataType.Data.LoginType.NORMALMANAGER, DataType.Data.LoginType.NORMALUSER '辅助管理员或一般用户，在后续页面中通过Session来区别权限
FormsAuthentication.RedirectFromLoginPage(txtName.Text, False)
clsDebug.DebugFileOut(txtName.Text & vbTab & Now.ToString)
Response.Redirect("entertime.aspx")
Case DataType.Data.LoginType.NOUSER '用户不存在
txtName.Text = ""
lblMsg.Text = "用户名不存在"
End Select
(3)高速缓存用户和日志。用户和日志文件在运行一段时间后，通常都变得很大，20M甚至40M，这样大的数据，如果每次都要进行磁盘访问，将耗费大量时间，所以必须进行高速缓存，同时而又不能影响数据实时性的需求。 在ASP.NET中，可通过Cache.Insert方法将用户对象高速缓存，在缓存超时后，系统将自动回调，更新缓存数据，这样就实现缓存的自动化。我们可将超时时间的限定设置在Web.Config的appSettings小节中。
下面是日志对象缓存的事例代码：
Private Sub RemovedCallBackLog(ByVal key As String, ByVal Value As Object, ByVal Reason As CacheItemRemovedReason) '当缓存超时，自动调用该函数
BuildLogCache()
End Sub
Private Sub BuildLogCache() '重建日志缓存，重新读取磁盘数据到内存
Dim UseServer As clsUseServer '用户服务对象，处理用户数据的各种需求
Dim LogServer As clsLogServer '日志服务对象，处理日志数据的各种需求
Dim strUseMsg As String '给用户显示的信息
Dim CacheTime As String '日志在内存中缓存的时间
Dim onRemove As New CacheItemRemovedCallback(AddressOf Me.RemovedCallBackLog) '回调
Try
If IsNothing(Cache("UseServer")) Then BuildUseCache()'若用户缓存为空，则重建用户缓存（日志服务对象中要使用用户服务对象）
UseServer = CType(Cache("UseServer"), clsUseServer) '将用户服务对象缓存
clsLogFunction.LogHebin() '在管理员登录时，合并日志文件
LogServer = New clsLogServer(UseServer) '从用户服务对象新建日志服务对象
CacheTime = ConfigurationSettings.AppSettings("LogCacheTime") '从Web.config中获得缓存日志对象的时间
Cache.Insert("LogServer", LogServer, Nothing,DateTime.Now.AddMinutes(CInt(CacheTime)), TimeSpan.Zero, CacheItemPriority.Normal, onRemove) '将日志服务对象缓存
Catch ex As Exception
clsDebug.DebugFileOut(ex.Message) '记录异常信息
End Try
End Sub
(4)Web打印和图示技术的实现。Web打印通过ActiveReports组件完成，该组件与.NET开发环境完美集合，提供各种服务器控件通过后台代码完成数据的检索和显示。图示是采用绘图对象Bitmap、Graphics、Pen等在服务器端手工完成条图、线图、饼图的绘制，然后用BitMap.Save(Response.OutputStream, ImageFormat.Gif)方法将图发送到客户端的IE中。
(5)网络硬盘服务模块。通过.net提供的对象DirctoryInfo、FileInfo、Dirctory、File在服务器端实现文件、目录的创建保存等工作。客户端通过Cookies保存学生的ID即卡号，当学生第一次运行网络硬盘服务时，将根据部门和用户ID自动在服务器端创建学生目录，以后可上载、下载文件、在线编辑文本文件等操作。
结束语
该自定义日志管理系统在苏州大学、郑州大学、河南大学等高校校园网一卡通系统中作为子系统实现，运行稳定、安全，获得了较好的经济效益。
Structure FixUse '用户表
Public ID As Integer '用户ID
＜VBFixedArray(15)＞ Public NoCard() As Byte '卡号
＜VBFixedArray(15)＞ Public NoUser() As Byte '学号
＜VBFixedArray(15)＞ Public Name() As Byte '姓名
＜VBFixedArray(15)＞ Public PSW() As Byte '密码
Public Dept As Integer '部门ID
Public Attr As Integer '机房总管
Public AttreEx As Integer '机房总管扩展
Public Money As Integer '帐户金额
Public Power As Integer '用户权限
Public PowerEx As Integer '用户权限扩展
Public MoneyEx As Integer '帐户金额扩展
＜VBFixedArray(31)＞ Public Rev() As Byte '系统,
End Structure
Structure FixLog '上下机、交费日志表
Dim ID As Integer '流水号
Dim Type As Integer '事件类型
＜VBFixedArray(5)＞ Dim DateTime() As Byte '上机开始时间，若为交费，则为空
＜VBFixedArray(5)＞ Dim MAC() As Byte '指定上机IP地址
Dim ManagerID As Integer '收费管理员ID
Dim UserID As Integer '用户ID
Dim Money As Integer '消费或交费金额 Dim ID_EquipMent As Integer '上机设备号
＜VBFixedArray(5)＞ Dim DateTimeEnd() As Byte '下机时间
Public Location As Int64 '系统保留
＜VBFixedArray(13)＞ Dim revex() As Byte '保留
End Structure
日志系统的开发原理及实现技术
1、自定义数据库开发原理
采用ASP.NET和VB.NET三层模型开发，以Web应用程序的方式运行该模块。常用三层开发模型（ASP.NET模型）如图1所示。UI层负责与用户交互，接收用户的输入并将服务器端传来的数据呈现给客户。业务逻辑层负责接收浏览器传来的请求并将请求传给数据层，同时将请求处理结果发给浏览器。它由Web表单、XML Web服务和组件服务组成。其中Web表单是ASP.NET应用程序的核心所在，它是向客户呈现数据和信息的基础，也是响应和处理客户与显示的Web表单交互生成的信息和数据的基础。
系统日志管理模块对用户上机、交费记录实现查找、统计、分析、图示、打印等功能。
业务逻辑层包装在用VB.NET开发的后台类库中。
本自定义日志管理系统功能模块结构如图2所示。因为本系统是面向所有用户，包括系统管理员，辅助管理员，和普通上机学生，所以在功能上必须对不同用户加以限定。
查询该用户密码和余额
查询该用户上机、交费日志
统计、图示、打印、上机、交费
查看用户数据库总余额
按日期顺序重新排序日志文件，然后写入日志文件
查某个用户的密码、余额
查询
图2 系统功能模块结构
由图2可知，普通用户登录该系统后，只能查询统计该用户的上机、交费信息。辅助管理员一般指计算中心聘用的那些临时工、或勤工俭学的学生，他们协助管理员进行机房的管理。根据管理的需要他们有一些管理级别的权限，但有些重要的统计信息他们不能获得。
2、自定义日志系统实现技术
2.1 技术细节
(1)本模块首先对系统实时产生的日志文件进行合并。因为每天都会有许多新的日志文件生成，所以系统自动检索有无新的日志文件产生，若有则将其合并到总库中,并按日期建立索引，同时删除已合并的日志文件。
(2)面向学生、面向管理员及其验证。在ASP.NET中，身份验证通过配置文件Web.config中的authentication小节实现，Forms表示通过页面表单验证，即输入的用户和密码是正确的，才能访问后续的页面表单。否则将指向登录页面。 ＜authentication mode="Forms" ＞
＜forms name="cookie-name" path="/" loginUrl="/webchongyuan/login.aspx" protection="Encryption" timeout="10" /＞
＜/authentication＞
通过会话对象Session确定用户属于哪一个级别，即Session("LoginType") = LoginType，LoginType取NormalUse或NormalManager或SuperManager。
登录验证的主要代码如下：
LoginType = UseServer.LoginIn(txtName.Text.Trim, txtPass.Text.Trim) '获得权限级别
Session("LoginType") = LoginType '将权限级别存储在会话中
Select Case LoginType
Case DataType.Data.LoginType.SUPUERMANAGER '高级管理员
FormsAuthentication.RedirectFromLoginPage(txtName.Text, False)
clsDebug.DebugFileOut(txtName.Text & vbTab & Now.ToString)
Response.Redirect("entertime.aspx") '转向后续页面
Case DataType.Data.LoginType.NORMALMANAGER, DataType.Data.LoginType.NORMALUSER '辅助管理员或一般用户，在后续页面中通过Session来区别权限
FormsAuthentication.RedirectFromLoginPage(txtName.Text, False)
clsDebug.DebugFileOut(txtName.Text & vbTab & Now.ToString)
Response.Redirect("entertime.aspx")
Case DataType.Data.LoginType.NOUSER '用户不存在
txtName.Text = ""
lblMsg.Text = "用户名不存在"
End Select
(3)高速缓存用户和日志。用户和日志文件在运行一段时间后，通常都变得很大，20M甚至40M，这样大的数据，如果每次都要进行磁盘访问，将耗费大量时间，所以必须进行高速缓存，同时而又不能影响数据实时性的需求。 在ASP.NET中，可通过Cache.Insert方法将用户对象高速缓存，在缓存超时后，系统将自动回调，更新缓存数据，这样就实现缓存的自动化。我们可将超时时间的限定设置在Web.Config的appSettings小节中。
下面是日志对象缓存的事例代码：
Private Sub RemovedCallBackLog(ByVal key As String, ByVal Value As Object, ByVal Reason As CacheItemRemovedReason) '当缓存超时，自动调用该函数
BuildLogCache()
End Sub
Private Sub BuildLogCache() '重建日志缓存，重新读取磁盘数据到内存
Dim UseServer As clsUseServer '用户服务对象，处理用户数据的各种需求
Dim LogServer As clsLogServer '日志服务对象，处理日志数据的各种需求
Dim strUseMsg As String '给用户显示的信息
Dim CacheTime As String '日志在内存中缓存的时间
Dim onRemove As New CacheItemRemovedCallback(AddressOf Me.RemovedCallBackLog) '回调
Try
If IsNothing(Cache("UseServer")) Then BuildUseCache()'若用户缓存为空，则重建用户缓存（日志服务对象中要使用用户服务对象）
UseServer = CType(Cache("UseServer"), clsUseServer) '将用户服务对象缓存
clsLogFunction.LogHebin() '在管理员登录时，合并日志文件
LogServer = New clsLogServer(UseServer) '从用户服务对象新建日志服务对象
CacheTime = ConfigurationSettings.AppSettings("LogCacheTime") '从Web.config中获得缓存日志对象的时间
Cache.Insert("LogServer", LogServer, Nothing,DateTime.Now.AddMinutes(CInt(CacheTime)), TimeSpan.Zero, CacheItemPriority.Normal, onRemove) '将日志服务对象缓存
Catch ex As Exception
clsDebug.DebugFileOut(ex.Message) '记录异常信息
End Try
End Sub
(4)Web打印和图示技术的实现。Web打印通过ActiveReports组件完成，该组件与.NET开发环境完美集合，提供各种服务器控件通过后台代码完成数据的检索和显示。图示是采用绘图对象Bitmap、Graphics、Pen等在服务器端手工完成条图、线图、饼图的绘制，然后用BitMap.Save(Response.OutputStream, ImageFormat.Gif)方法将图发送到客户端的IE中。
(5)网络硬盘服务模块。通过.net提供的对象DirctoryInfo、FileInfo、Dirctory、File在服务器端实现文件、目录的创建保存等工作。客户端通过Cookies保存学生的ID即卡号，当学生第一次运行网络硬盘服务时，将根据部门和用户ID自动在服务器端创建学生目录，以后可上载、下载文件、在线编辑文本文件等操作。
结束语
该自定义日志管理系统在苏州大学、郑州大学、河南大学等高校校园网一卡通系统中作为子系统实现，运行稳定、安全，获得了较好的经济效益。
扫一扫
533
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
