Re:[질문] 음악골라듣기~~

[★rockets]

asx를 동적으로 생성할 수 있습니다. DB연결하고 레코드셋 오픈하는거는 서버에 맞게 설정해서 사용하시면 됩니다.

다음은 MSDN에 나온거 제가 약간 수정해서 사용한 예제입니다.그러면 자동으로 asx를 만들어서 뿌려줍니다.

db사용하지 않고 뮤직박스처럼 사용하시려면 폼에서 체크된 거를 받아서 차례대로 뿌려주면 됩니다.

.............. 부분만 수정하면 되겠죠..




<%@ LANGUAGE="VBScript‎" %>
<%
'-------------------------------------------------------
' 윈도우 미디어 서버의 BASE_PATH 상수 지정
'-------------------------------------------------------
Option Explicit

Dim BASE_PATH
Dim AsfName 'asf파일명

'DB연결
'레코드셋생성
AsfNAme = Rs("동영상명")

'레코드셋닫기
'DB닫기

BASE_PATH = "mms://www.xxx.com/" & AsfName

Response.ContentType = "video/s-ms-asf" 'MIME type
Response.Expires = 0 '항상 새로고침

Response.Write AsxHeader() 'ASX tag 시작
Response.Write AdEntry() '동영상실행
Response.Write AsxFooter() 'ASX footer

'-------------------------------------------------------
' Function AsxHeader
' This function returns an opening tag
'-------------------------------------------------------
Function AsxHeader ()
Dim sTemp
sTemp = "" & vbNewLine & " " & vbNewLine
sTemp = sTemp & "" & vbNewLine & " " & vbNewLine
ASXHeader = sTemp 'return the string
End Function
'-------------------------------------------------------
' Function AdEntry
' This function returns an ad based on user request
'-------------------------------------------------------
Function AdEntry()
Dim sTemp
sTemp = "" & vbNewline
sTemp = sTemp & " " & vbNewLine
sTemp = sTemp & "" & vbNewLine & vbNewLine
AdEntry = sTemp
End Function
'-------------------------------------------------------
' Function AsxFooter
' This function returns a closing tag
'-------------------------------------------------------
Function AsxFooter ()
AsxFooter = "" & vbNewLine & vbNewLine
End Function
%>




: 벅스뮤직같은 음악듣기를 만들려고 합니다...
:
: 넘 어렵네요...
:
: asx화일을 만들면 된다는 거까진 알았는데,
:
: 사용자마다 asx화일을 만들어 어디다가 저장해야하나요?
:
: 이거때매 머리아파 포기 지경입니다...