|
|
 |
|
채영이 / 2000-06-26 / 오후 4:11:25 / 203.255.3.190
조회수 : 110
|
| [질문] 업로드 입력값이 넘어오지 않네요 |
> 정말 죄송...매일 질문만 드리는군요...
> 다름이 아니라 아래 부분의 문제는 해결했습니다.그런데 가장 중요한 화일 업로드가 되지 않는군요.혹시 문법 상의 잘못이 있는것은 아닌지 해서요.
> 사이트갤럭시를 사용하려고요...
> 입력값이 하나도 저장이 되지 않고 있씁니다.
> 혹시 잘못된 구문이라도 사용하것인지.....
>
> 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 되지 않는다는 말씀이신가요?
입력값이 넘어오지 않는다면
이전 페이지에서부터 값이 제대로 넘아가는지를 체크해 보셔야 될것 같네요...
그럼...
|
|
|
|