|
|
|
|
俵ÀÌ / 2000-11-17 / ¿ÀÈÄ 4:25:44 / 203.255.3.190
Á¶È¸¼ö : 186
|
[Áú¹®] µ¿Àû 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
> %>
>
-----------------------------------------------------------
À§ÀÇ ÄÚµù»ó¿¡ Ʋ¸° °÷Àº ¾ø¾î º¸ÀÔ´Ï´Ù.
¿¹Àü¿¡ ÀÌ¿Í °ü·ÃµÈ ¼Ò½º¸¦ Çѹø ºÃ´Âµ¥ ÀüÇô Ʋ¸°Á¡ÀÌ ¾ø³×¿ä.
entry ºÎºÐÀº ´ÔÀÌ ÇϽô ¹æ¹ý ±×´ë·Î ÀÔ´Ï´Ù.
entry ºÎºÐÀÌ ³ª¿ÀÁö ¾Ê´Â´Ù¸é ¾Æ¹«·¡µµ ¾Õ ÆäÀÌÁö¿¡¼
song ºÎºÐÀ» ³Ñ±â´Â ºÎºÐ¿¡¼ ÀÌ»óÀÌ ÀÖ´Â°Ô ¾Æ´Ò±î ½ÍÀºµ¥¿ä...
Çѹø üũÇØ º¸¼¼¿ä....
p.s. ÅÂ±× Ã³¸®¸¦ ¹æÁöÇϱâ À§ÇØ ÇÑľ¿ ´Ù ¶ç¿ì¼Ì³×¿ä. Á¤¸» °¨»çÇÕ´Ï´Ù... ²Ù¹÷~~
|
|
|
|