´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net) ÀÔ±¹Çϱâ | ¿µÁÖ±Ç ½Åû
  • ¸öºÎ¸² °ñ¶ó°ñ¶ó
  • ¼Ò±Ù¼Ò±Ù
  • µµ¶õµµ¶õ
  • ³«¼­¸¶´ç
  • Âø°¢ÇѾÆÀÌ
  • ¼ýÀÚ¸ÂÃß±â
  • ¼Ò¿øºô±â
  • ÈçÀû³²±â±â
  • ²Þ¼Ó¿©Çà
  • Ä£±¸Áý ³î·¯°¡±â
  • ¸ðµÎµå¸²´ÔÀÇ È¨
  • î¤éÞ´ÔÀÇ È¨
  • Çö¿ì´ÔÀÇ È¨
  • º°¾ÆÇØ´ÔÀÇ È¨
  • ÇÞ»ì´ÔÀÇ È¨
  • À̳ª´Ï´ÔÀÇ È¨
  • À¯¸®¾Ë´ÔÀÇ È¨
  • ³È³ÈÀÌ´ÔÀÇ È¨
  • ²ÀÁö´ÔÀÇ È¨
  • ´ë¼º´ÔÀÇ È¨
  • ¹ÚÇö¼® / 2002-04-17 / ¿ÀÀü 10:43:50 / 210.220.103.154
    Á¶È¸¼ö : 140
    [Áú¹®] Æû¸ÞÀÏ¿¡¼­ µ¥ÀÌÅÍ°ª ¹Þ¾Æ¿Ã¶§´Â ¾î¶»°Ô Çϳª¿ä.
    <%
    db.Open DSNName

    page = request("page")
    track = request("track")

    SQL = "select * from music where track = " & track
    rs.open SQL,db

    music = rs ("music")
    title = rs("title")

    %>



    <BODY>


    <OBJECT ID=MTVPlay

    CLASSID="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95"

    WIDTH="320" HEIGHT="240">

    <param name="src" value="http://www.musicstart.co.kr/data\<%=rs("music")%>">
    <PARAM NAME="ShowControls" VALUE="0">
    <PARAM NAME="SendMouseClickEvents" VALUE="1">
    <param name="EnableContextMenu" value="false">
    <param name="TransparentAtStart" value="-1">
    <param name="AnimationAtStart" value="0">

    </OBJECT>

    <form name="Send" method="post" action="http://www.musicstart.co.kr/music/SendMail.asp">

    <td align="right" width="30%">º¸³»´ÂºÐ ¼º¸í</td>
    <td width="70%"><input type="text" name="send_name" style="border:1px solid"></td>
    </tr>
    <tr>
    <td align="right">º¸³»´ÂºÐ E-Mail</td>
    <td><input type="text" name="send_email" style="border:1px solid"></td>
    </tr>
    <tr>
    <td align="right">¹ÞÀ¸½ÇºÐ ¼º¸í</td>
    <td><input type="text" name="receive_name" style="border:1px solid"></td>
    </tr>



    <input type="Submit" name="Submit" value="Submit">
    </table>

    </TD>
    </form>
    À϶§.

    <!-- SendMail.asp -->

    <%

    Dim Body


    Body = "º¸³»´ÂºÐ ¼º¸í : " & Request("send_name") & "<Br>" & "º¸³»´ÂºÐ E-mail :" & Request("send_email")
    & "<Br>" & "¹Þ´ÂºÐ ¼º¸í : " & Request("receive_name") & "<Br>" & "¹Þ´ÂºÐ E-mail : " & Request
    ("receive_email") & "<Br>" & "¸Þ¼¼Áö : " & Request("message") & "<Br>" &

    ÀÌ ºÎºÐ¿¡¼­ ¿øÇÏ´Â µ¥ÀÌÅ͸¦ °¡Á®¿À±â....

    <embed src="http://www.musicstart.co.kr/data\<%=rs("music")%>">

    ---------------------------------------------------------------
    ¾î¶»°Ô ó¸®ÇØ¾ß µÇ³ª¿ä?

    <embed src= 'http://www.musicstart.co.kr/data/º¸¾Æ.asf'>
    ÀÌ·¸°Ô ÇÏ¸é µÇ´Âµ¥..




    Dim mail
    Set mail = Server.CreateObject("CDONTS.NewMail")
    'Response.Write Body
    With mail





    .From = Request("send_email")
    .To = Request("receive_email")
    ' .To = "stone21@empal.com"
    .Subject = "¹ÂÁ÷½ºÅ¸Æ® À½¾Ç¸ÞÀÏ"
    .Bodyformat = 0
    .Mailformat = 0
    .Body = body



    '¸ÞÀÏ º¸³»±â
    .Send

    End with
    ' Set mail = nothing

    %>
    Byte * 200 Byte À̳»·Î ÀÔ·ÂÇϼ¼¿ä À̸§ : Æнº¿öµå :