갤러리#6 ( gallery_del_ok.asp ) 글삭제 > 기술자료

• 목록

<%@ Language=VBScript %>
<%  Option Explicit   %>
<%
' 작성자: 해피정닷컴 ( https://www.happyjung.com )
' 2008-06-23 : 1차 작성
' 2008-08-02 : 디비 테이블 이름 변경   tbl_gallery  →  hp_gallery
'
'
'
'
'
%>

<!--#include virtual="/inc/db_con.asp" -->
<%
dim str,val      ' 해피정닷컴 추가 2008-05-27
' 인젝션 방지관련 https://www.happyjung.com/bbs/board.php?bo_table=lecture&wr_id=480
'function sqlCheck(str)
'...
'end function
 
Dim num : num = sqlCheck(request("num"))
Dim pate : Page = sqlCheck(request("page"))
Dim SearchPart : SearchPart = sqlCheck(request("SearchPart"))
Dim SearchStr : SearchStr = sqlCheck(request("SearchStr"))

DIm passwd2 : passwd2 = sqlCheck(request("passwd2"))  ' 새로입력한 비밀번호

' 기존비밀번호 불러오는 시작   2008-04-11  정창용 추가
Sql = "select passwd from hp_gallery where num = " & num
Set Rs = Con.Execute(Sql)
  passwd = rs("passwd")
' 기존비밀번호 불러오기 끝

if session("admin") = "administrator"  or PASSWD = PASSWD2 then  ' 비밀번호 확인 end if 는 마지막 에 위치
  if Page         = "" then Page        = 1
 
  '********************  게시글 삭제
  Sql = "delete from hp_gallery where num = " & num
  Con.Execute(Sql)

  Dim filename1, fc, storedir 
  if not filename1 = "" then
    set fc   = CreateObject("Scripting.FileSystemObject")
      storedir = server.mappath("../..") & "\upload\"
      fc.DeleteFile(storedir & filename1)
    set fc=nothing
  end if
 
  Rs.close
  set rs = nothing
  con.close
  set con= nothing
 
  '페이지 이동
  Response.Redirect "gallery.asp?page=" & Page & "&SearchPart=" & SearchPart & "&SearchStr=" & SearchStr
 
else    ' 비밀번호 일치 확인
  Response.Write("<script type='text/javascript'>")
  Response.Write("    alert('비밀번호가 다릅니다.\n\n 삭제할수 없습니다.');")
  Response.Write("    history.back();")
  Response.Write("</script>")
end if  ' 비밀번호 확인 종료
%>