"\"Or Right(SavePath,1)<>"/"Then SavePath=Trim(SavePath)&"\"If Left(dbFileName,1)="\"또는 Left(dbFileName,1)="/"Then dbFileName=Trim(Mid(dbFileName,2,Len(dbFileName))If DbExists(SavePath&dbFileName)Then Response.Write("안 맞 아,이 데이터 베 이 스 는 이미 존재 해!")CreateDBfile=False Else Dim Ca Set Ca=Server.CreateObject("ADOX.Catalog")Err.number<>0 인 경우 Response.Write("만 들 수 없 으 니 오류 정 보 를 확인 하 십시오"&Err.number&"&Err.Description)Err.Clear Exit 함수 가 끝 나 는 경우 DbVer=0 인 경우 Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName) Else call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&SavePath&dbFileName)End If Set Ca=Nothing CreateDBfile=True End If End function Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)'압축 데이터베이스 파일'0 은 access 97'1 은 access 2000 On Error resume next If Right(SavePath,1)<>1)<>"/"Then SavePath=Trim(SavePath)&"\"If Left(dbFileName,1)="\"Or Left(dbFileName,1)="/"Then dbFileName=Trim(Mid(dbFileName,2,Len(dbFileName))If DbExists(SavePath&dbFileName)Then Response.Write("맞지 않 아,이 데이터 베 이 스 는 이미 존재 해!")CompactDatabase=False Else Dim Cd Set Cd=Server.CreateObject("JRO.JetEngine")Err.number<>0 인 경우 Response.Write("압축 할 수 없 으 므 로 오류 정 보 를 검사 하 십시오"&Err.number&"&Err.Description)Err.Clear Exit 기능 이 종료 되 는 경우 DbVer=0 인 경우 Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True") Else call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")End If'오래된 데이터베이스 파일 삭제 call DeleteFile(SavePath&dbFileName)'압축 된 데이터베이스 파일 을 call RenameFile(SavePath&dbFileName&".bak.mdb"로 복원 합 니 다.SavePath&dbFileName)Set Cd=False CompactDatabase=True End If end function Public function DbExists(byVal dbPath)'데이터베이스 파일 이 오류 재 개 시 있 는 지 찾기 Next Dim c Set c=Server.CreateObject("ADODB.Connection")c.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbPath 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("./")최종 기능 공공 기능 AppName()'현재 프로그램 이름 AppName=Mid(Request.server Variables("SCRIPT ")NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))End Function Public function DeleteFile(filespec)'파일 삭제 Dim fso Set fso=CreateObject("Scripting.FileSystem Object")Err.number<>0 Then Response.Write("파일 삭제 오류!오류 정보 보기"&Err.number&"&Err.Description)Err.Clear DeleteFile=False End fso.DeleteFile(filespec)Set fso=Nothing DeleteFile=True End function 공공 기능 이름 바 꾸 기 파일(filespec 1,filespec 2)'파일 수정 Dim fso Set fso=CreateObject("Scripting.FileSystem Object")Err.number<>0 Then Response.Write("파일 이름 수정 중 오류 발생!오류 메시지"&Err.number&"&Err.Description)Err.Clear RenameFile=False End If call fso.CopyFile(filespec 1,filespec 2,True)call fso.DeleteFile(filespec 1)Set fso=Nothing RenameFile=True End function End Class%>[Ctrl+A 전체 선택:]
