这是全篇代码
<form runat="server">
<BR>
<asp:label id="lbla" runat=server text="olkjdf" />
<asp:dropdownlist id="songlist" runat=server  OnSelectedIndexChanged="changsong"  style="font-size:9pt"/>
</form>
<script runat=server>
sub page_load(sender as object,e as eventargs)
dim i as short
dim lia as listitem
for i=1 to 12
lia=new listitem(i.tostring &"month")
songlist.items.add(lia)
next
end sub
sub changsong(sender as object,e as eventargs)
lbla.text=songlist.selecteditem.text
end sub
</script>
不知道为什么点了选项后不起作用!