꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> 아무리 해도 수정이 안되고 있슴다.어케 하면 좋은지요. > 이곳 저곳에 자문을 구했는데,모든 방법이 안되고 있네요. > 소스 좀 봐 주세요...이거 붙들고 2주째 헤메고 있슴니다.작성한 사람의 패스워드를 체크해서 업데이트를 시켜야 하는데,넘 힘들군요. > 현재의 에러는 vbscript에러가 떳거든요. > 에러메세지======== > Microsoft VBScript 런타임 오류 error '800a000d' > > 형식이 일치하지 않습니다 > > /sellup/sellupedit_ok.asp, line 11 > > 전체소스=========================== > <!--#include file="dsn.asp"--> > <!--#include file="convert.asp"--> > > <% > set uploadform = server.CreateObject"SiteGalaxyUpload.Form") > SQL = "SELECT pwd From sell WHERE board_idx = "& UploadForm("idx")===>에러라인 > 'response.write request.form("idx") > > '아이디 체크 > 'idx = Cint(Uploadform("idx")) > 'SQL = "Select pwd From sell where board_idx="& idx > > set uploadform = Server.CreateObject("SiteGalaxyUpload.Form") > 'board_idx = UploadForm("board_idx") > brandname =UploadForm("brandname") > product = UploadForm("product") > t_short = UploadForm("t_short") > mcode = UploadForm("mcode") > country = UploadForm("country") > specification = UploadForm("specification") > company = UploadForm("company") > contactperson = UploadForm("contactperson") > addre = UploadForm("addre") > tel = UploadForm("tel") > fax = UploadForm("fax") > url = UploadForm("url") > email = UploadForm("email") > payment = UploadForm("payment") > packing = UploadForm("packing") > fob = UploadForm("fob") > markets = UploadForm("markets") > filename=UploadForm("filename") > filesize=UploadForm("filesize") > > > If Len(file) & 0 then > '수정시 기존 화일이 있다면.... > Set FSO = CreateObject("Scripting.FileSystemObject") > strDirectory ="C:\Inetpub\wwwroot\new_itrademall\sellup\data\" > > delfile=strDirectory&filename > fso.DeleteFile(delfile) '업로드 화일을 지운다... > > '없을 경우 새로운 화일 업로드 > attach_file = UploadForm("AttachImage").FilePath > FileSize = UploadForm("AttachImage").Size > FileName = Mid(attach_file,InstrRev(attach_file, "\") + 1) > strName = Mid(FileName, 1, Instr(FileName,".") - 1) > strExt = Mid(FileName, Instr(FileName, ".") + 1) > bExist = True > strFileName = strDirectory & strName & "." & strExt > countFileName = 0 > Do While bExist > If (FSO.FileExists(strFileName)) Then > countFileName = countFileName & countFileName & "." & strExt > strFileName = strDirectory & FileName > Else > bExist = False > End If > Loop > UploadForm("AttachImage").SaveAs strfilename > '화일을 업로드한다..진짜루 > end if > > > wdate=now() > 'Response.Write wdate > > > '현재의 글의 비밀번호를 가져오는 쿼리문을 작성 > 'SQL = "Select pwd from sell where board_idx = " & UploadForm("idx") > > 'set result = db.execute(SQL) > 'pwd=result("pwd") > 'Set db = Nothing > '입력받은 비밀번호와 실제 비밀번호를 비교하여 일치한다면 > 'if request("pwd") = pwd then > > > '패스워드 체크 문 > SQl = "select pwd from pds where board_idx = " & idx > '해당글의 패스워드를 체크한다. > > Set rs = db.execute(SQL) > pwd = rs(0) > Set rs = nothing > > > > > Set db = Server.CreateObject("ADODB.Connection") > db.Open("sell1") > SQL = "UPDATE SELL set name = '" & name &"'" > SQL = SQL & ",email = '" & email & "'" > SQL = SQL & ",url= '" & url & "'" > SQL = SQL & ",payment='" & payment & "'" > SQL = SQL & ",company='" & company & "'" > SQL = SQL & ",country='" & country & "'" > SQL = SQL & ",t_short='" & t_short & "'" > SQL = SQL & ",mcode='" & mcode & "'" > SQL = SQL & ",productt='" & product & "'" > SQL = SQL & ",brandname='" & brandname & "'" > SQL = SQL & ",addre='" & addre & "'" > SQL = SQL & ",tel='" & tel & "'" > SQL = SQL & ",fax='" & fax & "'" > SQL = SQL & ",specification='" & specification & "'" > SQL = SQL & ",filename='" & filename & "'" > SQL = SQL & " where board_idx = "& board_idx("idx") > > SQL = SQL & " where board_idx = "& Uploadform("idx") > db.execute SQL > Set db = Nothing > Response.Redirect "selluplist.asp" > '데이터베이스에 현재의 레코드를 update하고 리스트로 돌아간다. > > 'else > > %> > > <script language="javascript"> > alert(" Nothing ...password"); > history.back(); > </script> > > > <% > 'End if > %> -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *