꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *