MP3 afspiller på webside!

http://www.lennarthermansen.dk/musik/default.asp

Jeg lytter med...

http://www.eksperten.dk/spm/21322

/a

her er de svar du leder efter

med på en lytter! :)

astalavista -> Virkelig godt og uddybende svar...
Med på en lytter.

Man kunne bruge en MediaPlayer. Det her er godt nok tidligere brugt til video, men det burde virke med Mp3 også.

Da du garanteret ikke har en mms Server (Microsoft Streaming Server) skal du ændre \"mms://MINSERVER/STI/MINVIDEO.asf\" til \"http://www.minSti.MinLyd.mp3\".

Leg selv lidt med højde og bredde for din ønskede løsning.

<OBJECT ID=\"MediaPlayer\" width=320 height=240
  classid=\"CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95\"
  codebase=\"http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=,1,52,701\";
  standby=\"Loading Microsoft Windows Media Player components...\"
  type=\"application/x-oleobject\">
  <PARAM name=\"FileName\" value=\"mms://MINSERVER/STI/MINVIDEO.asf\">
  <EMBED type=\"application/x-mplayer2\"
    pluginspage=\"http://www.microsoft.com/Windows/Downloads/Contents/Products/MediaPlayer/\";;;
    SRC=\"mms://MINSERVER/STI/MINVIDEO.asf\"
    name=\"MediaPlayer\"
    width=320
    height=240>
  </EMBED>
</OBJECT>

http://www.fotx.net/nikolajdu

hej
hvis du vil have koden tilsendt så skriv lige din email

kommer lige med koden her inde...
der er godt nok i asp ved ikke om du kan bruge det til noget


 
    <%
    On Error Resume Next
    Dim FileSystemObject, Folder, FileCollection, File
    Dim FolderPath, WebDir
        If Request.QueryString(\"play\") >\"\" Then
        Response.Write \"<EMBED src=\" & chr(34) & Request.QueryString(\"play\") & chr(34)
        Response.Write \" width=350 height=43 controls=console volume=80\"
        Response.Write \" width=350 loop=false type=\'audio/mp3\'>\"
        Response.Write \"<BR>\"
        End If
    Server.ScriptTimeOut=1
    FolderPath= server.MapPath(\".\") & \"\\\"
    WebDir= Request.ServerVariables(\"PATH_INFO\")
    Set FileSystemObject = CreateObject(\"Scripting.FileSystemObject\")
    \'List All Files
    Set Folder = FileSystemObject.GetFolder(Folderpath)
    Set FileCollection = Folder.Files
    For Each File In FileCollection
            s = LCase(File.Name)
            If ucase(Right(File.name,4))=\".MP3\" Then
       
                \'Response.Write \"<A href=\" & chr(34) & webdir & \"?Play=\" & File.name & chr(34) & \">\" & File.name & \"</A><BR>\"
            Else
                \'Code To display other file types with a regular link
                \'Response.Write \"<A href=\" & chr(34) & webdir & f1.name & chr(34) & \">\" & f1.name & \" FileSize=\" & f1.size & \"</A><BR>\"
            End If
    Next
    \' & \"  \" & File.size
    %>
 
       

jeg kan ikke aps!

Så kunne du da bare have valgt min løsning.