代码编辑器：
1
<%@ Import Namespace="System.Data" %>2
<script runat="server">3
sub Page_Load4
if Not Page.IsPostBack then5
dim mycdcatalog=New DataSet6
mycdcatalog.ReadXml(MapPath("cdcatalog.xml"))7
cdcatalog.DataSource=mycdcatalog8
cdcatalog.DataBind()9
end if10
end sub11
</script>12
<!DOCTYPE html>13
<meta charset="utf-8" />14
<form runat="server">15
<asp:DataList id="cdcatalog" 16
runat="server" 17
cellpadding="2" 18
cellspacing="2"