请问错在哪里了?
jshao 2009-04-13 05:30:37 <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<script language="vb" runat="server">
sub change(sender as object,e as eventargs)
dim i as integer
label1.text="您选择了:"
for i = 0 to dropdownlist1.items.count-1
if dropdownlist1.items(i).selected then
label1.text=label1.text & dropdownlist1.items(i).text
end if
next
end sub
</script>
<body>
<form runat="server">
<asp:DropDownList ID="DropDownList1" AutoPostBack="true" runat="server" BackColor="#00CCCC" Width="200" OnSelectedIndexChanged="change" >
<asp:ListItem Text="北京" runat="server">北京</asp:ListItem>
<asp:ListItem Text="上海" runat="server">上海</asp:ListItem>
<asp:ListItem Text="广州" runat="server">广州</asp:ListItem>
</asp:DropDownList>
<P>
<asp:label id="label1" runat="server"/>
</form>
</body>
</html>