در اين مقاله سعی دارم که نحوه نوشتن در XML و خواندن از آن را شرح دهم. برای مثال ما يك وبلاگ داريم که اطلاعات را از بانک اطلاعاتی Access می خواند. ولی من برای اينکه همين اطلاعات را در يک فايل XML هم داشته باشم اين کد را به Load صفحه اضافه کردم:
Dim DS As New DataSet()
Dim strConnect As New OleDbConnection(ConfigurationSettings.AppSettings(“datasource”))
Dim objSQLAdapter As New OleDbDataAdapter(“SELECT * from blog order by id DESC”, strConnect)
objSQLAdapter.Fill(DS, “blog”)
Dim doc As XmlDataDocument = New XmlDataDocument(DS)
Dim writer As XmlTextWriter = New XmlTextWriter(“D:\www\weblog\weblog.xml”, Nothnig)
writer.Formatting = Formatting.Indented
doc.Save(writer)
در اين کد با استفاده از شئ DataSet، اطلاعات را از جدول مورد نظر بانک اطلاعاتی خود می خوانيم و آن را در يک فايل XML به نام weblog.xml ذخيره می کنيم. اگر اين کد را اجرا کنيم يک فايل XML ايجاد می شود و هر وقت صفحه اول اجرا شود فايل XML رونويسی می شود.
اما حالا يک فايل XML داريم و می خواهيم از آن استفاده کنيم. مخصوصا استفاده از XML برای سايت های خبری يا وبلاگ ها بسيار مناسب است. مثلا فرض کنيد که می خواهيم خبرهای موجود در يک سايت ديگر که به شکل XML ارائه می شوند (مانند RSS) را در سايت خودمان نمايش دهيم. برای اين کار ابتدا يک فايل ASPX ايجاد کنيد و اين کد را در قسمت Design يا همان HTML آن بنويسيد.
<asp:DataList id=”theDataList” runat=”server” Width=”100%” dir=rtl CssClass=text>
<ItemTemplate>
تاريخ :<%# DataBinder.Eval(Container.DataItem, “news_date”) %><br>
عنوان : <%# DataBinder.Eval(Container.DataItem, news_title”) %><br><br>
<%# DataBinder.Eval(Container.DataItem, “news_body”) %><br>
<hr>
</ItemTemplate>
</asp:DataList>
ما در اينجا يک کنترل DataList ايجاد کرديم و مقادير مورد نظر را در آن نوشتيم. حالا کدی که در Load اين صفحه بايد بنويسيم به اين شکل خواهد بود:
Dim ds As New DataSet()
ds.ReadXml(“d:\www\weblog\weblog.xml”, XmlReadMode.Auto)
theDataList.DataSource = ds
theDataList.DataBind()
اگر اين صفحه را اجرا کنيد تمام فيلدهای XML در اين فايل ASP.NET نمايش داده خواهد شد. در مثال بالا از يک فايل XML موجود بر روی ديسک استفاده شده است حال آنکه می توانيم بجای اين آدرس محلی از يک آدرس موجود در وب که همان آدرس سايت مورد نظر است استفاده کنيم. مثلا اگر بخواهيد اخبار سايت مورد نظر را در سايت خود نمايش دهيد کافی است اينگونه عمل کنيد: :
Dim ds As New DataSet()
ds.ReadXml(“http://www.website.com/weblog.xml”,XmlReadMode.Auto)
theDataList.DataSource = ds
theDataList.DataBind
منبع : aspcode.ir
