|
|
|
|
 |
|
문희철 / 2000-07-07 / 오후 4:34:04 / 211.51.20.144
조회수 : 123
|
| [질문] 업로드 폼에서 수정이 안되고 새로운 값으로 입력되는데 |
안냐세요...
자주 질문드리죠...죄송.
다름이 아니오라 제가 업로드를 하고 있거든요.업로드에서 성공을 했고,수정 모드를 만들었는데,수정이 안되고 새로운 값으로 입력이 되고 있거든요.
이곳의 에러 좀 봐주세요.
도무지 파악이 안되네요...
소스는 아래와 갔습니다.
================================
< 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
%> |
|
|
|