권장 : Fckeditor 사용을위한 ASP 설정 팁 1. 기본 언어로 fckconfig.js 파일을 엽니 다 (아래 Fckeditor 폴더와 관련하여 아래 동일)를 열고 자동 감지 언어를 감지하지 않고 기본 언어를 단순화 된 중국어로 변경하십시오. fckconfig.defaultlanguage = 'zh-cn'; 2. 글꼴 목록에서 FCKCONFIG.JS 파일을 엽니 다.
<% '================================================================================
'편집자 : Zhang Hui
'프로그래머 코드 : WJ008
'컴파일 시간 : 2008 년 6 월 1 일
'주소를 따르십시오 : www.wj008.net
'함수가 사용하는 모든 파일 주소는 절대 주소를 사용합니다.
'============================================================================================================================================
'로드 파일 (byval 파일)은 기존 파일을로드하고 파일의 내용을 반환하기 위해 문자열을 생성합니다.
'savetofile (byval strody, byval 파일) 변경된 파일 저장, strody는 새로운 문자열입니다.
'delfile (byval 파일) 기존 파일을 삭제합니다
'기존 파일을로드하고 파일은 파일 경로입니다
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
함수로드 파일 (byval 파일)
희미한 objstream
다음에 오류가 재개됩니다
set objstream = server.createobject (adodb.stream)
err.number = -2147221005 인 경우
response.write 불행히도 호스트는 adodb.stream을 지원하지 않으며이 프로그램을 사용할 수 없습니다.
err.clear
응답. 엔드
끝 If
objstream과 함께
.type = 2
. 모드 = 3
.열려 있는
.LoadFromFile 파일
err.number <> 0 인 경우
응답. 파일 및 파일 작성 및 열 수 없습니다. 존재하는지 확인하십시오!
err.clear
응답. 엔드
끝 If
.CharSet = GB2312
.Position = 2
loadFile = .ReadText
.닫다
끝납니다
objstream = 아무것도 설정하지 않습니다
엔드 기능
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
함수 savetofile (byval strody, byval 파일) '열린 파일 저장, 파일은 저장된 파일 경로입니다.
희미한 objstream
다음에 오류가 재개됩니다
set objstream = server.createobject (adodb.stream)
err.number = -2147221005 인 경우
response.write <div align = 'center'> 슬프게도 호스트는 adodb.stream을 지원하지 않으며이 프로그램을 사용할 수 없습니다 </div>
err.clear
응답. 엔드
끝 If
objstream과 함께
.type = 2
.열려 있는
.CharSet = GB2312
.Position = objstream.size
.WriteText = strbody
.savetofile 파일, 2
.닫다
끝납니다
objstream = 아무것도 설정하지 않습니다
엔드 기능
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
함수 delfile (byval 파일)
희미한 objfilesys
다음에 오류가 재개됩니다
set objfilesys = server.createobject (scripting.filesystemobject)
objfilesys.fileExists (파일) 인 경우 파일이 존재하면 파일을 파일 경로로 삭제하십시오.
objfilesys.deletefile 파일
끝 If
err.number <> 0 인 경우
응답. 파일 및 파일 작성 및 삭제할 수 없으면 시스템에서 파일을 사용할 수 있습니다!
err.clear
응답. 엔드
끝 If
objfilesys = 아무것도 설정하지 않습니다
엔드 기능
'파일이 있는지 확인하십시오
함수 점검파 (sfileName)
체크 파일 = 거짓
희미한 objfilesys
다음에 오류가 재개됩니다
set objfilesys = server.createobject (scripting.filesystemobject)
if objfilesys.fileExists (sfilename) 인 경우 파일이 존재하면 파일을 파일 경로로 삭제하십시오.
체크 파일 = 참
끝 If
objfilesys = 아무것도 설정하지 않습니다
엔드 기능
'폴더가 있는지 확인하십시오
기능 검사자 (CHK_PATH)
set fso = server.createobject (scripting.filesystemobject)
FSO.DODEREXISTS (CHK_PATH) = FALSE
checkfolder = false
또 다른
Checkfolder = true
끝 If
엔드 기능
'파일 접미사 이름을 얻으십시오
함수 getfileext (sfilename)
getfileext = ucase (mid (sfilename, instrev (sfilename,.)+1)))
엔드 기능
'*************************************************************
'기능 : ASP 업로드 취약점/0 보호
'기능 이름 : truest (filetrue)
'매개 변수 : sfilename filename
'반품 값 : 법률 파일에 대해 true 반환, 그렇지 않으면 거짓을 반환하십시오.
'*************************************************************
함수 istruefilename (sfilename)
Dim Str_len, pos
str_len = len (sfilename)
pos = instr (sfilename, chr (0))
pos = 0 또는 pos = str_len이면
istruefilename = true
또 다른
istruefilename = false
끝 If
엔드 기능
'*************************************************************
'기능 : 업로드 된 이미지 파일 (JPEG, GIF, BMP, PNG)이 실제로 이미지인지 감지
'기능 이름 : truest (filetrue)
'매개 변수 : sfilename 파일 이름 (여기서는 파일 이름이 폴더의 실제 전체 경로입니다)
'반환 값 : 실제로 이미지 파일 인 경우 true가 반환됩니다. 그렇지 않으면 False를 반환합니다.
'*************************************************************
함수 isimgfile (sfilename)
const adtypebinary = 1
희미한 반환
Dim JPG (1) : JPG (0) = CBYTE (& HFF) : JPG (1) = CBYTE (& HD8)
DIM BMP (1) : BMP (0) = CBYTE (& H42) : BMP (1) = CBYTE (& H4D)
DIM PNG (3) : PNG (0) = CBYTE (& H89) : PNG (1) = CBYTE (& H50) : PNG (2) = CBYTE (& H4E) : PNG (3) = CBYTE (& H47)
Dim GIF (5) : GIF (0) = CBYTE (& H47) : GIF (1) = CBYTE (& H49) : GIF (2) = CBYTE (& H46) : GIF (3) = CBYTE (& H39) : GIF (4) = CBYTE (& H38) : GIF (5) = CBYTE (& H61).
다음에 오류가 재개됩니다
공유 : 도메인 이름 쿼리 ASP 버전의 데이터베이스 인터페이스 Or
이전 페이지의 총 3 페이지 123 다음 페이지