|
|
|
|
 |
|
채영이 / 2000-07-07 / 오후 5:09:37 / 203.255.3.190
조회수 : 115
|
| [질문] 업로드 폼에서 수정이 안되고 새로운 값으로 입력되는데 |
> 안냐세요...
> 자주 질문드리죠...죄송.
> 다름이 아니오라 제가 업로드를 하고 있거든요.업로드에서 성공을 했고,수정 모드를 만들었는데,수정이 안되고 새로운 값으로 입력이 되고 있거든요.
> 이곳의 에러 좀 봐주세요.
> 도무지 파악이 안되네요...
> 소스는 아래와 갔습니다.
> ================================
>
> < script language="VBscript" RUNAT="server" >
> Function CheckWord(CheckValue)
>
> CheckValue = replace(CheckValue, "<","<")
> CheckValue = replace(CheckValue, ">",">")
> CheckValue = replace(CheckValue, ""","'")
> CheckValue = replace(CheckValue, "&","&")
>
> CheckWord = CheckValue
> End Function
> < /script >
> <%
> Set db = Server.CreateObject("ADODB.Connection")
> db.Open("sell1")
> '현재의 글의 비밀번호를 가져오는 쿼리문을 작성
> SQL = "SELECT pwd sell From data WHERE board_idx = "& request("idx")
>
>
>
> set result = db.execute(SQL)
> if request("pwd") = result(0) then
>
>
> 'board_idx = UploadForm("board_idx")
> brandname = CheckWord(Request.Form("brandname") )
> product = CheckWord(Request.Form("product"))
> t_short = CheckWord(Request.Form("t_short"))
> mcode = CheckWord(Request.Form("mcode"))
> country = CheckWord(Request.Form("country"))
> specification = CheckWord(Request.Form("specification"))
> company = CheckWord(Request.Form("company"))
> contactperson = CheckWord(Request.Form("contactperson"))
> addre = CheckWordWord(Request.Form("addre"))
> tel = CheckWord(Request.Form("tel"))
> fax = CheckWord(Request.Form("fax"))
> url = CheckWord(Request.Form("url"))
> email = CheckWord(Request.Form("email"))
> payment = CheckWord(Request.Form("payment"))
> packing = CheckWord(Request.Form("packing"))
> fob = CheckWord(Request.Form("fob"))
> markets = CheckWord(Request.Form("markets"))
>
>
>
>
>
> 'Set db = Nothing
> '입력받은 비밀번호와 실제 비밀번호를 비교하여 일치한다면
> 'if request("pwd") = pwd then
> 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 & " where board_idx = "& request("idx")
> db.execute SQL
> Set db = Nothing
> Response.Redirect "list.asp"
> '데이터베이스에 현재의 레코드를 update하고 리스트로 돌아간다.
>
> else
>
> %>
>
> < script language="javascript" >
> alert(" Nothing ...password");
> history.back();
> < /script >
>
>
> <%
> end if
> %>
-----------------------------------------------------------
수정하기 화일로 가는데 아니고 등록하기 화일로 action이 일어나는게 아닐까요?
수정하기에서 form 다음에 action 내용이 틀린것 같네요...
한번 체크해 보세요...
|
|
|
|