고객센터 : 031-548-0481 /호스팅문의:1644-2646 /서버호스팅문의 : 070-7573-5515/ 평일근무 : 09:00~18:00 / 토/일요일, 공휴일 휴무

1:1 고객상담문의 FAQ 자동답변

나노코팅 나노엔

구매안내

  • 아티보드 2.0
  • 아티보드 3.0
  • 아티카페
  • 파일공유사이트
솔루션 > 커뮤니티 > 사용팁

사용팁|

다운로드 제한 걸기!!!|아티보드2.0

  • 박인영
  • |조회수 : 2809
  • |추천수 : 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")
 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

  • 최백호
  • 2007.07.16 11:20
역시 인영님 감사합니다. 조망간 아티보드 1

수정 삭제

오타입니다. IF RS("intVisit") >= 3 AND RS("intBoardCount") >= 1 AND RS("intCommentCount") >= 3 THEN 이부분에서 RS("intBoa

번호 제목 닉네임 조회수 작성일
95 익스플러 플래시 사용스크립트 [1] 웹아티 2625 2006.04.21
94 자동등업 방법[조금 무식한 방법입니다.] [8] file 박인영 2640 2007.05.24
93 이미지 등록시 이미지파일 체크 자바스크립트_수정2 [2] 최경수 2644 2007.07.11
92 패스코리아의 Nwmail 사용사시는분 [5] file 네오지기 2668 2006.08.23
91 달력스킨에서 데이터를 뽑아서 사용할시 링크방법 [2] 홍정우 2687 2007.01.08
90 아티보드 오늘 생일자 목록 뽑기 [3] file 웹아티 2697 2007.05.30
89 아티보드 3.0 팝업 띠우기 일천 2746 2012.06.20
88 우편번호 삽입시, [1] 행복한떠기 2770 2007.09.26
87 첨부파일 올립니다. 참고하세요!! [5] file 박인영 2783 2007.11.09
86 조회수별, 코멘트 글수별 게시글 추출 소스입니다. [2] file 천명관 2785 2007.02.26
85 GeoIP 국가별 IP 체크 방법 file 최백호 2787 2011.11.25
84 jquery를 이용한 오른쪽 퀵메뉴 최백호 2789 2011.11.25
83 등록자에 별명으로 입력되게 하기 [5] 에버클럽 2796 2006.06.15
다운로드 제한 걸기!!! [2] 박인영 2809 2007.07.13
81 설치시 424에러가 뜰 경우 [3] 행복한떠기 2823 2007.09.23
80 정식 싸이트 개설했습니다. 많이들 놀러 오세요... [3] 박인영 2831 2007.05.29
79 nmail을 사용하시면서 아팁보드에서 메일발송시 HTML형태로 발송이.. [1] 김유진 2836 2007.05.12
78 ASP 소스 보기 최백호 2880 2011.11.25
77 XP Pro에서 폴더별 권한 설정방법 [2] 정기성 2887 2006.09.11
76 예) 48시간 안에 작성된 글중! 조회수 높은 순으로 뽑기... [1] 리안 2901 2008.02.21