|
|
|
|
ûÇæÔñýѨ / 2002-04-17 / ¿ÀÀü 11:57:57 / 203.255.3.190
Á¶È¸¼ö : 146
|
[Áú¹®] Æû¸ÞÀÏ¿¡¼ µ¥ÀÌÅÍ°ª ¹Þ¾Æ¿Ã¶§´Â ¾î¶»°Ô Çϳª¿ä. |
> <%
> 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
>
> %>
>
-----------------------------------------------------------
¶È°°½À´Ï´Ù. Æû¸ÞÀÏÀ̶ó°í ¹¹ ´Þ¶óÁö´Â °Ç Çϳªµµ ¾ø½À´Ï´Ù.
´Ù¸¥ ÆäÀÌÁö¿¡¼ ¹Þ¾Æ ¿Ã¶§´Â Request
DB¿¡¼ °¡Á®¿Ã¶§´Â DB¿¡ ¿¬°áÇؼ ¹Þ¾Æ¿À½Ã¸é µË´Ï´Ù.
|
|
|
|