原作：不详

完善：大鼹鼠

再完善：塞北的雪

但是现在还不能对一个没有记录的xml进行操作。但是会提示空。
另外做完一个删除操作后，如果刷新也会出错，因为我对vb.net不是很熟，所以改的不知道怎么样？
<%@page Language="VB" runat="server" responseEncoding="utf-8"%> 
<%@ Import NameSpace="System.Data" %> 
<%@ Import NameSpace="System.IO" %> 
<%@ import Namespace="System.Xml" %> 
<script Language="VB" runat="server" > 
'原来responseEncoding=gb2312 然而通过更新操作的汉字就会将乱码保存到xml文件中
'改成responseEncoding=utf-8  就没有问题了。
Sub Page_Load(sender As Object,E As EventArgs) 
if Not Page.IsPostBack then 
EventDate.DataSource = LoadMyConfigdata 
if intRecordCount> 0 then
EventDate.DataBind() 
    else
        Response.Write("这是一个空XML文件")
        Response.End()
end if
        end if 

End Sub 
Private intRecordCount As Integer 
Protected Function LoadMyConfigdata() As DataSet 
Dim sourceXML as String = server.MapPath("lzdata.xml") 
if (Not File.Exists(sourceXML)) then 
Return Nothing 
end if 
Dim doc As New XmlDocument() 
doc.Load(SourceXML) 
intRecordCount=doc.selectNodes("//groups").Count 

Dim cachedDataSet as DataSet = Session("MyConfigData1") 
if (Not cachedDataSet is Nothing) Then 
Return cachedDataSet 
end if 
Dim dataSet as DataSet = New DataSet() 
    
try  
dataSet.ReadXml(SourceXML) 

Session("MyConfigData1")=dataSet 

catch e As Exception 

ErrorMessage.Text = e.Message 
dataSet=Nothing 
end try 

Return dataSet 

End Function 

Sub DEDR_Edit(Sender As Object,E as DataGridCommandEventArgs) 

EventDate.EditItemIndex = Cint(E.Item.ItemIndex) 
EventDate.DataSource = LoadMyConfigData 
EventDate.DataBind() 

End Sub 

Sub DEDR_Update(Sender As Object,E as DataGridCommandEventArgs) 

Dim dataSet As DataSet = LoadMyConfigData 
Dim P1 As Integer=EventDate.CurrentPageIndex  '获得页数     （页数是从0开始的）
Dim Row1 As Integer = Cint(e.Item.ItemIndex)  '获得发生事件的行数 （从0开始的）
Dim row As Integer 
Dim EditText As TextBox 

row = P1* EventDate.PageSize +Row1 
EditText=E.Item.FindControl("txtTitle")       '获得数据采集文本框
dataSet.Tables(0).Rows(row).Item("Title") = Trim(EditText.Text) 
EditText=E.Item.FindControl("txtFolder") 
dataSet.Tables(0).Rows(row).Item("Folder") = Trim(EditText.Text) 
EditText=E.Item.FindControl("txtFolderimg") 
dataSet.Tables(0).Rows(row).Item("Folderimg") = Trim(EditText.Text) 
EditText=E.Item.FindControl("txtName") 
dataSet.Tables(0).Rows(row).Item("Name") = EditText.Text 
dataSet.WriteXml(server.MapPath("lzdata.xml")) 

Session("MyConfigData1")=Nothing 
EventDate.EditItemIndex= -1 
EventDate.DataSource = LoadMyConfigData 
EventDate.DataBind() 

End Sub 

Sub DEDR_Cancel(Sender As Object,E as DataGridCommandEventArgs) 
EventDate.EditItemIndex= -1 
Session("MyConfigData1")=Nothing 
EventDate.DataSource = LoadMyConfigData 
EventDate.DataBind() 

End Sub 

Sub DEDR_Delete(Sender As Object,E as DataGridCommandEventArgs) 
Dim dataSet As DataSet = LoadMyConfigData 
Dim Row1 As Integer = Cint(e.Item.ItemIndex) 
Dim P1 As Integer=EventDate.CurrentPageIndex 
Dim row As Integer 
if (intRecordCount mod EventDate.PageSize)=1 and Row1=0 then 
    'response.write ("<script>alert('每页只剩一个记录时不能删除,请到上一页删除，或在该页添加一个新记录再删除！')</" & "script>") 
       row = P1* EventDate.PageSize +Row1 
dataSet.Tables(0).Rows(row).Delete 
dataSet.WriteXml(server.MapPath("lzdata.xml")) 

Session("MyConfigData1")=Nothing 
EventDate.EditItemIndex= -1 
        if EventDate.CurrentPageIndex>0 then 
           EventDate.CurrentPageIndex=EventDate.CurrentPageIndex-1
           EventDate.DataSource = LoadMyConfigData 
   EventDate.DataBind() 
else
   Response.Write("Xml已经被删空了")
   Response.End()
        end if

else 
row = P1* EventDate.PageSize +Row1 
dataSet.Tables(0).Rows(row).Delete 
dataSet.WriteXml(server.MapPath("lzdata.xml")) 

Session("MyConfigData1")=Nothing 
EventDate.EditItemIndex= -1 

EventDate.DataSource = LoadMyConfigData 
EventDate.DataBind() 
end if 
End Sub 


