sub page_load
if not page.ispostback then
dim urls = new sortedlist()
urls.add("google", "http://www.google.com")
urls.add("msn", "http://search.msn.com")
urls.add("yahoo", "http://www.yahoo.com")
urls.add("lycos", "http://www.lycos.com")
urls.add("altavista", "http://www.altavista.com")
urls.add("excite", "http://www.excite.com")
-- bind sortedlist to controls
radiobuttons.datasource = urls
radiobuttons.datatextfield = "key"
radiobuttons.datavaluefield = "value"
radiobuttons.databind()
checkboxes.datasource = urls
checkboxes.datatextfield = "key"
checkboxes.datavaluefield = "value"
checkboxes.databind()
dropdownlist.datasource = urls
dropdownlist.datatextfield = "key"
dropdownlist.datavaluefield = "value"
dropdownlist.databind()
listbox.datasource = urls
listbox.datatextfield = "key"
listbox.datavaluefield = "value"
listbox.databind()
end if
end sub
</script>
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
