|
|
 |
|
문희철 / 2000-06-22 / 오전 8:35:50 / 211.51.20.144
조회수 : 168
|
| [질문] 절데로 그런것은아님다....
|
> > 채영님 죄송하지만 이것 좀 봐주세요...현재 문장의 끝이 없다고 에러 메세지가 뜨는데,아무리 봐도 찾을수가 없군요....
> > 이곳의 표현이 맞는지도 모르면서 그저 다른 분의 소스를 참고로 해서 만들었거든요....그래서 더 힘들구요.업로드는 첨이라서,꼭 좀 부탁합니다.그리고 이곳 말고요 입력하는 그러니까,아래 소스는 입력 받은것을 넘기는 것인데,혹시 입력 폼에서도 특별히 유의할것이 있으면 알켜주시면 감사하겠습니다.
> >
> > <%
> >
> > 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. 전 하루에 한번정도 별아해님 싸이트를 방문합니다.
>
> 희철님은 항상 제 싸이트랑 별아해님 싸이트에 질문을 같이 하시는군요...
>
> 그것도 이름은 바꿔가면서 말이죠...
>
> 누가 먼저 답 올려 주나 감시라도 하시는 것입니까?
>
-----------------------------------------------------------
채영님 위와 같은방식으로 해보았는데.db excute sql에서 에러 메세지가 뜨거든요.
약간 수정을 해 보았는데 말입니다.우선은 디비를 확인하기 위해서 다시 열어부는 방법을 택했습니다.이게 올바른 방법인지 모르지만 말입니다.
참고로 현재98 pws를 사용해서 태스트 중이거든요.사이트 갤럭시도 깔았고요.98에서도 태스트가 가능한지요....전에 한가지는 성공했었는데 그 이후로는 안되던데.....?
set db = server.CreateObject("ADODB.Connection")
'데이터베이스 연결을 위한 Connetion개체의 인스턴스를 생성한다.
db.Open("sell")
'db open(DNS)DNS연결
'등록된 글을 db에 삽입
SQL = "INSERT INTO myboard (brandname,product,short,mcode,country,specification,filename,filesize,company,contactperson,addre,tel,fax,email,url,payment,fob,markets,"
SQL = SQL & " board_idx,num,readnum,writeday,pwd)VALUES "
SQL = SQL & "('" & brandname & "'"
SQL = SQL & ",'" & product & "'"
SQL = SQL & ",'" & short & "'"
SQL = SQL & ",'" & mcode & "'"
SQL = SQL & ",'" & country & "'"
SQL = SQL & ",'" & specification & "'"
SQL = SQL & ",'" & filename & "'"
SQL = SQL & "," & filesize & ""
SQL = SQL & ",'" & company & "'"
SQL = SQL & ",'" & contactperson & "'"
SQL = SQL & ",'" & addre & "'"
SQL = SQL & ",'" & tel & "'"
SQL = SQL & ",'" & fax & "'"
SQL = SQL & ",'" & email & "'"
SQL = SQL & ",'" & url & "'"
SQL = SQL & ",'" & payment & "'"
SQL = SQL & ",'" & fob & "'"
SQL = SQl & ",'" & markets & "'"
SQL = SQl & ",0,'" & now() & "'"
SQL = SQL & ",'" & pwd & "')"
db.execute SQL =========>에러 메세지 부분
[p.s답변]
절데로 감시하는 것이 아님다....전 단지 내공이 부족해서리 빨리 문제를 해결하기 위함이지 절데로 악의는 없음을 말씀드립니다.아무래도 직장에서 물러본 사람도 없고,딱히 상의할 사람의 없어서 그런것이니 너그러운 맘으로 이해해주세요.
|
|
|
|