|
|
 |
|
문희철 / 2000-06-26 / 오후 6:09:45 / 211.51.20.144
조회수 : 103
|
| [질문] 업로드 입력값이 넘어오지 않네요 |
> > 정말 죄송...매일 질문만 드리는군요...
> > 다름이 아니라 아래 부분의 문제는 해결했습니다.그런데 가장 중요한 화일 업로드가 되지 않는군요.혹시 문법 상의 잘못이 있는것은 아닌지 해서요.
> > 사이트갤럭시를 사용하려고요...
> > 입력값이 하나도 저장이 되지 않고 있씁니다.
> > 혹시 잘못된 구문이라도 사용하것인지.....
> >
> > 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 되지 않는다는 말씀이신가요?
>
> 입력값이 넘어오지 않는다면
>
> 이전 페이지에서부터 값이 제대로 넘아가는지를 체크해 보셔야 될것 같네요...
>
> 그럼...
>
-----------------------------------------------------------
말씀하신 이곳은 filename = UploadForm("filename") 테이블 명을 지정한 것인데요...
하단의insert into부분을 확인해보면 결과 값이 아무런 이상없이 나오거든요.
그런데 filename = UploadForm("filename")이 값의 태스트는 어떤 방식으로 태스트를 해야 하는지요.
Response.write.asp로는 값이 나오지 않던데요
|
|
|
|