꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

등록하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	HTML 사용
제목 *
내용 *	> <% > 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 > > %> > -----------------------------------------------------------

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *