작성 포맷 :
TEXT 모드, 자동 줄바꿈 사용
우선 지난 번 처음으로 글을 남겼었는데 답변 너무 감사드립니다!! 덕분에 어찌저찌 해결을 하게되었습니다!!!
다시한번 감사드립니다!!
이번엔 게시글 업로드 후 수정할 때 이미 file이 업로드가 되어있는데 글만 수정하고 file은 선택하지 않고
그냥 저장시 파일이 값이 없는걸로 저장되어 db에서 없어지는거 같습니다 ...흙흙
flie을 변경하지 않고 저장시 업로드된 file을 온전히 살릴 수 있을까요??
아니면 매번 수정할 때 file을 다시 선택 해야하나요??
dim filen
filen = 1024 * 1024 * 20
Dim objSajin
Dim image1,image2
Set objSajin = abc("files1")(1)
if objSajin.FileExists then
if objSajin.Length < filen then ''이미지 800KB, 자료 5MB
image2 = objSajin.SafeFileName
perioArry = Split(image2,".")
imgDot = perioArry(Ubound(perioArry)) ''확장자추출
if LCase(imgDot) = "doc" or LCase(imgDot) = "hwp" or Lcase(imgDot) = "zip" or Lcase(imgDot) =
"ppt" or Lcase(imgDot) = "txt" or Lcase(imgDot) = "xls" or Lcase(imgDot) = "pdf" or Lcase(imgDot) = "jpg" or
Lcase(imgDot) = "gif" or Lcase(imgDot) = "png" or Lcase(imgDot) = "xlsx" or Lcase(imgDot) = "docx" or
Lcase(imgDot) = "alz" then ''파일 허용
image1 = "oq_" & svdatefomt & "." & imgDot
objSajin.Save DirectoryPath & image1
end if
end if
end if
Set objSajin = Nothing
dim sql
//////////////
sql = "update oneone1 set qtitle='" & qtitle & "',qcont='" & qcont & "',uregion='" & uregion & "',files1='" &
image1 & "' where qidx=" & idx
/////////제 생각엔 이부분을 if문을 써서 수정하면 될거 같은데 이런저런 시도들을 해봤는데 안되더라구요 ㅠㅠㅠ
db.execute(sql)
db.close
set db = nothing
제가 if문을 잘못 작성하는거 같습니다 아무래도 지식이 없다보니 막무가내로 써보긴하는데
어떻게 작성을 해야할지 모르겠습니다 도와주시면 감사하겠습니다!!! |