꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

등록하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	HTML 사용
제목 *
내용 *	> > 정말 죄송...매일 질문만 드리는군요... > > 다름이 아니라 아래 부분의 문제는 해결했습니다.그런데 가장 중요한 화일 업로드가 되지 않는군요.혹시 문법 상의 잘못이 있는것은 아닌지 해서요. > > 사이트갤럭시를 사용하려고요... > > 입력값이 하나도 저장이 되지 않고 있씁니다. > > 혹시 잘못된 구문이라도 사용하것인지..... > > > > Response.Buffer=true > > Response.Expires=0 > > > > Set Conn=Server.CreateObject("ADODB.Connection") > > Conn.Open "DSN=sell;UID=;PWD=" > > > > SQL1 = "SELECT MAX(num) as m FROM myboard" '======>의심가는 부분 > > Set rs = Conn.Execute( SQL1 ) > > > > '글의 고유번호를 구한다. > > if rs("m") <> 0 then > > no = rs("m")+1 > > else > > no = 1 > > end if > > > > set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form") '업로드용 객체를 생성한다. > > > > upddate=year(now())&"-"&month(now())&"-"&day(now()) '현재날짜를 구한다. > > > > brandname = UploadForm("brandname") '모든 폼의 request된 값을 이런 식으로 받는다. > > brandname = Replace(brandname,"'","''") > > brandname = replace(brandname,"<","< ") > > > > product = UploadForm("product") 'product > > product = Replace(product,"'","''") > > product = replace(product,"<","< ") > > > > short = UploadForm("short") 'short product description > > short = Replace(short,"'","''") > > short = replace(short,"<","< ") > > > > mcode = UploadForm("mcode") 'mscode > > mcode = Replace(mcode,"'","''") > > mcode = replace(mcode,"<","< ") > > > > country = UploadForm("country") 'country of origine > > country = Replace(country,"'","''") > > country = replace(country,"<","< ") > > > > specification = UploadForm("specification") 'Count항목 세부자료.... > > specification = Replace(specification,"'","''") > > specification = replace(specification,"<","< ") > > > > filename = UploadForm("filename") 'filename > > filename = Replace(filename,"'","''") > > filename = replace(filename,"<","< ") > > > > filesize = UploadForm("filesize") 'filesize:숫자 > > filesize = Replace(filesize,"'","''") > > filesize = replace(filesize,"<","< ") > > > > company = UploadForm("company") 'company > > company = Replace(company,"'","''") > > company = replace(company,"<","< ") > > > > url = UploadForm("url") 'url > > url = Replace(url,"'","''") > > url = replace(url,"<","< ") > > > > addre = UploadForm("addre") 'address > > addre = Replace(addre,"'","''") > > addre = replace(addre,"<","< ") > > > > contactperson = UploadForm("contactperson") 'contactperson > > contactperson = Replace(contactperson,"'","''") > > contactperson = replace(contactperson,"<","< ") > > > > tel = UploadForm("tel") 'tel > > tel = Replace(tel,"'","''") > > tel = replace(tel,"<","< ") > > > > fax= UploadForm("fax") 'fax > > fax = Replace(fax,"'","''") > > fax = replace(fax,"<","< ") > > > > email= UploadForm("email") 'email > > email = Replace(email,"'","''") > > email = replace(email,"<","< ") > > > > packing= UploadForm("packing") 'packing method > > packing = Replace(packing,"'","''") > > packing = replace(packing,"<","< ") > > > > payment= UploadForm("payment") ' Terms of payment > > payment = Replace(payment,"'","''") > > payment = replace(payment,"<","< ") > > > > fob= UploadForm("fob") 'Fob price and Fob port > > fob = Replace(fob,"'","''") > > fob = replace(fob,"<","< ") > > > > markets= UploadForm("markets") 'main export markets > > markets = Replace(markets,"'","''") > > markets = replace(markets,"<","< ") > > > > > > > > pwd = UploadForm("pwd") > > pwd = replace(pwd,"<","< ") > > > > > > > > strDirectory = "C:\Inetpub\wwwroot\sell\image" '저장할 디렉토리 지정 > > > > filebe = UploadForm("file1") > > > > if filebe <> "" then > > attach_file = UploadForm("file1").FilePath > > filename = Mid(attach_file, InstrRev(attach_file, "\") + 1) > > ' 올리는 파일이름만 뽑아냄. > > > > strFile2 = Mid(filename ,1, Instr(filename , ".")-1) > > ' 파일 확장자를 제거한 파일 이름을 구함. > > strExt = Mid(filename ,Instr(filename , ".")+1) > > '확장자를 구함. > > > > ' 파일 관련 기본 콤포넌트를 생성 > > Set fso = CreateObject("Scripting.FileSystemObject") > > > > bExist = True > > ' 우선 파일이 존재한다고 가정 > > strFileNameTemp = strDirectory & filename > > ' 저장할 파일의 완전한 이름을 만듦 > > countfilename = 0 > > ' 파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함. > > While bExist = True ' 우선 있다고 생각함. > > If (fso.FileExists(strFileNameTemp )) Then > > ' 파일이 있으면, 여기로 들어 옵니다. > > '파일 이름에 숫자를 붙인 새로운 파일 이름 생성 > > countfilename = countfilename + 1 > > strFileNameTemp = strDirectory & strFile2 & countfilename & "." & strExt > > filename = strFile2 & countfilename & "." & strExt > > else > > filename = filename > > bExist = False > > ' 파일이 존재하지 않으므로. > > End If > > Wend > > > > Set fso = nothing > > ' Scripting.FileSystemObject를 닫아줌. > > > > strFileName = strFileNameTemp > > ' 위에서 구한 이름을 저장할때 사용하기 위해 > > ' 저장할 파일이름을 만듦. > > > > filesize = UploadForm("file1").Size > > > > UploadForm("file1").SaveAs strFileName > > end if > ----------------------------------------------------------- > > 파일 받는곳이 두군데나 있네요... > > filename = UploadForm("filename") > > filebe = UploadForm("file1") > > 저장이 되지 않는다는건 모든 값이 INSERT 되지 않는다는것가요? > > 아님 파일의 이름과 크기가 INSERT 되지 않는다는 말씀이신가요? > > 입력값이 넘어오지 않는다면 > > 이전 페이지에서부터 값이 제대로 넘아가는지를 체크해 보셔야 될것 같네요... > > 그럼... > -----------------------------------------------------------

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *