<!-- #include file="board.conf.asp" -->

<!-- #include file="board.util.asp" -->

<%

        ' 게시물 편집 스크립트 edit.asp

        Dim offset

        Dim con, rs, strSql

        Dim uploadPath, uploadUrl

        Dim msgno, subject, homepage, email, author, msgbody, pass

        Dim fso, namoMime, ts, converted, folder, files, f

        offset = Request.QueryString("offset")

        msgno = Request.QueryString("msgno")

        subject = Request.Form("subject")

        homepage = Request.Form("homepage")

        email = Request.Form("email")

        author = Request.Form("author")

        msgbody = Request.Form("msgbody")

        pass = Request.Form("pass")

        Set con = Server.CreateObject("ADODB.Connection")

        Set rs = Server.CreateObject("ADODB.Recordset")

        con.Open "DSN=" & BBS_DSN

        strSql = "select passwd from board where msgno = " & msgno

        rs.Open strSql, con

        rs.MoveFirst

        If pass <> rs("passwd") Then       ' 암호가 틀렸을 경우

                Response.write "<script>alert(""암호가 맞지 않습니다.""); history.go(-1);</script>"

                Response.End

        End If

        uploadPath = BBS_UPLOAD_PATH & msgno

        uploadUrl = BBS_UPLOAD_URL & msgno & "/"

On Error Resume Next

        Set fso = Server.CreateObject("Scripting.FileSystemObject")   ' 업로드한 파일을 지움

        fso.DeleteFolder uploadPath

Err.Clear

        Set namoMime = Server.CreateObject("NamoMIME7.MIMEObject")  ' NamoMIME 유틸리티인 COM Class를 불러옴

On Error Resume Next

        fso.CreateFolder uploadPath                   ' 폴더 생성

Err.Clear

        namoMime.SetBaseDeocdeUrl uploadPath           ' 파일경로 변환을 위해 로컬 업로드경로를 지정합니다.

        namoMime.Decode msgbody, uploadPath           ' uploadPath에 있는 파일을 디코딩

        Set ts = fso.OpenTextFile(uploadPath & "/noname.htm", 1)

        converted = ts.ReadAll                        ' 디코딩한 내용 중 메세지만 가져옴.

        ts.Close

        fso.DeleteFile uploadPath & "/noname.htm"     ' 디코딩한 메세지 파일을 지움.

        ' Replace src path of attached files to accessable URL

        Set folder = fso.GetFolder(uploadPath)

        Set files = folder.Files

        For each f in files

                converted = Replace(converted, f.name, uploadUrl & f.name)

        Next

        converted = AddSlashes(Left(converted, Len(converted) - 1))   ' HTML을 읽는다. (읽어들인 스트링의 끝에는 EOF가 있음)

        strSql = "update board set subject='" & subject & "', "

        strSql = strSql & "homepage='" & homepage & "', "

        strSql = strSql & "email='" & email & "', "

        strSql = strSql & "wname='" & author & "', "

        strSql = strSql & "wtime=Now(), "

        strSql = strSql & "msgbody='" & converted & "' "

        strSql = strSql & "where msgno=" & msgno

        con.Execute strSql     ' 메세지를 업로드함

        rs.Close

        con.Close

        Response.Redirect "read.asp?msgno=" & msgno & "&offset=" & offset  ' 편집한 메세지를 다시 읽어들임.

%>