ASP 가 사진 코드를 업로드하는 것이 가장 간단하다.

그림 선택 및 업로드 버튼을 위한 앞에 놓인 코드입니다

& lt input name = "filename" type = "file" class = "tx1"size = "22" >

& lt input type = "submit" name = "submit1"value = "upload" style = "border:/kr Font:9pt ">；;

& lt/form & gt；;

이 파일은 Upfile_ProductPic.asp 파일입니다. 저장소 경로 및 데이터 테이블을 수정합니다.

& lt! Doctype html public "-//W3C//dtd html 4.01transitional//en" "ame = requesta (";

Const upload_type=0' 업로드 메서드: 0= 및 구성 요소 걱정 없이 클래스 업로드, 1=FSO 업로드 2=lyfupload, 3=aspupload, 4

Const saveupproductpicpath = "uploadproductpic"

Const upproductpictype = "jpg | gif | png | BMP"

Constmaxproductpicsize = 20480000

Dim 업로드, oFile, formName, 저장된 경로, 파일 이름, 파일 확장자, oFileSize

Dim 업로드 활성화

Dim arrUpFileType

디믈란누임

소식을 암담하게 하여 잘못을 발견하다

Msg= ""

FoundErr=false

EnableUpload=false

Savepath = "updiles/ "'업로드 파일이 저장되는 디렉토리입니다.

%>

& lthtml & gt

& lthead & gt

& lt 메타 ame& "."& 파일 확장자

Ofile. Savetofile 서버. Mappath (파일 이름)' 파일을 저장합니다.

연결 열기 구성

Sql = "update index pic set p _ picture ='" & Picname & amp. "& ampfileExt & amp 여기서 p _ name ='" & amppicname & amp "

연결 실행 (SQL)

연결이 닫힙니다

Alert_reDirect "업로드에 성공했습니다!" , "indexPic.asp"

만약 ... 끝날거야

그리고 나서

업로드 설정 = 없음

끝단 접합

%>

이 파일은 upfile_class.asp 파일이므로 수정할 필요가 없습니다.

& lt%

Dim 출력 파일 스트림

--

파일 업로드 클래스

문서 위로 분류 _ 분류

Dim 형식, 파일, 버전, 오류

개인 하위 클래스 _Initialize

Version = "두려움없는 업로드 클래스 버전 V 1.2"

Err =-1

끝단 접합

개인 하위 클래스 _ 종료

변수 및 객체를 지웁니다.

만약 Err< 가 0 이라면

형식. 모두 삭제

양식 설정 = 없음

서류. 모두 삭제

설정 파일 = 없음

OUpFileStream. 닫기

Set oUpFileStream = Nothing

만약 ... 끝날거야

끝단 접합

공용 Sub GetData (MaxSize)

변수를 정의합니다

Dim RequestBinDate, sSpace, bCrLf, sInfo, iInfoStart, iInfoEnd, tStream, iStart, oFileInfo

Dim iFileSize, sFilePath, sFileType, sFormValue, sFileName

Dim iFindStart, iFindEnd

Dim iFormStart, iFormEnd, sFormName

코드 시작

요구가 있으면. TotalBytes & lt 1 그리고' 데이터 업로드가 없는 경우.

Err = 1

출구 커넥터

만약 ... 끝날거야

MaxSize & gt0 Then' 크기가 제한된 경우

요구가 있으면. 토탈 바이트> 그럼 맥스시즈

업로드된 데이터가 제한을 초과하면 Err = 2 입니다.

출구 커넥터

만약 ... 끝날거야

만약 ... 끝날거야

