<script language="vbscript" runat="server">
Sub Enter_Click(ByVal s As Object, ByVal e As EventArgs)
Dim Sports(2) As String
Sports(0) = Sport1.Text
Sports(1) = Sport2.Text
Session("Sports") = Sports
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TextBox ID="Sport1" runat="server"></asp:TextBox>
<asp:TextBox ID="Sport2" runat="server"></asp:TextBox>
<asp:Button ID="Enter" runat="server" OnClick="Enter_Click" Text="OK" />
</div>
</form>
</body>
</html>
Sub Enter_Click(ByVal s As Object, ByVal e As EventArgs)
Dim Sports(2) As String
Sports(0) = Sport1.Text
Sports(1) = Sport2.Text
Session("Sports") = Sports
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TextBox ID="Sport1" runat="server"></asp:TextBox>
<asp:TextBox ID="Sport2" runat="server"></asp:TextBox>
<asp:Button ID="Enter" runat="server" OnClick="Enter_Click" Text="OK" />
</div>
</form>
</body>
</html>
