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代码。 代码：