ASP에서, 특히 정적 상태를 생성 해야하는 CMS 시스템에서 일부 파일은 종종 판단, 생성 및 삭제해야합니다. 오늘, The Error New Technology Channel의 편집자는 기본적으로 기본 요구 사항을 충족하는 여기에서 귀하를 위해 분류했습니다.
파일 업로드 및 삭제를 처리하기 위해 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"& MONTH (지금) else c_month = Month (지금)
'Day (지금) <10이면 C_day = "0"& Day (지금) else c_day = day (지금)
'시간 (지금) <10이면 c_hour = "0"& 시간 (지금) 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 (교체 (지금, ":", ",", "),"-"," ")," "," "," ") & 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)
'문서에서 시작과 끝 사이에 모든 문자를 삭제하십시오.
다음에 오류가 재개됩니다
markcounts = ubund (split (strcontent, start_string))
prestring = strcontent
i = 0의 경우 markcounts입니다
startmark = instr (1, prestring, start_string, 1)
startmark = 0이면 종료하십시오
compmark = instr (1, prestring, end_string, 1) + len (end_string)
VERSTRING = MID (Prestring, StartMark, Compmark -StartMark)
prestring = replace (prestring, verstring, replace_string)
다음
replaceplus = prestring
err.number <> 0 인 경우 err.clear
엔드 기능
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
%>
위의 기사는 ASP에서 일반적으로 사용되는 파일 처리 기능에 관한 것입니다. 나는 모든 사람들이 그들 대부분을 알고 있다고 믿는다. 잘못된 새로운 기술 채널은 계속해서 더 유용한 지식을 수집 할 것입니다. 편집자의 좋은 의도를 이해할 수 있기를 바랍니다. 이 기사를 좋아한다면 계속해서 우리를 따라 가십시오!