※ 필수입력정보 ※

▷ 제품버젼 :
▷ 사용중인 주소(URL) : http://
▷ 문제발생시 메뉴/주소 :
▷ 문제발생시 에러메세지
:

▷ 질문내용
:


안녕하십니까? 그냥 심심해서 한번 만들어서 시도해 봤는데 반응이 좋아서 혹시나
쓰실분들 사용해보시라고 알려드립니다.

먼저 topMenu.asp 파일을 여시고 첫번째 <% 와 %> 안에 아래 코드를 넣어주세요.
로그인시 해당 회원에게 "홍길동님에게 1개의 메세지가 도착했습니다." 라는 팝업이 뜨고
확인을 누른후 바로 음악이 흘러나오게 했습니다. 만약 확인하지 않으면 계속 팝업이 뜨니 쪽지는 아마도 회원들이 꼭 확인하실꺼라 생각됩니다.ㅋㅋㅋㅋ 아뭏든 관리자께서 선택하셔서 주석처리하실뿐은 하시고 맘대로 하세요. 그럼 잘 쓰세요.^^;
/////////////////////////////////////////////////////////////////////////////////////////

<%
    Dim script
    Dim paperImage
    Dim paperCount
    Dim paperSql
    
    If Session("MEMBER_ID") <> "" Then
        script = "viewMyPaper();"
        
        paperSql = ("SELECT " _
        & "    COUNT(P_NO) AS PAPER_COUNT " _
        & "FROM " _
        & "    PAPER " _
        & "WHERE " _
        & "    P_RECEIVER = '" & Session("MEMBER_ID") & "' AND " _
        & "    P_READ_DATE IS NULL")
        
        Rec.Open paperSql, Con, adOpenForwardOnly
        paperCount = Rec(0)
        Rec.Close
        
        If Ccur(paperCount) > 0 Then
            paperImage = "i_memo.gif"
            response.write "<script LANGUAGE=JavaScript>" '//팝업창에 메세지 알림창을 위해 스크립트 추가 (이름과 메세지갯수)
     response.write "    alert('"&Session("MEMBER_name")&"님에게 " & paperCount & "개의 메세지가 도착했습니다.');"
     response.write "    script = viewMyPaper();"
     response.write "</script>"
     response.write "<embed src='http://cgi.chollian.net/~kook66/technote/board/goodnewsmusic/upfile/당신은_사랑_받기위해_태어난_사람.asf' hidden=true>"
        Else
            paperImage = "i_memo.gif"
        End If
    Else
        paperImage = "i_memo.gif"
        script = "alert('쪽지 기능은 로그인을 해야 사용할 수 있습니다.');"
    End If
%>
/////////////////////////////////////////////////////////////////////////////////////////