Imports System.Data.SqlClient Public Class testrm Inherits System.Web.UI.Page Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent() End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码 Dim mycon As New SqlConnection() Dim mycmd As New SqlCommand() Dim mydr As SqlDataReader Dim myds As New DataSet() mycon.ConnectionString = "server=localhost;uid=sa;pwd=sa;database=ly" mycon.Open() mycmd.Connection = mycon mycmd.CommandType = CommandType.Text mycmd.CommandText = "select * from music where id=" & Request.QueryString("ID") mydr = mycmd.ExecuteReader() While mydr.Read Session("src") = Trim(mydr("music_path")) Label1.Text = "歌词内容为:" & Trim(mydr("music_content")) End While mydr.Close() mycon.Close() End SubEnd Class
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>南京锐驰数码音乐</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:Panel id="Panel1" runat="server" Width="556px" Height="220px" BackColor="#cccccc" style="Z-INDEX: 101; LEFT: 0px; POSITION: absolute; TOP: 0px">
<P><FONT face="宋体">
<OBJECT id="player" height="80px" width="556p" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" VIEWASTEXT>
<PARAM NAME="URL" VALUE=<%=session("src")%>>
<PARAM NAME="rate" VALUE="1">
<PARAM NAME="balance" VALUE="0">
<PARAM NAME="currentPosition" VALUE="0">
<PARAM NAME="defaultFrame" VALUE="">
<PARAM NAME="playCount" VALUE="1">
<PARAM NAME="autoStart" VALUE="-1">
<PARAM NAME="currentMarker" VALUE="0">
<PARAM NAME="invokeURLs" VALUE="0">
<PARAM NAME="baseURL" VALUE="">
<PARAM NAME="volume" VALUE="50">
<PARAM NAME="mute" VALUE="0">
<PARAM NAME="uiMode" VALUE="mini">
<PARAM NAME="stretchToFit" VALUE="0">
<PARAM NAME="windowlessVideo" VALUE="0">
<PARAM NAME="enabled" VALUE="-1">
<PARAM NAME="enableContextMenu" VALUE="-1">
<PARAM NAME="fullScreen" VALUE="0">
<PARAM NAME="SAMIStyle" VALUE="">
<PARAM NAME="SAMILang" VALUE="">
<PARAM NAME="SAMIFilename" VALUE="">
<PARAM NAME="captioningID" VALUE="">
<!--是否自动播放--> <!--调整左右声道平衡,同上面旧播放器代码--> <!--播放器是否可人为控制-->
<!--是否启用上下文菜单--> <!--播放的文件地址--> <!--播放次数控制,为整数-->
<!--播放速率控制,1为正常,允许小数,1.0-2.0--> <!--控件设置:当前位置--> <!--控件设置:当前标记-->
<!--显示默认框架--> <!--脚本命令设置:是否调用URL--> <!--脚本命令设置:被调用的URL-->
<!--是否按比例伸展--> <!--默认声音大小0%-100%,50则为50%--> <!--是否静音-->
<!--播放器显示模式:Full显示全部;mini最简化;None不显示播放控制,只显示视频窗口;invisible全部不显示-->
<!--如果是0可以允许全屏,否则只能在窗口中查看--> <!--开始播放是否自动全屏--> <!--是否启用错误提示报告-->
<!--SAMI样式--> <!--SAMI语言--> <!--字幕ID-->
</OBJECT>
</FONT>
</P>
<FONT face="宋体">
<P>
<asp:Label id="Label1" runat="server" Width="365px" Font-Size="12px" ForeColor="Green" Font-Names="宋体" Font-Underline="True">欢迎进入歌曲试听 我们真诚希望我们的音乐能带给你美妙的感受</asp:Label></P>
<P> </P>
</FONT>
</asp:Panel>
</form>
</body>
</HTML>
Public Class testrm
Inherits System.Web.UI.Page
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码 Dim mycon As New SqlConnection()
Dim mycmd As New SqlCommand()
Dim mydr As SqlDataReader
Dim myds As New DataSet()
mycon.ConnectionString = "server=localhost;uid=sa;pwd=sa;database=ly"
mycon.Open()
mycmd.Connection = mycon
mycmd.CommandType = CommandType.Text
mycmd.CommandText = "select * from music where id=" & Request.QueryString("ID")
mydr = mycmd.ExecuteReader()
While mydr.Read
Session("src") = Trim(mydr("music_path"))
Label1.Text = "歌词内容为:" & Trim(mydr("music_content"))
End While
mydr.Close()
mycon.Close()
End SubEnd Class
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>南京锐驰数码音乐</title>
<meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<TABLE id="Table1" style="Z-INDEX: 102; LEFT: 284px; WIDTH: 393px; POSITION: absolute; TOP: 124px; HEIGHT: 221px" cellSpacing="0" cellPadding="0" width="393" border="1">
<TR>
<TD><FONT face="宋体">
<asp:Label id="Label1" runat="server" Width="228px" Font-Size="12px">歌曲试听</asp:Label></FONT></TD>
</TR>
<TR>
<TD style="HEIGHT: 234px"><FONT face="宋体">
<asp:DataGrid id="DataGrid1" runat="server" Width="394px" Height="163px" BorderColor="#CC9966" BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="4" OnItemCreated="DataGrid1_ItemCreated" DataKeyField="id" AutoGenerateColumns="False">
<SelectedItemStyle Font-Bold="True" Wrap="False" ForeColor="#663399" BackColor="#FFCC66"></SelectedItemStyle>
<EditItemStyle Wrap="False"></EditItemStyle>
<AlternatingItemStyle Wrap="False"></AlternatingItemStyle>
<ItemStyle Font-Size="12px" Font-Names="宋体" Wrap="False" HorizontalAlign="Center" ForeColor="#330099" VerticalAlign="Middle" BackColor="White"></ItemStyle>
<HeaderStyle Font-Size="12px" Font-Names="宋体" Font-Bold="True" Wrap="False" ForeColor="#FFFFCC" BackColor="#990000"></HeaderStyle>
<FooterStyle Wrap="False" ForeColor="#330099" BackColor="#FFFFCC"></FooterStyle>
<Columns>
<asp:BoundColumn DataField="id" HeaderText="ID"></asp:BoundColumn>
<asp:BoundColumn DataField="music_name" HeaderText="歌名"></asp:BoundColumn>
<asp:BoundColumn DataField="music_person" HeaderText="歌手"></asp:BoundColumn>
<asp:BoundColumn DataField="music_content" HeaderText="歌曲内容"></asp:BoundColumn>
<asp:TemplateColumn HeaderText="点歌">
<HeaderStyle Width="1cm"></HeaderStyle>
<ItemTemplate>
<asp:Button id="btnopen" runat="server" BackColor="#FFE0C0" BorderStyle="None" Text="点歌" ForeColor="SeaGreen"></asp:Button>
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
<PagerStyle HorizontalAlign="Center" ForeColor="#330099" BackColor="#FFFFCC" Wrap="False"></PagerStyle>
</asp:DataGrid></FONT></TD>
</TR>
<TR>
<TD><FONT face="宋体"></FONT></TD>
</TR>
</TABLE>
</form>
</body>
</HTML>
SDK的时候 有demo的
if(!IsPostBack)
Response.Write("<bgsound src='test.wav' id='bgsTest' loop='1'>");
2.嵌入声音
<embed src='test.wav' id="wavTest" hidden="false" height="20" width="150" autostart="false" type="audio/wav" loop="true"></embed>
3作为ActiveX对象的声音