ASP의 FSO 구성 요소는 매우 강력합니다. 이 기능이 없다면 ASP가 어떻게 될지 모릅니다. 실제로 ASP 프로그래밍을 배우고 싶은 친구는 FSO 관련 작업에 확실히 노출됩니다. 다음의 새로운 기술 채널을 사용하면 ASP FSO 파일 처리 기능의 전체 모음을 제공합니다.
코드 사본은 다음과 같습니다.<%
'폴더 기능을 만듭니다
기능 CreateFolder (strfolder) '매개 변수는 상대 경로입니다
'첫 번째 선택은 생성 될 폴더가 이미 존재하는지 여부를 결정하는 것입니다.
Dim Strtestfolder, objfso
strtestfolder = server.mappath (strfolder)
set objfso = createobject ( "scripting.filesystemobject")
'폴더가 있는지 확인하십시오
objfso.dolerexists (strtestfolder)가 아니라면
'존재하지 않으면 폴더를 만듭니다
objfso.createfolder (strtestfolder)
끝 If
OBJFSO = 아무것도 설정하지 않습니다
엔드 기능
'폴더를 삭제하십시오
함수 delfolder (strfolder) '매개 변수는 상대 경로입니다
strtestfolder = server.mappath (strfolder)
set objfso = createobject ( "scripting.filesystemobject")
'폴더가 있는지 확인하십시오
objfso.dolerexists (strtestfolder)라면
objfso.deletefolder (strtestfolder)
끝 If
OBJFSO = 아무것도 설정하지 않습니다
엔드 기능
'텍스트 파일을 만듭니다
함수 createTextFile (fileUrl, fileContent) '매개 변수는 상대 경로이며 파일에 기록 할 내용입니다.
set objfso = server.createobject ( "scripting.filesystemobject")
set fout = objfso.createtextFile (Server.Mappath (FileUrl))
Fout. Writeline FileContent
fout.close
OBJFSO = 아무것도 설정하지 않습니다
엔드 기능
'파일 삭제 (모든 파일에 적합)
함수 deltextFile (fileUrl) '매개 변수는 상대 경로입니다
set objfso = createobject ( "scripting.filesystemobject")
fileUrl = server.mappath (fileUrl)
objfso.fileExists (fileUrl) 인 경우 '파일이 존재하는지 확인하십시오
objfso.deletefile (Server.mappath (FileUrl))
끝 If
OBJFSO = 아무것도 설정하지 않습니다
엔드 기능
'이미지 파일을 만들고 이미지 데이터 스트림을 저장하십시오
함수 createImage (fileUrl, imageContent) '매개 변수는 상대 경로 및 파일 내용입니다
set objstream = server.createobject ( "adodb.stream") ''adodb.stream 객체를 만들려면 ADO 버전 2.5 이상을 생성해야합니다.
objstream.type = 1 '이진 모드에서 열립니다
objstream.open
objstream. imageContent '쓰기 문자열 컨텐츠를 버퍼로 작성하십시오
objstream.savetofile server.mappath (fileUrl), 2 '-버퍼링 된 컨텐츠를 파일에 쓰십시오
objstream.close () '닫기 객체
objstream = 아무것도 설정하지 않습니다
엔드 기능
'원격으로 파일 데이터를 얻습니다
기능 gethttppage (URL)
'오류로 이력서에 다음에
희미한 HTTP
set http = server.createobject ( "microsoft.xmlhttp")
http.open "get", url, false
http.send ()
http.readystate <> 4 인 경우
종료 기능
끝 If
gethttppage = bytestobstr (http.responsebody, "gb2312")
HTTP = 아무것도 설정하지 않습니다
err.number <> 0 인 경우
gethttppage = "서버에 파일 내용 오류가 발생했습니다."
err.clear
끝 If
엔드 기능
기능 bytestobstr (body, cset)
희미한 objstream
set objstream = server.createobject ( "adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
objstream = 아무것도 설정하지 않습니다
엔드 기능
'사진 데이터 스트림 받기
기능 getpic (url)
다음에 오류가 재개됩니다
희미한 HTTP
set http = server.createobject ( "msxml2.xmlhttp") 'xmlhttp method를 사용하여 이미지의 내용을 얻습니다.
http.open "get", url, false
http.send ()
http.readystate <> 4 인 경우
종료 기능
끝 If
getpic = http.responsebody
HTTP = 아무것도 설정하지 않습니다
err.number <> 0 인 경우
getPic = "서버가 파일 컨텐츠를 얻는 데 오류가 발생했습니다."
err.clear
끝 If
엔드 기능
'파일 열기 (텍스트 양식)
함수 OpenFile (FileUrl) '파일 상대 경로
Dim Filename, FSO, Hndfile
filename = fileUrl
filename = server.mappath (filename)
set objfso = createobject ( "scripting.filesystemobject")
if objfso.fileExists (filename)
set hndfile = objfso.opentextfile (filename)
OpenFile = hndfile.readall
또 다른
OpenFile = "파일 읽기 오류"
끝 If
Hndfile = 아무것도 설정하지 않습니다
OBJFSO = 아무것도 설정하지 않습니다
엔드 기능
'파일의 접미사 이름을 얻으십시오
함수 getFileExtName (filename)
Dim POS
pos = instrev (filename, ".")
POS> 0이라면
getfileextname = mid (filename, pos+1)
또 다른
getFileExtName = ""
끝 If
엔드 기능
%>
위의 것은 Foxin Technology Channel의 편집자가 도입 한 ASP FSO 파일 처리 기능의 전체 모음입니다. 나는 모든 사람이 특정한 이해를 가지고 있다고 생각합니다. Foxin Technology Channel 은이 산업에서 더 많은 지식을 공유하여 더 나아질 것입니다.