一个操作datagrid绑定xml文件的例子程序

一个操作datagrid绑定xml文件的例子程序(1)

原作：不详

完善：大鼹鼠

再完善：塞北的雪

但是现在还不能对一个没有记录的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