|
|
|
|
È£¹Ù¸® / 2000-04-12 / ¿ÀÈÄ 12:15:17 / 211.38.66.194
Á¶È¸¼ö : 135
|
[Áú¹®] 俵´Ô ´Ù¿îÀÌ µÇ¿© ¤Ð,¤Ð |
ÇæÇæ..
¹ã»õ Àâ¾Æ ºÃÁö¸¸..¤Ð,¤Ð
¾îµð¼± ÀߵǴµ¥
together.asp
°¡ ´Ù¿îµÇ´Â °÷ÀÌ ´õ ¸¹¾Æ¿ä
Á¦°¡ ½ÇÇèÇØ º»°á°ú,,
¾ÆÈæ,
´Ù ³¡³ ÁÙ ¾Ë¾Ò´Âµð...
Çã°Åµ¢...
<% V_Index=Request("song")
Set DbCon = Server.CreateObject("ADODB.Connection")
DbCon.Open ("list")
set Rs=Server.CreateObject("ADODB.Recordset")
SQLString = "SELECT * FROM list WHERE ¹øÈ£ IN ("&V_Index&")"
Rs.Open SQLString,DbCon,1
Set DbCon5 = Server.CreateObject("ADODB.Connection")
set Rs5=Server.CreateObject("ADODB.Recordset")
DbCon5.Open ("list")
sql1="UPDATE list SET selected=selected+1 WHERE ¹øÈ£ IN ("&V_Index&")"
Result=Dbcon5.Execute(sql1)
%>
<%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://211.38.66.230/asf56/<%=Request.Form(song)(intLoop)%>.asf" / >
< title ><%=Rs("°¡¼ö")%>-<%=Rs("°î¸í")%>
< /entry >
<% Rs.moveNext %>
<% next
else
Request.Form(song)
end if
next%>
< /asx >
ÀÌ·¸°Ô Çߴµ..
´Ù¿îµÇ¿©..¾ÆÈæ,,Àý·Á¶û...
¾ÏÆ° Çѹø ´õ »ìÆì ºÁ ÁÖ¼¼¿ä
Á¤¸» Áú¹®Çϱ⵵ Áö¼ÛÇϳ׿©..³É³É..
¤³ ¤¿¤· ¤Ó |
|
|
|