※ Library/fileDown.asp 파일 수정
<
%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>
<%
'문제 발생시에 확인할것 : Response.Buffer = False
Response.Buffer = true
RESPONSE.EXPIRES = 0
%>
<!-- #include file = "../DBConnect/DBConnect.asp" -->
<!-- #include file = "../Library/Function.asp" -->
<%
DIM intSeq, intFile, strBoardID
intSeq = REQUEST.QueryString("intSeq")
intFile = REQUEST.QueryString("intFile")
strBoardID = REQUEST.QueryString("strBoardID")
SET RS = DBCON.EXECUTE("EXEC [MPLUS_GET_BOARD_CONFIG_DEFAULT] '" & strBoardID & "', '" & SESSION("strLoginID") & "' ")
DIM CONF_intUserLevel, CONF_bitBoardAdmin, CONF_intDownLevel, CONF_bitDownLevel
CONF_intUserLevel = RS("intUserLevel")
IF CONF_intUserLevel = "" OR ISNULL(CONF_intUserLevel) = True THEN CONF_intUserLevel = 0
CONF_bitBoardAdmin = GetAdminCheck(SESSION("strLoginID"), RS("strAdmin"), SESSION("strAdmin"))
CONF_strDownLevel = SPLIT(RS("strDownLevel"), "|")
IF CONF_strDownLevel(0) = 1 THEN CONF_intDownLevel = 0 ELSE CONF_intDownLevel = CONF_strDownLevel(1)
CONF_bitDownLevel = GetBoardLevelCheck(CONF_bitBoardAdmin, CONF_intDownLevel, CONF_intUserLevel)
DIM CONF_bitUsePoint, CONF_intDownPoint
CONF_bitUsePoint = RS("bitUsePoint")
CONF_intDownPoint = RS("intDownPoint")
IF CONF_bitDownLevel = False THEN
RESPONSE.WRITE ExecJavaAlert("다운로드 권한이 없습니다.", 0)
RESPONSE.End()
END IF
'*************************************
IF SESSION("strLoginID") <> "" THEN
SET RS = DBCON.EXECUTE("SELECT [intVisit],[intPoint],[intBoardCount],[intCommentCount] FROM [MPLUS_MEMBER_LIST] WHERE [strLoginID] = '" & SESSION("strLoginID") & "' ")
'다운로드시 제한사항 걸기 --------------------------
IF RS("intVisit") >= 3 AND RS("intBoardCount") >= 1 AND RS("intCommentCount") >= 3 THEN
RESPONSE.WRITE ExecJavaAlert("로그인 3회이상, 게시글 2회이상, 코멘트 3회이상 활동하셔야 다운로드가 가능합니다.", 0)
RESPONSE.End()
END IF
'--------------------------------
IF RS("intPoint") =< 0 THEN
RESPONSE.WRITE ExecJavaAlert("포인트가 부족합니다.", 0)
RESPONSE.End()
END IF
END IF
'*********************************************
SET RS = DBCON.EXECUTE("EXEC [MPLUS_GET_BOARD_FILE] '" & intSeq & "' ")
DIM strFileName
SELECT CASE intFile
CASE "1" : strFileName = RS("strFileName1")
CASE "2" : strFileName = RS("strFileName2")
END SELECT
DBCON.EXECUTE("UPDATE [MPLUS_BOARD] SET [strFileDown" & intFile & "] = [strFileDown" & intFile & "] + 1 WHERE [intSeq] = '" & intSeq & "' ")
IF CONF_bitUsePoint = True THEN
IF CONF_intDownPoint <> 0 THEN
IF SESSION("strLoginID") <> "" THEN DBCON.EXECUTE("EXEC [MPLUS_PUT_MEMBER_POINT] '1', '" & strBoardiD & "', '" & intSeq & "', '', '" & SESSION("strLoginID") & "', '', '', 'P002', " & CONF_intDownPoint & ", '다운로드시 지급한 포인트' ")
END IF
END IF
DIM strUserAgent, strContentDisp, strContentType
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
IF InStr(strUserAgent, "MSIE") > 0 THEN
댓글 2