안녕하십니까 요즘 아티보드에 푹빠져사는 회원입니다. 그리 대단한 스킬은 아니구요 회원 포인트에따라 등급을 일일이 올려 주려 하는젓이 기찬아서 자동으로 포인트가 올라감에따라 자동 등업이 되는 방법을 올립니다. 아무쪼록 아티보드 많이 사랑해주세요.. 한번 잘따라 해보세요
일단 로그인부분은 외부로그인 방식이구요 모든 페이지는 원프레임으로 작성했습니다.
아래그림에서 보이는 고르인 스킨은 제가 만든거구요 스타일은 인터넷에 있는 블루비 로그인 스타일 입니다.
안
일단 첨부파일로 로그인 스킨을 올렸구요..
또작업하실부분은 Dbconnect/Dbconnect.asp 파일을 다른이름으로 똑간이 변수 지정부분만 삭제하시고 Dbconnect/Dbconnect2.asp라고 저장을 하세요 안그럼 변수 중복지정으로 에러가 납니다.
그리구 로그인 압축파일을 푸시면 Point_ok.asp라는 파일이 있습니다.
아래와 같은 코딩입니다.
<%
if SESSION("strLoginID") <> "" then
set rs=DBCON.EXECUTE ("select [strLoginID],[strGroup], [intPoint] from MPLUS_MEMBER_LIST where [strLoginID]='"& SESSION("strLoginID") &"'")
Point = rs("intPoint")
Group = rs("strGroup")
if Point <= 999 then Group = "G015"
if Point >= 1000 then Group = "G001"
if Point >= 2000 then Group = "G002"
if Point >= 5000 then Group = "G003"
if Point >= 10000 then Group = "G004"
if Point >= 20000 then Group = "G005"
if Point >= 45000 then Group = "G009"
if Point >= 100000 then Group = "G010"
if Point >= 200000 then Group = "G011"
if Point >= 500000 then Group = "G012"
if Point >= 1000000 then Group = "G013"
if Point >= 2000000 then Group = "G014"
set rs=DBCON.EXECUTE ("Update MPLUS_MEMBER_LIST Set [strGroup] = '"&Group&"' Where [strLoginID] = '"& SESSION("strLoginID") &"'")
end if
SET RS = NOTHING : DBCON.CLOSE
%>
위의 코딩은 ASP를 하시는 분이 면 아~~ 하고 답변이 나올겁니다. 파란색으로 표기된 부분은 아래의 그림처럼
그룸코드가 있을겁니다 자동으로 등업 하려는 등업코드로 작성하시고 남는 코딩은 삭제하시면
게시글 등록이나 삭제시 자동으로 등급이 변경이 됩니다. 그리 어렵지 않을 것입니다.
추가 질문사항은 남겨주시면 시간 되는데로 알려 드리겠습니다.
아티를 사랑하시는 많은 유저님들 혼자만의 좋은 기술을 아티보드처럼 회원님들과 공유하여 더욱더 발전적인 아티보드를 만들어 가도록
댓글 7