1
Public Class WebForm1
2
Inherits System.Web.UI.Page
3
Public s As String
4
5
#Region " Web 窗体设计器生成的代码 "
6
7
'该调用是 Web 窗体设计器所必需的。
8
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
9
10
End Sub
11
Protected WithEvents btnPlayer As System.Web.UI.WebControls.Button
12
Protected WithEvents cblt As System.Web.UI.WebControls.CheckBoxList
13
14
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
15
'不要删除或移动它。
16
Private designerPlaceholderDeclaration As System.Object
17
18
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
19
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
20
'不要使用代码编辑器修改它。
21
InitializeComponent()
22
End Sub
23
24
#End Region
25
26
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
27
'在此处放置初始化页的用户代码
28
29
End Sub
30
31
Private Sub btnPlayer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayer.Click
32
Dim i As Integer
33
For i = 0 To cblt.Items.Count - 1
34
If cblt.Items(i).Selected = True Then
35
s = s & cblt.Items(i).Value & ","
36
End If
37
Next
38
s = Mid(s, 1, s.Length - 1)
39
End Sub
40
End Class

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

1
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="WenDaGroup.WebForm1"%>
2
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
3
<HTML>
4
<HEAD>
5
<title>WebForm1</title>
6
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
7
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
8
<meta name="vs_defaultClientScript" content="JavaScript">
9
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
10
</HEAD>
11
<body MS_POSITIONING="GridLayout">
12
<form id="Form1" method="post" runat="server">
13
<FONT face="宋体">
14
<TABLE id="Table1" style="Z-INDEX: 103; LEFT: 24px; POSITION: absolute; TOP: 40px" cellSpacing="0"
15
cellPadding="0" width="90%" align="center" border="0">
16
<TR>
17
<TD align="center">
18
<OBJECT id="mPlayer1" style="HEIGHT: 64px" type="application/x-oleobject" height="64" standby="Loading Windows Media Player components
"
19
width="80%" classid="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" VIEWASTEXT>
20
<PARAM NAME="URL" VALUE="http://www.91f.net/lianbo/91flb1_2.asp?lb=1&id=<%=s%>">
21
<PARAM NAME="rate" VALUE="1">
22
<PARAM NAME="balance" VALUE="0">
23
<PARAM NAME="currentPosition" VALUE="5.1377325">
24
<PARAM NAME="defaultFrame" VALUE="">
25
<PARAM NAME="playCount" VALUE="100">
26
<PARAM NAME="autoStart" VALUE="-1">
27
<PARAM NAME="currentMarker" VALUE="0">
28
<PARAM NAME="invokeURLs" VALUE="-1">
29
<PARAM NAME="baseURL" VALUE="">
30
<PARAM NAME="volume" VALUE="100">
31
<PARAM NAME="mute" VALUE="0">
32
<PARAM NAME="uiMode" VALUE="full">
33
<PARAM NAME="stretchToFit" VALUE="0">
34
<PARAM NAME="windowlessVideo" VALUE="-1">
35
<PARAM NAME="enabled" VALUE="-1">
36
<PARAM NAME="enableContextMenu" VALUE="0">
37
<PARAM NAME="fullScreen" VALUE="0">
38
<PARAM NAME="SAMIStyle" VALUE="">
39
<PARAM NAME="SAMILang" VALUE="">
40
<PARAM NAME="SAMIFilename" VALUE="">
41
<PARAM NAME="captioningID" VALUE="">
42
<PARAM NAME="enableErrorDialogs" VALUE="0">
43
<PARAM NAME="_cx" VALUE="12330">
44
<PARAM NAME="_cy" VALUE="1693">
45
</OBJECT>
46
</TD>
47
</TR>
48
<TR>
49
<TD align="right"><BR>
50
<asp:Button id="btnPlayer" runat="server" BorderStyle="Groove" Text="播放选定歌曲"></asp:Button><BR>
51
</TD>
52
</TR>
53
<TR>
54
<TD align="center">
55
<asp:CheckBoxList id="cblt" runat="server" RepeatDirection="Horizontal" RepeatColumns="5" Width="100%">
56
<asp:ListItem Value="5963726">哎呀</asp:ListItem>
57
<asp:ListItem Value="6671457">空气</asp:ListItem>
58
<asp:ListItem Value="8010839">野蛮游戏</asp:ListItem>
59
<asp:ListItem Value="2667961">一千年以后</asp:ListItem>
60
<asp:ListItem Value="2670511">酸酸甜甜就是我</asp:ListItem>
61
<asp:ListItem Value="6092606">童话</asp:ListItem>
62
<asp:ListItem Value="2682231">黄</asp:ListItem>
63
<asp:ListItem Value="2682341">亲爱的不要离开我</asp:ListItem>
64
<asp:ListItem Value="5433855">你到底爱谁</asp:ListItem>
65
<asp:ListItem Value="8181029">心中的日月</asp:ListItem>
66
<asp:ListItem Value="4168523">两极</asp:ListItem>
67
<asp:ListItem Value="5654355">喀什噶尔胡杨</asp:ListItem>
68
<asp:ListItem Value="4995004">两只蝴蝶</asp:ListItem>
69
<asp:ListItem Value="5031484">快乐崇拜</asp:ListItem>
70
<asp:ListItem Value="7346887">欧若拉</asp:ListItem>
71
<asp:ListItem Value="2764741">手放开</asp:ListItem>
72
<asp:ListItem Value="5892405">痛快</asp:ListItem>
73
</asp:CheckBoxList></TD>
74
</TR>
75
</TABLE>
76
</FONT>
77
</form>
78
</body>
79
</HTML>
80

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18


19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80
