ASP에서 일반적으로 사용되는 파일 처리 기능

파일 업로드 및 삭제를 처리하기 위해 ASP에서 일반적으로 사용되는 사용자 정의 기능

<%

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은

'모든 사용자 정의 VBS 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은

함수 deletefile (filename) '파일 삭제

Filename <>라면

set fso = server.createobject (scripting.filesystemobject)

fso.fileExists (filename) 인 경우

fso.deletefile 파일 이름

끝 If

FSO = 아무것도 설정하지 않습니다

끝 If

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은

함수 createdir (byval localpath) '디렉토리를 만드는 프로그램. 여러 수준의 디렉토리가 있으면 한 번에 한 레벨을 만듭니다.

다음에 오류가 재개됩니다

LocalPath = Replace (LocalPath,/,/)

set fileobject = server.createobject (scripting.filesystemobject)

patharr = split (LocalPath,/)

Path_Level = Ubund (Patharr)

i = 0에서 path_level의 경우

i = 0이면 pathtmp = patharr (0) & / else pathtmp = pathtmp & patharr (i) & /

cpath = 왼쪽 (pathtmp, len (pathtmp) -1)

FileObject.FolleExists (cpath)가 아닌 경우 fileObject.CreateFolder CPath

다음

FileObject = Nothing을 설정합니다

err.number <> 0 인 경우

createir = false

err.clear

또 다른

createir = true

끝 If

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은

함수 SaverAndFilename (ByVal SZFILENAME) '원본 파일 이름을 기반으로 새 임의 파일 이름 생성

무작위 화

'rannum = int (90000*rnd) +10000

'Month (지금) <10이면 C_MONTH = 0 & MONST (지금) else c_month = Month (지금)

'Day (지금) <10이면 C_day = 0 & day (지금) else c_day = day (지금)

'시간 (지금) <10이면 C_hour = 0 & hour (지금) else c_hour = hour (지금)

'minute (지금) <10이면 c_minute = 0 & minute (지금) else c_minute = minute (지금)

'두 번째 (지금) <10이면 c_second = 0 & second (지금) else c_second = minute (지금)

fileExt_a = split (szfilename,.)

fileExt = lcase (fileExt_A (ubund (fileExt_a))))

SaverAndFilename = replace (replace (replace (now, :,),-),) & int (10*rnd) &. & fileext

'GeneraterAndomFilename = Year (Now) & C_Month & C_DAY & C_HOUR & C_MINUTE & C_SECOND & RANNUM &. & FILEEXT

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은

함수 jaron_replacer (strcontent, start_string, end_string, replace_string)

'CMS 교체 기능 : 소스 문자열, 첫 번째 부분, 마지막 부분, 대체 문자

'교체 된 문자열을 반환하십시오

jaron_replacer = replace (strcontent, mid (strcontent, instrcontent, start_string), 악기 (strcontent, end_string)+len (end_string), replace_string)

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은

함수 replaceplus (strcontent, start_string, end_string, replace_string)