ASP设备管理系统 第9页
审核模块为checkPermanentAsserts.asp（如图 5 12审核模块），此模块只有系统用户以上级别才能进入,所以在文件中引用如下文件：<!-- #include file="checkrole1.asp" -->用于验证其权限。此模块的功能在于对申报的固定资产进行确认。如若审核通不过的资产则删除，通过则保留信息，两种情况分别将跳转到Delt.asp及checkPermanentAssertsSave.asp进行后台操作，在审核通过后isChecked标志位将置为1。（注：在此同时生成的仪器设备编号是唯一的，且是以分类号为前两位的顺序编号）
 
5.8.3 卡片生成
 
图 5 13卡片生成模块
卡片生成模块为printExcel.asp（如图 5 13卡片生成模块），此模块只有系统用户以上级别才能进入,所以在文件中引用如下文件：<!-- #include file="checkrole1.asp" -->用于验证其权限。此模块的功能在于申报的固定资产卡片生成。卡片是以Excel形式生成的，所以用到ASP页面中直接生成excel文件技术。主要技术有如下：
'建立Excel.Application对象
set objExcel=CreateObject("Excel.Application")
'打开Excel模板
objExcel.Workbooks.Open(server.mappath("\test")&"\b.xls")  '打开Excel模板 
objExcel.Sheets(1).select '选中工作页
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
.
.
.
temp=Server.MapPath("Excel2.asp") '获取index.asp主页所在路径。
  path=Left(temp,len(temp)-9)      '获取路径字符串。
  filename = "西南林学院固定资产卡.xls"           '指定Excel文件名。
  filepath = path&filename         '生成Excel文件名及路径。
  '--如果原来的EXCEL文件存在的话删除它
  if myFs.FileExists(filepath) then
    myFs.DeleteFile(filepath)        '删除已经存在的同名文件。
set myFs=nothing
'Excel临时文件的保存
objExcel.ActiveWorkbook.saveas filepath
' 退出Excel应用
objExcel.quit
set objExcel=Nothing
生成的固定资产卡片如图（如图 5 14固定资产卡片）
 
图 5 14固定资产卡片 
5.8.4 编号打印及附件下载
 
图 5 15编号打印及附件下载模块
编号打印及附件下载模块为printandClassify.asp（如图 5 15编号打印及附件下载模块），此模块只有系统用户以上级别才能进入,所以在文件中引用如下文件：<!-- #include file="checkrole1.asp" -->用于验证其权限。此模块的功能在于编号打印固定资产卡片并可下载其附件。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>