|
<?xml version="1.0" encoding="ISO-8859-1"?>
<countries>
<country>
<text>Thailand</text>
<value>T</value>
</country>
<country>
<text>Sweden</text>
<value>S</value>
</country>
<country>
<text>France</text>
<value>F</value>
</country>
<country>
<text>Italy</text>
<value>I</value>
</country>
</countries>
|
คุณสามารถดูเนื้อหาของไฟล์นี้ได้ที่
|
<%@ Import Namespace="System.Data" %>
|
|
<script runat="server">
Sub Page_Load
If Not Page.IsPostBack Then
Dim Mycdcatalog=New DataSet
Mycdcatalog.ReadXml(MapPath("countries.xml"))
End If
End Sub
|
<html>
<body>
<form runat="server">
<asp:RadioButtonList id="rb" runat="server" AutoPostBack="True" />
</form></body>
</html>
|
<%@ Import Namespace="System.Data" %>
<script runat="server">
sub Page_Load
if Not Page.IsPostBack then
dim mycountries=New DataSet
mycountries.ReadXml(MapPath("countries.xml"))
rb.DataSource=mycountries
rb.DataValueField="value"
rb.DataTextField="text"
rb.DataBind()
end if
end sub
sub displayMessage(s as Object,e As EventArgs)
lbl1.text="Your favorite country is: " & rb.SelectedItem.Text
end sub
</script>
<html>
<body>
<form runat="server">
<asp:RadioButtonList id="rb" runat="server" AutoPostBack="True" onSelectedIndexChanged="displayMessage" />
<p><%asp:label id="lbl1" runat="server" /></form>
</body>
</html>
|