양식 = 서버를 설정합니다. CreateObject ("스크립트. 사전) 을 참조하십시오

형식. CompareMode = 1

설정 파일 = 서버. CreateObject ("스크립트. 사전) 을 참조하십시오

서류. CompareMode = 1

TStream = Server 를 설정합니다. CreateObject ("ADODB. 흐름) 을 참조하십시오

Set oUpFileStream = Server 입니다. CreateObject ("ADODB. 흐름) 을 참조하십시오

OUpFileStream. 유형 =1

OUpFileStream. 모드 = 3

OUpFileStream. 열다

OUpFileStream. 요청을 쓰다. BinaryRead (요청). 총 바이트 수)

OUpFileStream. 위치 = 0

RequestBinDate = oUpFileStream 입니다. 읽기

IFormEnd = oUpFileStream 입니다. 크기

Bcrlf = chrb (13) chrb (10)

항목 사이의 구분 기호를 가져옵니다.

SSpace = MidB (RequestBinDate, 1, InStrB (1, RequestBinDate, bcrlf)-/

IStart = LenB (sSpace)

IFormStart = iStart+2

항목을 분해합니다

하다

IInfoEnd = InStrB (iFormStart, RequestBinDate, bCrLf & ampbCrLf)+3

TStream. 유형 =1

TStream. 모드 = 3

TStream. 열다

OUpFileStream. 위치 = ifor mstart

OUpFileStream. TStream, iInfoEnd-iFormStart 로 복사

TStream. 위치 = 0

TStream. 유형 = 2

TStream. CharSet = "gb23 12 "

SInfo = tStream 입니다. 텍스트를 읽습니다

양식 항목의 이름을 가져옵니다

IFormStart = InStrB (iInfoEnd, RequestBinDate, sSpace)- 1

IFindStart = InStr (22, sInfo, "name=" ",1)+6

IFindEnd = InStr (iFindStart, sInfo, """,1)

SFormName = Trim(Mid (sinfo, iFindStart, iFindEnd-iFindStart))

문서라면.

If InStr (45, sInfo, "filename=" ",1) > 그럼 0

Set oFileInfo = new FileInfo_Class

문서 속성 가져오기

IFindStart = InStr (iFindEnd, sInfo, "filename=" ",1)+ 10

IFindEnd = InStr (iFindStart, sInfo, """,1)

SFileName = Trim(Mid(sinfo, iFindStart, iFindEnd-iFindStart))

OFileInfo. FileName = Mid (sFileName, InStrRev (sFileName, "\")+ 1)

OFileInfo. FilePath = Left (sFileName, InStrRev (sFileName, "\"))

OFileInfo. FileExt = Mid (sFileName, InStrRev (sFileName, "")+1)

IFindStart = InStr (iFindEnd, sInfo, "Content-Type:", 1)+ 14

IFindEnd = InStr (iFindStart, sInfo, vbCr)

OFileInfo. FileType = Mid (sinfo, iFindStart, iFindEnd-iFindStart)

OFileInfo. FileStart = iInfoEnd

OFileInfo. FileSize = iFormStart -iInfoEnd -2 2

OFileInfo. FormName = sFormName

File.add sFormName, oFileInfo

기타

양식 항목인 경우.

TStream. 닫기

TStream. 유형 =1

TStream. 모드 = 3

TStream. 열다

OUpFileStream. 위치 = iinfo end

OUpFileStream. TStream, ifor mstart-info end-2 로 복사

TStream. 위치 = 0

TStream. 유형 = 2

TStream. CharSet = "gb23 12 "

SFormValue = tStream 입니다. 텍스트를 읽습니다

만약 형식이라면. 존재 (sFormName) 그럼

Form (sformname) = form (sformname) & ","& ampsFormValue

기타

형식. SFormName, sFormValue 를 추가합니다

만약 ... 끝날거야

만약 ... 끝날거야

TStream. 닫기

IFormStart = iFormStart+iStart+2

파일 끝에 도달하면 종료하십시오.

순환할 때까지 (iFormStart+2)>= iFormEnd

RequestBinDate = ""

TStream = Nothing 을 설정합니다

끝단 접합

종료 클래스

--

파일 속성 클래스

클래스 FileInfo_Class

Dim 형식 이름, 파일 이름, 파일 경로, 파일 크기, 파일 유형, 파일 시작, 파일 확장자

파일 저장 방법

공용 함수 SaveToFile (경로)

If lcase((right(Path, 3) 3))& lt；; & gtLcase (fileext) 의 고전적인 업로드 취약점 _

응답하다. 쓰기 ("< 스크립팅 언어 = 자바스크립트 & gtalert ('경고: 이런 파일 업로드는 허용되지 않습니다!' ); & lt/스크립트 > ) 를 참조하십시오

응답. 종료

만약 ... 끝날거야

오류 발생 시 다음 단계로 진행합니다

몽롱한 환상

Set of ile stream = createobject ("adodb. 흐름) 을 참조하십시오

OFileStream. 유형 =1

OFileStream. 모드 = 3

OFileStream. 열다

OUpFileStream. 위치 = 파일 시작

OUpFileStream. 파일 스트림으로 복사, 파일 크기

OFileStream. SaveToFile 경로, 2

OFileStream. 닫기

Set oFileStream = Nothing

기능을 종료합니다

파일 데이터 가져오기

공용 함수 파일 데이터

OUpFileStream. 위치 = 파일 시작

FileData = oUpFileStream 입니다. 읽기 (파일 크기)

기능을 종료합니다

종료 클래스

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

함수 이름: IsObjInstalled

용도: 구성 요소가 설치되어 있는지 확인합니다.

매개 변수: strClassString-구성 요소 이름

반환 값: true- 설치됨.

False-설치되지 않았습니다.

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

함수 IsObjInstalled(strClassString)

오류 발생 시 다음 단계로 진행합니다

IsObjInstalled = False

Err = 0

Dim xTestObj

XTestObj = Server 를 설정합니다. Createobject (스트라스팅)

0 = Err 이면 IsObjInstalled = True 입니다

Set xTestObj = Nothing

Err = 0

기능을 종료합니다

-지정한 이름을 기준으로 디렉토리를 생성합니다.

함수 MakeNewsDir (폴더 이름)

차원 FSO, f

Fso = Server 를 설정합니다. CreateObject ("스크립트. 파일 시스템 객체) 를 참조하십시오

F = FSO 를 설정합니다. 폴더 생성 (폴더 이름)

MakeNewsDir = True

Fso = 없음 설정

기능을 종료합니다

%>