꿈속나라

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