|
|
|
|
bladee / 2000-11-17 / ¿ÀÈÄ 4:03:01 / 210.115.32.103
Á¶È¸¼ö : 166
|
[Áú¹®] µ¿Àû ASX »ý¼º¹®Á¦
|
¾È³çÇϼ¼¿ä.
asx¿¡ °üÇÑ ³»¿ëÀ» °Ô½ÃÆÇ¿¡¼ ÇØ´çÀڷḦ ã¾Æº¸°í Àúµµ ¸¸µé¾îº¸¾Ò´Âµ¥ À߾ȵdz׿ä.
< a href="http://210.115.43.9/search/buildasx.asp?song=<%=RS("Song_ID")%>" >[µé¾îº¸±â]< /a >
< input type=checkbox name=song value="<%=RS("Song_ID")%>" >
ÀÌ·±½ÄÀ¸·Î ¼±ÅÃÀ» ÇÏ°Ô ¸¸µé°í Song_id °ªÀ» Äû¸®½ºÆ®¸µÀ» ÀÌ¿ëÇؼ GET ¸Þ¼Òµå·Î buildasx.asp¿¡ º¸³Â½À´Ï´Ù.
ÀÚµ¿ »ý¼ºµÈ Buildasx.asxÆÄÀÏÀ» ¿¾îº¸¸é
< ASX version="3">
< /ASX >
À̰͸¸ÀÌ ³ª¿À´Âµ¥ Áß°£¿¡ < ENTRY > ~ < /ENTRY > ºÎºÐÀ» Á¦´ë·Î ³ª¿À°Ô ÇϱâÀ§Çؼ ±×¿¡ÇØ´çÇÏ´Â ¼Ò½ºÄڵ带 ¾î¶»°Ô ¹Ù²ã¾ß ÇÏ´ÂÁö ¸ð¸£°Ú½À´Ï´Ù. ¾Æ·¡´Â Buildasx.aspÀÇ ¼Ò½ºÄÚµå ºÎºÐÀÔ´Ï´Ù.
<% @ Language=VBScript %>
<% playlist = Request.querystring("Song")
Set DB = Server.CreateObject("ADODB.Connection")
db.Open("cdsearch")
Set RS = Server.CreateObject("ADODB.Recordset")
SQLString = "SELECT * FROM Songs WHERE Song_ID IN ("&playlist&")"
RS.Open SQLString,db,1
%>
<% Response.ContentType = "video/x-ms-asf"%>
<% Response.expires=0 %>
< ASX version="3">
<%
For Each Song In Request.Form
if Request.Form(Song).Count Then
For intLoop = 1 to Request.Form(Song).Count
%>
¢ÑÀ̺κп¡¼ÀÇ º£ÀÌÁ÷½ºÅ©¸³Æ®¸¦ ¸ð¸£°Ú½À´Ï´Ù.
¢Ñ< ENTRY >
¢Ñ< ref href="mms://210.115.43.9/LJH2/<%=Request.Form(Song)(intLoop)%>.asf" />
¢Ñ< Title ><%=Rs("Song_Name")%>< /Title >
¢Ñ< /Entry >
<% Rs.moveNext %>
<% Next
Else
Request.Form(Song)
End If
Next %>
< /ASX >
<%
RS.Close
Set RS= Nothing
db.Close
Set db = Nothing
%>
|
|
|
|