ASP关于音乐播放的问题。。。。。

2006-04-29 11:40:39 141 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

zqb2002 墨衍会员 · AI 创作全网分发关注 + 加入社区

ArcGIS投影变换实战：从WGS_1984到Krasovsky_1940_Albers的精准转换本文详细解析了在ArcGIS中如何将WGS_1984地理坐标系下的数据精准转换至Krasovsky_1940_Albers投影坐标系。文章通过实战案例，重点阐述了地理坐标系与投影坐标系的区别，并逐步演示了创建自定义地理变换、使用投影栅格工具以及进行批量处理和结果验证的核心操作流程，旨在解决地图数据叠加不准的常见问题。阅读详情

<%
'以下的三个变量从player.asp中传入
' player 要使用的音乐播放器
' PlayMethod 播放方法，1表示单曲，2表示列表
' m_id 如果PlayMethod=“单曲”，则m_id为该单曲的歌曲代号

Dim m_id,PlayMethod,player

player = Request.Form("player")
PlayMethod = Request.Form("PlayMethod")
m_id = Request.Form("id")

If PlayMethod = "" Then
Response.Redirect "."
Response.End
End If

Set obj = Music_GetDatabaseConn()
Set oRS = Server.CreateObject("ADODB.Recordset")
Set oRS.ActiveConnection = obj

Select Case player
Case "WMPlayer"
Response.ContentType = "video/x-ms-asf"
Response.Write "<ASX version = " & Chr(34) & "3.0" & Chr(34) & ">" & vbCrLf
Response.Write " <Title>titan音乐点播系统</Title>" & vbCrLf
Select Case PlayMethod
Case "单曲"
oRS.Open "select m_file,m_times from music where m_id=" & m_id,obj,1,3
oRS("m_times").Value = oRS("m_times").Value + 1
oRS.Update
Response.Write " <Entry><Ref href = " & Chr(34) & "mms://" & ServerName & "/mp3/" & oRS("m_file").Value & Chr(34) & " /></Entry>" & vbCrLf
oRS.Close
Case "列表"
If Session("s_Num") = 0 Then
Response.Redirect "."
End If
For I = 1 To Session("s_Num")
oRS.Open "select m_file,m_times from music where m_id=" & Session("s_SongID."&I),obj,1,3
oRS("m_times").Value = oRS("m_times").Value + 1
oRS.Update
Response.Write " <Entry><Ref href = " & Chr(34) & "mms://" & ServerName & "/mp3/" & oRS("m_file").value & Chr(34) & " /></Entry>" & vbCrLf
oRS.Close
Next
End Select
Response.Write "</ASX>" & vbCrLf
Case "Winamp"
Response.ContentType = "audio/mpegurl"
Select Case PlayMethod
Case "单曲"
oRS.Open "select m_file,m_times from music where m_id=" & m_id,obj,1,3
oRS("m_times").Value = oRS("m_times").Value + 1
oRS.Update
Response.Write "http://" & ServerName & "/mp3/" & oRS("m_file").Value & vbCrLf
oRS.Close
Case "列表"
If Session("s_Num") = 0 Then
Response.Redirect "."
End If
For I = 1 To Session("s_Num")
oRS.Open "select m_file,m_times from music where m_id=" & Session("s_SongID."&I),obj,1,3
oRS("m_times").Value = oRS("m_times").Value + 1
oRS.Update
Response.Write "http://" & ServerName & "/mp3/" & oRS("m_file").Value & vbCrLf
oRS.Close
Next
End Select
Case "RealPlayer"
Response.ContentType = "audio/x-pn-realaudio"
Select Case PlayMethod
Case "单曲"
oRS.Open "select m_file,m_times from music where m_id=" & m_id,obj,1,3
oRS("m_times").Value = oRS("m_times").Value + 1
oRS.Update
Response.Write "pnm://" & ServerName & "/mp3/" & oRS("m_file").Value & vbCrLf
oRS.Close
Case "列表"
If Session("s_Num") = 0 Then
Response.Redirect "."
End If
For I = 1 To Session("s_Num")
oRS.Open "select m_file,m_times from music where m_id=" & Session("s_SongID."&I),obj,1,3
oRS("m_times").Value = oRS("m_times").Value + 1
oRS.Update
Response.Write "pnm://" & ServerName & "/mp3/" & oRS("m_file").Value & vbCrLf
oRS.Close
Next
End Select
End Select

Set oRS = Nothing
obj.Close
Set obj = Nothing
%>
为什么播放的时候总是出现Windows Media Player 无法播放该文件。该播放机不支持您试图播放的格式。

...全文