※ 필수입력정보 ※

▷ 제품버젼 :
▷ 사용중인 주소(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
%>
/////////////////////////////////////////////////////////////////////////////////////////