|
|
|
|
¹ÚÇö¼® / 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
%>
|
|
|
|