Sub DEDR_Add(Sender As Object,E as EventArgs) 
Dim dataSet As DataSet = LoadMyConfigData 
Dim newRow As DataRow                                '建立一个新行
newRow=dataSet.Tables(0).NewRow() 
newRow.Item("EventDate")=Now() '"15/07/2001" 
newRow.Item("Title")="讨论和解决" 
newRow.Item("Folder")="group" 
newRow.Item("Folderimg")="images/BigMolefolder.gif " 
newRow.Item("Name")="技术" 
dataSet.Tables(0).Rows.Add(newRow)                   '将行添加到当前的dataset中

dataSet.WriteXml(server.MapPath("lzdata.xml"))       '将dataset写到xml文件中
Session("MyConfigData1")=Nothing 
EventDate.DataSource = LoadMyConfigData 
EventDate.DataBind() 
'每次都至多有一行被置为编辑行，编辑行显示的就是列中的 EditItemTemplate
dim ps as Integer=intRecordCount    '记录数
EventDate.CurrentPageIndex=Math.Ceiling(ps/EventDate.PageSize)-1  '设定当前显示最后一页
dim tmpInt as Integer=ps-Math.Floor(ps/EventDate.PageSize)*EventDate.PageSize
if tmpInt=0 then tmpInt=EventDate.PageSize
EventDate.EditItemIndex= tmpInt - 1   '设置显示EditItemTemplate的行号
EventDate.DataSource = LoadMyConfigData 
EventDate.DataBind() 

End Sub 
'翻页时  
Sub DEDR_Changed(sender As Object,e As DataGridPageChangedEventArgs)  
EventDate.EditItemIndex=-1
EventDate.CurrentPageIndex = e.NewPageIndex  
EventDate.DataSource = Session("MyConfigData1") 
EventDate.DataBind() 
End Sub 


</script> 
<HTML> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 
<BODY> 
<% '下面的列设置中，每一个 TemplateColumn中都有 ItemTemplate 和 EditItemTemplate两种 可以
'通过代码控制显示哪一种 %>
<form runat="server"> 
<asp:Label id="errorMessage" runat="server"/><br/> 
<asp:LinkButton OnClick="DEDR_Add" Text="添加新记录" runat="server"/><br/> 
<asp:DataGrid id="EventDate"
AutoGenerateColumns="false" width="100%" runat="server"
AllowPaging="True"
PageSize="15"
PagerStyle-Mode="NumericPages"
PagerStyle-HorizontalAlign="Right"
PagerStyle-PrevPageText="前页"
PagerStyle-NextPageText="后页"
OnPageIndexChanged="DEDR_Changed"
OnEditCommand="DEDR_Edit"
OnUpdateCommand="DEDR_Update"
OnCancelCommand="DEDR_Cancel"
OnDeleteCommand="DEDR_Delete"> 
<HeaderStyle ForeColor="white" BackColor="DodgerBlue"
Font-Bold="true"/> 
<ItemStyle BackColor="white"/> 
<AlternatingItemStyle BackColor="Gainsboro"/> 

<Columns> 
<asp:TemplateColumn HeaderText="栏目描述"> 
<ItemTemplate> 
<%# Container.DataItem("Title")%> 
</ItemTemplate> 
<EditItemTemplate> 
<asp:TextBox id="txtTitle" size="25"
Text='<%# Container.DataItem("Title")%>'  
runat="server"/> 
</EditItemTemplate> 
</asp:TemplateColumn> 

<asp:TemplateColumn HeaderText="栏目文件目录"> 
<ItemTemplate> 
<%# Container.DataItem("Folder")%> 
</ItemTemplate> 
<EditItemTemplate> 
<asp:TextBox id="txtFolder" size="14"
Text='<%# Container.DataItem("Folder")%>'  
runat="server"/> 
</EditItemTemplate> 
</asp:TemplateColumn> 

<asp:TemplateColumn HeaderText="栏目图标"> 
<ItemTemplate> 
<%# Container.DataItem("Folderimg")%> 
</ItemTemplate> 
<EditItemTemplate> 
<asp:TextBox id="txtFolderimg" size="24"
Text='<%# Container.DataItem("Folderimg")%>'  
runat="server"/> 
</EditItemTemplate> 
</asp:TemplateColumn> 

<asp:TemplateColumn HeaderText="栏目名称"> 
<ItemTemplate> 
<%# Container.DataItem("Name")%> 
</ItemTemplate> 
<EditItemTemplate> 
<asp:TextBox id="txtName" size="15"
Text='<%# Container.DataItem("Name")%>'  
runat="server"/> 
</EditItemTemplate> 
</asp:TemplateColumn> 

<asp:TemplateColumn HeaderText="操作"> 
<ItemTemplate> 
<asp:LinkButton CommandName="Edit" Text="编辑"
runat="server"/> 
<asp:LinkButton CommandName="Delete" Text="删除"
runat="server"/> 
</ItemTemplate> 

<EditItemTemplate> 
<asp:LinkButton CommandName="Cancel" Text="取消"
runat="server"/> 
<asp:LinkButton CommandName="Update" Text="更新"
runat="server"/> 
</EditItemTemplate> 
</asp:TemplateColumn> 

</Columns> 
</asp:DataGrid> 
</form> 
<!--
列中的 几个linkButton 的 CommandName 可以取 Edit,Delete,Cancel,Update 这个名字不能乱取
他和DataGrid的 onEditCommand onUpdateCommand onDeleteCommand onCancelCommand 是相对应的
-->
</BODY>