고객센터 : 031-548-0481 /호스팅문의:1644-2646 /서버호스팅문의 : 070-7573-5515/ 평일근무 : 09:00~18:00 / 토/일요일, 공휴일 휴무
솔루션 > 커뮤니티 > 사용팁
사용팁
다운로드 제한 걸기!!!아티보드2.0
- 박인영
- 조회수 : 2803
- 추천수 : 0
- 2007-07-13 오후 12:14:06
※ 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")
<%
'문제 발생시에 확인할것 : 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
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)
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")
CONF_bitUsePoint = RS("bitUsePoint")
CONF_intDownPoint = RS("intDownPoint")
IF CONF_bitDownLevel = False THEN
RESPONSE.WRITE ExecJavaAlert("다운로드 권한이 없습니다.", 0)
RESPONSE.End()
END IF
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("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 & "' ")
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
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
IF InStr(strUserAgent, "MSIE") > 0 THEN
유아이디씨 사업자 등록번호 : 206-14-87223 | 통신판매업 신고번호 : 제2010-경기수원-0200호 | 대표: 박동율
경기도 수원시 영통구 광교중앙로 170 효성해린터타워 오피스동 1307호 | 개인정보관리책임자 : 조민식
고객센터 : 1644-2646 | 팩스 : 0504-168-5515
COPYRIGHT(C) OPENKR. ALL RIGHT RESERVED.
경기도 수원시 영통구 광교중앙로 170 효성해린터타워 오피스동 1307호 | 개인정보관리책임자 : 조민식
고객센터 : 1644-2646 | 팩스 : 0504-168-5515
COPYRIGHT(C) OPENKR. ALL RIGHT RESERVED.
댓글 2