sp1000je
85 lines
2.1 KiB
Plaintext
85 lines
2.1 KiB
Plaintext
<!--#include virtual = "/common/lib/dbcon.asp"-->
|
|
<!--#include virtual = "/common/lib/func.asp"-->
|
|
<%
|
|
Dim a_num, ct_idx, status, ct_ref
|
|
Dim sql, rs_3, strDir
|
|
|
|
|
|
'//------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
|
|
FolderCreate( server.MapPath("/")&"\data\board_code\" )
|
|
'//------------------------------------------------------------------------------------
|
|
|
|
'Set UploadForm = Server.CreateObject("DEXT.FileUpload")
|
|
'UploadForm.DefaultPath = server.MapPath("/")&"\data\board_code\"
|
|
|
|
|
|
'//파라미터정보 *************************************************************************************
|
|
a_num = InputValue(request("a_num"))
|
|
ct_idx = InputValue(request("ct_idx"))
|
|
status = InputValue(request("status"))
|
|
ct_ref = InputValue(request("ct_ref"))
|
|
|
|
chk = InputValue(request("chk"))
|
|
chk = Replace( chk, " ", "" )
|
|
chk = Split(chk, ",")
|
|
'//**************************************************************************************************
|
|
|
|
If status = "totdel" Then '//다중삭제
|
|
|
|
|
|
For z=0 To ubound(chk)
|
|
|
|
sql = "Select ct_codeno,ct_file from board_code where ct_idx=" &chk(z)
|
|
Set rs_3 = dbcon.execute( sql )
|
|
|
|
ct_codeno = rs_3("ct_codeno")
|
|
ct_file = rs_3("ct_file")
|
|
|
|
|
|
'//이미지 삭제
|
|
strDir = server.mappath("/data/board_code/") & "\"
|
|
|
|
If ct_file <> "" then
|
|
Call dfile (strDir, ct_file) '//삭제
|
|
End if
|
|
|
|
sql = " delete from board_code where ct_codeno like '%" & ct_codeno & "%'"
|
|
dbcon.execute sql
|
|
next
|
|
|
|
|
|
|
|
Else '//일반삭제
|
|
|
|
'//삭제하기
|
|
|
|
sql = "Select ct_codeno, ct_file from board_code where ct_idx=" & ct_idx
|
|
Set rs_3 = dbcon.execute( sql )
|
|
|
|
ct_codeno = rs_3("ct_codeno")
|
|
ct_file = rs_3("ct_file")
|
|
|
|
|
|
'//이미지 삭제
|
|
strDir = server.mappath("/data/board_code/") & "\"
|
|
|
|
If ct_file <> "" then
|
|
Call dfile( strDir, ct_file) '//삭제
|
|
End if
|
|
|
|
sql = " delete from board_code where ct_codeno like '%" & ct_codeno & "%'"
|
|
'//echo $sql;
|
|
dbcon.execute sql
|
|
|
|
End if
|
|
|
|
|
|
If ct_ref = "0" then ct_ref = ""
|
|
ok_url = "write.asp?a_num=" & a_num & "&ct_idx=" & ct_ref
|
|
|
|
dbcon.close
|
|
Set dbcon = nothing
|
|
|
|
Call loding ("0", ok_url)
|
|
|
|
%> |