人事管理系统论文(3)

来源：网络收集时间：2019-04-02 下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:或QQ：处理（尽可能给您提供完整文档），感谢您的支持与谅解。

Err.Clear Exit function End If

If DbVer=0 Then

call Cd.CompactDatabase(\dbFileName,\

Source=\ Else

call Cd.CompactDatabase(\ SavePath & dbFileName,\ SavePath & dbFileName & \ End If

'删除旧的数据库文件

call DeleteFile(SavePath & dbFileName) '将压缩后的数据库文件还原

call RenameFile(SavePath & dbFileName & \ Set Cd = False

CompactDatabase = True End If end function

Public function DbExists(byVal dbPath) '查找数据库文件是否存在 On Error resume Next Dim c

Set c = Server.CreateObject(\

c.Open \ If Err.number<>0 Then Err.Clear DbExists = false else

DbExists = True End If set c = nothing End function

Public function AppPath() '取当前真实路径

AppPath = Server.MapPath(\ End function

Public function AppName() '取当前程序名称 AppName

Mid(Request.ServerVariables(\T_NAME\ End Function

Public function DeleteFile(filespec) '删除一个文件 Dim fso

Set fso = CreateObject(\ If Err.number<>0 Then

Response.Write(\删除文件发生错误!请查看错误信息 \\ Err.Clear

DeleteFile = False End If

call fso.DeleteFile(filespec) Set fso = Nothing DeleteFile = True

End function

Public function RenameFile(filespec1,filespec2) '修改一个文件 Dim fso

Set fso = CreateObject(\ If Err.number<>0 Then

Response.Write(\修改文件名时发生错误!请查看错误信息 \\ Err.Clear

RenameFile = False End If

call fso.CopyFile(filespec1,filespec2,True) call fso.DeleteFile(filespec1) Set fso = Nothing RenameFile = True End function

End Class %>

第五章系统登录及系统页面设计

5.1系统登录身份验证

页名：Default.asp 功能：用户登录/注册。

页面制作：用Dreamweaver来设计登录/注册页的风格，然后添加ASP代码。代码：

无标题文档