<% DIM Action Action = UCASE(GetReplaceInput(REQUEST.QueryString("Action"), "S")) DIM UseDefaultHeadTail SELECT CASE UCASE(Action) CASE "ADD" DIM MEMO_strRecvID, MEMO_strSendID, MEMO_strContent WITH REQUEST MEMO_strRecvID = GetReplaceInput(.FORM("MEMO_strRecvID"), "") MEMO_strSendID = GetReplaceInput(.FORM("MEMO_strSendID"), "") MEMO_strContent = GetReplaceInput(.FORM("MEMO_strContent"), "") END WITH IF MEMO_strRecvID = MEMO_strSendID THEN RESPONSE.WRITE ExecJavaAlert("ÀÚ±â Àڽſ¡°Ô ¸Þ¸ð¸¦ º¸³¾¼ö´Â ¾ø½À´Ï´Ù.", 0) RESPONSE.End() END IF SET RS = DBCON.EXECUTE("EXEC [MPLUS_GET_MEMBER_READ] '" & MEMO_strRecvID & "', '0' ") IF RS.EOF THEN RESPONSE.WRITE ExecJavaAlert("µî·ÏµÈ ȸ¿ø ¾ÆÀ̵𰡠¾Æ´Õ´Ï´Ù.", 0) RESPONSE.End() ELSE IF RS("bitSecession") = True THEN RESPONSE.WRITE ExecJavaAlert("Å»Åð ó¸®µÈ ȸ¿ø ¾ÆÀ̵ð ÀÔ´Ï´Ù.", 0) RESPONSE.End() ELSE DBCON.EXECUTE("INSERT INTO [MPLUS_MEMO] ([strSendID], [strRecvID], [strContent]) VALUES ('" & MEMO_strSendID & "', '" & MEMO_strRecvID & "', '" & MEMO_strContent & "') ") RESPONSE.WRITE ExecJavaAlert("¸Þ¸ð¹ß¼ÛÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù.", 1) RESPONSE.End() END IF END IF CASE "WRITE", "READ" UseDefaultHeadTail = False CASE "LIST" UseDefaultHeadTail = True CASE "REMOVE" DIM intNum, I, SQL SQL = "" FOR I = 1 TO REQUEST.FORM("intNum").COUNT SQL = SQL & "'" & GetReplaceInput(REQUEST.FORM("intNum")(I), "") & "'," NEXT SQL = LEFT(SQL, LEN(SQL) - 1) SET RS = DBCON.EXECUTE("SELECT [intNum], [strSendID], [strRecvID] FROM [MPLUS_MEMO] WHERE [intNum] IN (" & SQL & ") ") WHILE NOT(RS.EOF) IF RS("strSendID") = SESSION("strLoginID") THEN DBCON.EXECUTE("UPDATE [MPLUS_MEMO] SET [bitDeleteSend] = '1' WHERE [intNum] = '" & RS("intNum") & "' ") IF RS("strRecvID") = SESSION("strLoginID") THEN DBCON.EXECUTE("UPDATE [MPLUS_MEMO] SET [bitDeleteRecv] = '1' WHERE [intNum] = '" & RS("intNum") & "' ") RS.MOVENEXT WEND RESPONSE.WRITE ExecFormSubmit("»èÁ¦µÇ¾ú½À´Ï´Ù.", "memo.asp?Action=list&strType=" & GetReplaceInput(REQUEST.QueryString("strType"), "S"), "") RESPONSE.End() CASE "REMOVEREAD" SET RS = DBCON.EXECUTE("SELECT [strSendID], [strRecvID] FROM [MPLUS_MEMO] WHERE [intNum] = '" & GetReplaceInput(REQUEST.QueryString("intNum"), "S") & "' ") IF RS("strSendID") = RS("strRecvID") THEN DBCON.EXECUTE("UPDATE [MPLUS_MEMO] SET [bitDeleteSend] = '1', [bitDeleteRecv] = '1' WHERE [intNum] = '" & GetReplaceInput(REQUEST.QueryString("intNum"), "S") & "' ") ELSE IF RS("strSendID") = SESSION("strLoginID") THEN DBCON.EXECUTE("UPDATE [MPLUS_MEMO] SET [bitDeleteSend] = '1' WHERE [intNum] = '" & GetReplaceInput(REQUEST.QueryString("intNum"), "S") & "' ") ELSE DBCON.EXECUTE("UPDATE [MPLUS_MEMO] SET [bitDeleteRecv] = '1' WHERE [intNum] = '" & GetReplaceInput(REQUEST.QueryString("intNum"), "S") & "' ") END IF RESPONSE.WRITE ExecJavaAlert("»èÁ¦µÇ¾ú½À´Ï´Ù.", 1) RESPONSE.End() END SELECT SET RS = DBCON.EXECUTE("EXEC [MPLUS_GET_MEMO_CONFIG] ") DIM strBrowser, strFont, strFontSize, intTopMargin, intLeftMargin, intRightMargin, strColorBg, strColorActive DIM strColorHover, strColorVisited, strColorLink, strUserCss, strHeadFile, strTailFile, strHeadText, strTailText DIM strSkin, strSkinGroup, strSkinFile strBrowser = RS("strBrowser") strFont = RS("strFont") strFontSize = RS("strFontSize") intTopMargin = RS("intTopMargin") intLeftMargin = RS("intLeftMargin") intRightMargin = RS("intRightMargin") strColorBg = RS("strColorBg") strColorActive = RS("strColorActive") strColorHover = RS("strColorHover") strColorVisited = RS("strColorVisited") strColorLink = RS("strColorLink") strUserCss = RS("strUserCss") IF UseDefaultHeadTail = True THEN strHeadFile = RS("strHeadFile") strTailFile = RS("strTailFile") strHeadText = GetReplaceTag2Html(RS("strHeadText")) strTailText = GetReplaceTag2Html(RS("strTailText")) END IF strSkin = RS("strSkin") strSkinGroup = RS("strSkinGroup") SELECT CASE UCASE(Action) CASE "WRITE" strSkinFile = GetSkinPath(strSkin, 1, strSkinGroup, 0) & "\write.asp" CASE "LIST" strSkinFile = GetSkinPath(strSkin, 1, strSkinGroup, 0) & "\list.asp" CASE "READ" strSkinFile = GetSkinPath(strSkin, 1, strSkinGroup, 0) & "\read.asp" CASE "FIND_OK" strSkinFile = GetSkinPath(strSkin, 1, strSkinGroup, 0) & "\find_ok.asp" CASE "PROFILE" strSkinFile = GetSkinPath(strSkin, 1, strSkinGroup, 0) & "\memberProfile.asp" END SELECT %> <%=strBrowser%> <% IF UseDefaultHeadTail = True THEN IF defaultHeadFile <> "" AND ISNULL(defaultHeadFile) = False THEN SERVER.EXECUTE(defaultHeadFile) IF defaultHeadText <> "" AND ISNULL(defaultHeadText) = False THEN RESPONSE.WRITE defaultHeadText IF strHeadFile <> "" AND ISNULL(strHeadFile) = False THEN SERVER.EXECUTE(strHeadFile) IF strHeadText <> "" AND ISNULL(strHeadText) = False THEN RESPONSE.WRITE strHeadText END IF SERVER.EXECUTE(strSkinFile) IF UseDefaultHeadTail = True THEN IF strTailText <> "" AND ISNULL(strTailText) = False THEN RESPONSE.WRITE strTailText IF strTailFile <> "" AND ISNULL(strTailFile) = False THEN SERVER.EXECUTE(strTailFile) IF defaultTailText <> "" AND ISNULL(defaultTailText) = False THEN RESPONSE.WRITE defaultTailText IF defaultTailFile <> "" AND ISNULL(defaultTailFile) = False THEN SERVER.EXECUTE(defaultTailFile) END IF SET RS = NOTHING : DBCON.CLOSE %>