|
|
|
|
 |
|
문희철 / 2000-07-18 / 오전 10:55:28 / 211.51.20.130
조회수 : 148
|
| [질문] 채영님 사이트갤럭시 수정이 아직도 안되여 |
아무리 해도 수정이 안되고 있슴다.어케 하면 좋은지요.
이곳 저곳에 자문을 구했는데,모든 방법이 안되고 있네요.
소스 좀 봐 주세요...이거 붙들고 2주째 헤메고 있슴니다.작성한 사람의 패스워드를 체크해서 업데이트를 시켜야 하는데,넘 힘들군요.
현재의 에러는 vbscript에러가 떳거든요.
에러메세지========
Microsoft VBScript 런타임 오류 error '800a000d'
형식이 일치하지 않습니다
/sellup/sellupedit_ok.asp, line 11
전체소스===========================
<%
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
%>
<%
'End if
%> |
|
|
|