꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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. 전 하루에 한번정도 별아해님 싸이트를 방문합니다. 희철님은 항상 제 싸이트랑 별아해님 싸이트에 질문을 같이 하시는군요... 그것도 이름은 바꿔가면서 말이죠... 누가 먼저 답 올려 주나 감시라도 하시는 것입니까?

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *