꿈속나라

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