1
Public Class WebForm1Class WebForm1
2
Inherits System.Web.UI.Page
3 Public s As String
4
5
Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 "
6
7 '该调用是 Web 窗体设计器所必需的。
8 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()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()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()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()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
Public Class WebForm1Class WebForm12
Inherits System.Web.UI.Page3
Public s As String4
5
Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 "6
7
'该调用是 Web 窗体设计器所必需的。8
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()9
10
End Sub11
Protected WithEvents btnPlayer As System.Web.UI.WebControls.Button12
Protected WithEvents cblt As System.Web.UI.WebControls.CheckBoxList13
14
'注意: 以下占位符声明是 Web 窗体设计器所必需的。15
'不要删除或移动它。16
Private designerPlaceholderDeclaration As System.Object17
18
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init19
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的20
'不要使用代码编辑器修改它。21
InitializeComponent()22
End Sub23
24
#End Region25
26
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load27
'在此处放置初始化页的用户代码28
29
End Sub30
31
Private Sub btnPlayer_Click()Sub btnPlayer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayer.Click32
Dim i As Integer33
For i = 0 To cblt.Items.Count - 134
If cblt.Items(i).Selected = True Then35
s = s & cblt.Items(i).Value & ","36
End If37
Next38
s = Mid(s, 1, s.Length - 1)39
End Sub40
End Class
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
<%@ 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