꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	> > 채영님 죄송하지만 이것 좀 봐주세요...현재 문장의 끝이 없다고 에러 메세지가 뜨는데,아무리 봐도 찾을수가 없군요.... > > 이곳의 표현이 맞는지도 모르면서 그저 다른 분의 소스를 참고로 해서 만들었거든요....그래서 더 힘들구요.업로드는 첨이라서,꼭 좀 부탁합니다.그리고 이곳 말고요 입력하는 그러니까,아래 소스는 입력 받은것을 넘기는 것인데,혹시 입력 폼에서도 특별히 유의할것이 있으면 알켜주시면 감사하겠습니다. > > > > <% > > > > 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 "<img src='"&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답변] 절데로 감시하는 것이 아님다....전 단지 내공이 부족해서리 빨리 문제를 해결하기 위함이지 절데로 악의는 없음을 말씀드립니다.아무래도 직장에서 물러본 사람도 없고,딱히 상의할 사람의 없어서 그런것이니 너그러운 맘으로 이해해주세요.

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *