|
|
|
|
 |
|
채영이 / 2000-06-21 / 오후 6:21:59 / 203.255.3.190
조회수 : 139
|
| [질문] 자료업로드 에러 좀 봐주세요...이건 정말 중요한건데요 |
> 채영님 죄송하지만 이것 좀 봐주세요...현재 문장의 끝이 없다고 에러 메세지가 뜨는데,아무리 봐도 찾을수가 없군요....
> 이곳의 표현이 맞는지도 모르면서 그저 다른 분의 소스를 참고로 해서 만들었거든요....그래서 더 힘들구요.업로드는 첨이라서,꼭 좀 부탁합니다.그리고 이곳 말고요 입력하는 그러니까,아래 소스는 입력 받은것을 넘기는 것인데,혹시 입력 폼에서도 특별히 유의할것이 있으면 알켜주시면 감사하겠습니다.
>
> <%
>
> set db = server.CreateObject("ADODB.Connection")
> '데이터베이스 연결을 위한 Connetion개체의 인스턴스를 생성한다.
> db.Open("sell")
> 'db open(DNS)DNS연결
> SQL = "Select MAX(num) as maxnum from myboard"
> '데이터 쿼리문
> set rs = Server.CreateObject("ADODB.Recordset")
> '레코드셋 인스턴스 생성
> rs.Open SQL,db
> '지정한 쿼리로 db연결....레코드셋 개체 결과 db저장
>
> If rs("maxnum")="" Then
> number = 1
> else
> number = rs("maxnum") + 1
> End If
>
> Set Uploadform = Server.CreateObkect("SiteGalaxyUpload.Form") '파일 업로드 컴포넌트 생성
>
> 'request 개체를 통해 넘어온 값들을 변수에 저장한다.이곳에서는 이미지 업로드땜시 생략
> 'brandname = request("brandname")
> 'product = request("product")
> 'short = request("short")
> 'mcode = request("mcode")
> 'country = request("country")
> 'content = request("content")
> 'filename = request("filename")
> 'filesize = request("filesize")
> 'company = request("company")
> 'contactperson = request("contactperson")
> 'addre = request("addre")
> 'tel = request("tel")
> 'fax = request("fax")
> 'email = request("email")
> 'url = request("url")
> 'payment = request("payment")
> 'packing = request("packing")
> 'fob = request("fob")
> 'markets = request("markets")
>
> 'pwd = request("pwd")
>
>
>
> '이곳에서 부터 업로드(사이트갤럭시)가 시작된다....
> if isnull(cf("img")) = false or cf("img")<> "" then
> response.write "![]("&cf("img")&") "
> end if
> if UploadForm("index") = "write" then
>
> ' 이곳에서부터 입력폼에서 각각의 테이블 값을 가져온다.
> brandname = UploadForm("brandname")
> product = UploadForm("product")
> short = UploadForm("short")
> mcode = UploadForm("mcode")
> country = UploadForm("country")
> content = UploadForm("content")
> company = Uploadform("company")
> contactperson = UploadForm("contactperson")
> addre = UploadForm("addre")
> tel = UploadForm("tel")
> fax = UploadForm("fax")
> email = UploadForm("email")
> url = trim(UploadForm("url"))
> if url="http://" then
> url=""
> end if
> payment = UploadForm("payment")
> packing = UploadForm("packing")
> fob = UploadForm("fob")
> markets = UploadForm("markets")
>
> pwd = UploadForm("pwd")
> upfile=UploadForm("upfile")
> subject=Replace("subject","'","''")
> subject=trim(subject)
> content=Replace("content","'","''")
> content=trim(content)
>
> '업로드 화일 있을때 처리
> if Len(upfile) > 0 then
> filesize=UploadForm("upfile").size
> maxsize=Cint(cf("limitfile")) * 1024
>
> if filesize > maxsize then '파일의 크기를 체크하여 관리자가 설정한 크기보다 크면 에러처리
>
> cf.close
> Set cd=nothing
> fc.close
> Set fc=nothing
> db.close
> Set db=nothing
>
>
> end if
> set fc = CreateObject("scripting.FileSystemObject")
>
> storedir = Server.mappath(",")&"/images/" '업로드한 이미지 파일 저장 폴더 경로
>
> attach_filed=UploadForm("upfile").filepath
> filename = mid(attach_file,instrrev(attach_file,"\")+1)
> '경로명을 제외한 화일명 축출
> strname=mid(filename, 1, instrrev(filename,".")-1)
> '화일명에서 이름과 확장자 분리--------
> strext=mid(filename,instrrev(filename,".")+1)
> strfilename=storedir & filename
>
> fexit = true
> count=0
>
> do while fexist '파일이 중복될 경우 이름을 다시 지정 - 파일 이름 뒤에 숫자를 붙여서 업로드
>
> if(fc.fileexists(strfilename)) then
> count=count+1
> filename=strname&"-"&count&"."&strext
> strfilename=storedir & filename
> else
> fexist=false
> end if
> loop
> UploadForm("upfile").saveas strfilename
> '콤퍼넌트에 의해 실제 화일을 업로드
> end if
> '일련 번호를 붙임
> sqlRead="SELECT max(board_idx) FROM "&id
> Set rs=db.Execute(sqlRead)
>
> if IsNull(rs(0)) then
> maxboard_idx=1
> else
> maxboard_idx=Cint(rs(0))+1
> end if
> rs.close
> Set rs=nothing
> '업로드 화일이 없을때 적절한 값으로 대체
> if upfile = "" then
> filesize=0
> filename=""
> end if
>
> if cf("db")="access" then
> indate="getdate()"
> end if
>
> '등록된 글을 db에 삽입
> sqlInsert="INSERT INTO "&id&" values ("&maxboard_idx&","&writeday&","&brandname&",&product&","&short&","&mcode&","&country&","&content&","&filename&","&filesize&","&company&","&contactperson&","&addre&","&tel&","&fax&","&url&","&payment&","&packing&","&fob&","&markets&","&pwd&")"
> =======위 insert부분의 끝이 종결되지 않았다는 메세지임다.======
> 'response.write sql 'response test
> db.execute(sqlInsert)
>
>
> end if
> cf.close
> Set cf=nothing
> fc.close
> Set fc=nothing
> db.close
> set db=nothing
>
>
> %>
>
>
>
-----------------------------------------------------------
INSERT 문에서 INSERT를 하실때는 데이타가 숫자형일때는
그냥 입력하시면 되지만 문자형일때는 주위를 작은 따옴표로 묶어주셔야합니다.
즉 brandname이 들어갈 테이블의 데이타형이 문자형이라면
"&brandname&"게 아니고 '"&brandname&"' 이렇게 되어야 한다는 뜻입니다.
p.s. 전 하루에 한번정도 별아해님 싸이트를 방문합니다.
희철님은 항상 제 싸이트랑 별아해님 싸이트에 질문을 같이 하시는군요...
그것도 이름은 바꿔가면서 말이죠...
누가 먼저 답 올려 주나 감시라도 하시는 것입니까?
|
|
|
|