권장 : ASP 빠른 페이지 매김 코드 %@ language = vbscript codepage = 936 % % 옵션 옵션 명시 적 '가변 딤드 카운트 강제'총 레코드 수 딤 페이지마다 '페이지 당 숫자 dim pagec'총 페이지 딤 페이지 번호 딤 페이지 번호 딤 페이지 '페이지 딤 미드 페이지 숫자 = pagenc*2+1 pagenmax 페이지마다 표시된 페이지 딤 딤 pagenmin
ASP 및 FSO를 지원하는 공간의 경우 FSO를 사용하면 모든 것이 훨씬 쉽습니다.
나는 또한 초보자이며 모든 사람들이 배우고 공부할 수 있도록 코드를 썼습니다.
먼저 FSO 구성 요소 지원을 보십니까?
<%
'fso 구성 요소 이름
희미한 fsobject
fsobject = scripting.filesystemobject
'===============================================================================================
'◆ 구성 요소가 지원되는지 여부
'===============================================================================================
기능 isobjinstalled (strclassstring)
다음에 오류가 재개됩니다
isobjinstalled = false
err = 0
dim xtestobj
set xtestobj = server.createobject (strclassstring)
0 = err 인 경우 isobjinstalled = true입니다
set xtestobj = nothing
err = 0
엔드 기능
isobjinstalled (fsobject)이면
응답 √
또 다른
응답 x
%>를 종료하십시오
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<%
'===============================================================================================
'◆ 구성 요소가 지원되는지 여부
'===============================================================================================
기능 isobjinstalled (strclassstring)
다음에 오류가 재개됩니다
isobjinstalled = false
err = 0
dim xtestobj
set xtestobj = server.createobject (strclassstring)
0 = err 인 경우 isobjinstalled = true입니다
set xtestobj = nothing
err = 0
엔드 기능
'===============================================================================================
'FSO 운영
'===============================================================================================
'◆ 디렉토리가 존재하는지 확인하십시오
'===============================================================================================
함수 checkdir (폴더 스팟)
FolderPath = Server.mappath (.) 및/& 폴더 스팟
set fso = createobject (fsobject)
FSO.DODEREXISTS (FolderPath)라면
checkdir = true
또 다른
checkdir = false
끝 If
FSO = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 지정된 이름에 따라 디렉토리를 생성합니다
'===============================================================================================
함수 makenewsdir (folderName)
Dim FS0
set fso = createobject (fsobject)
set fs0 = fso.createfolder (폴더 이름)
FSO = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 폴더가 존재하지 않으면 새 폴더 생성 ◆
'===============================================================================================
기능 검사기 (FolderPath)
checkdir (folderPath) = false 인 경우 폴더가 존재하지 않는 경우
Makenewsdir (FolderPath) '폴더를 만듭니다
끝 If
엔드 기능
'===============================================================================================
'◆ 폴더 삭제 ◆
'===============================================================================================
함수 deletefoldera (FolderPath)
희미한 경로
set fso = createobject (fsobject)
경로 = request.servervariables (appl_physical_path) 및 폴더 스팟
fso.deletefolder (Path)
FSO = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 폴더 이름 변경 ◆
'===============================================================================================
함수 MoveFolder (FolderName, NewfolderName)
ISFSO
set fso = createobject (fsobject)
fso.movefolder & request.servervaribles (appl_physical_path) &/& foldername &, & request.servervariables (appl_physical_path) &/& newfoldername &
FSO = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 지정된 파일을 삭제 ◆
'===============================================================================================
함수 deletefile (파일)
set fso = createobject (fsobject)
fso.deletefile request.servervaribles (appl_physical_path) 및 파일
FSO = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 지정된 파일 백업 ◆
'===============================================================================================
기능 Copyfile (Oldfile, Newfile)
set fso = createobject (fsobject)
다음에 오류가 재개됩니다
set fso = server.createobject (fsobject)
Oldfile = server.mappath (Oldfile)
err.number> 0 인 경우 Alert (Original Path Error!,)
NewFile = Server.mappath (NewFile)
err.number> 0 인 경우 Alert (New Path Error!,)
fso.copyfile OldFile, NewFile '원본 파일을 덮어 씁니다
err.number> 0 인 경우 alert (err.description,)
FSO = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 지정된 파일 전송 ◆
'===============================================================================================
기능 MoveFile (Oldfile, Newfile)
set fso = createobject (fsobject)
다음에 오류가 재개됩니다
set fso = server.createobject (fsobject)
Oldfile = server.mappath (Oldfile)
err.number> 0 인 경우 Alert (Original Path Error!,)
NewFile = Server.mappath (NewFile)
err.number> 0 인 경우 Alert (New Path Error!,)
'fso.moveFile OldFile, NewFile'은 원본 파일을 덮어 쓸 수 없습니다
fso.movefile d : /o/data/test.txt,d : /o/databackup/test3.txt
err.number> 0 인 경우 alert (err.description,)
FSO = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 파일 코드 읽기 ◆
'===============================================================================================
함수로드 파일 (파일) '파일을 읽습니다
희미한 ftemp
set fso = createobject (fsobject)
set ftemp = fso.opentextfile (Server.mappath (& file &), 1)
loadfile = ftemp.readall
ftemp.close
fso.close
FSO = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 코드에서 파일 생성 ◆
'===============================================================================================
'========================================================
'■ 파일은 파일 이름을 생성합니다
'■ 코드 파일 코드
'========================================================
함수 savefile (파일, 코드) '파일 저장
희미한 마이파일
set fso = createobject (fsobject)
set myfile = fso.creatextfile (Server.Mappath (파일), true)
myfile.writeline (코드)
myfile.close
myFile = 아무것도 설정하지 않습니다
엔드 기능
'===============================================================================================
'◆ 압축 데이터베이스 ◆
'===============================================================================================
'========================================================
'■ dbpath 데이터 파일 경로
'■ boolis97 Access97 압축
'========================================================
함수 compactDB (dbpath, boolis97)
DIM STRDBPATH, FSO, 엔진
dbpath = server.mappath (dbpath)
strdbpath = 왼쪽 (dbpath, instrev (dbpath,/))
set fso = createobject (fsobject)
fso.fileExists (dbpath) 인 경우
Set Engine = CreateObject (jro.jetengine)
boolis97 = true라면
Dim Jet_3X
Engine.compactDatabase 제공자 = Microsoft.jet.oledb.4.0; Data Source = & dbpath, _
제공자 = microsoft.jet.oledb.4.0; data source = & strdbpath & temp.mdb; _
& 제트 OLEDB : 엔진 타입 = & jet_3x
또 다른
Engine.compactDatabase 제공자 = Microsoft.jet.oledb.4.0; Data Source = & dbpath, _
Provider = Microsoft.jet.oledb.4.0; Jet OLEDB : Database Password = & dbpw &; data source = & strdbpath & temp.mdb
끝 If
fso.copyfile strdbpath & temp.mdb, dbpath
fso.deletefile (strdbpath & temp.mdb)
FSO = 아무것도 설정하지 않습니다
엔진 = 아무것도 설정하지 않습니다
compactdb = 현재 데이터베이스가 성공적으로 압축되었습니다!
또 다른
compactdb = 데이터베이스 이름 또는 경로가 올바르지 않습니다. 다시 시도하십시오!
끝 If
엔드 기능
%>
공유 : ASP 파일 작동 함수 세트 % '=================================================================================================================== Zhang Hui'프로그래머 코드 : wj008 '컴파일 된 시간 : 2008 년 6 월 1 일 : www.wj008.net'www.wj008.net 'www.wj008.net을 사용합니다. 주소 '========================================================================================= ============================================================================================