꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 %>

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *