我想为我的网站创建一个网站地图，并且决定XML是从维基百科可以看到的搜索引擎的最佳格式。随着我在网络上发现的其他一些文章，我可以看到下面的代码。它应该可以无缝集成到一个包含在robots.txt文件中的应用程序中。
Imports System.Data.SqlClient
Imports System.Xml
Imports System.Data
Imports System.Data.Sql
Partial Class SiteMap
Inherits System.Web.UI.Page
Dim con As New SqlConnection("{YourSQLConnection}")
Private SubLoadFeed() Handles Me.Load
Dim d As DateTime = DateTime.Now
Response.Clear()
Response.ContentType = "text/xml"
Dim xtwFeed As XmlTextWriter = NewXmlTextWriter(Response.OutputStream, Encoding.UTF8)
xtwFeed.WriartDocument()
xtwFeed.WriartElement("urlset")
xtwFeed.WriteAttriburing("xmlns","https://www.sitemaps.org/schemas/sitemap/0.9")
xtwFeed.WriartElement("url")
xtwFeed.WriteElementString("loc","https://www.domain.com/Home/")
xtwFeed.WriteElementString("lastmod",String.Concat(d.ToString("yyyy-MM-dd")))
xtwFeed.WriteElementString("changefreq","monthly") 'always, hourly, daily, weekly, monthly, yearly, never
xtwFeed.WriteElementString("priority","1")
xtwFeed.WriteEndElement()
xtwFeed.WriteElementString("loc","https://www.domain.com/About/")
xtwFeed.WriteElementString("changefreq","monthly")
xtwFeed.WriteElementString("loc","https://www.domain.com/Blog/")
xtwFeed.WriteElementString("loc","https://www.domain.com/WebDesign/")
xtwFeed.WriteElementString("priority", "1")
Dim com As New SqlCommand("SELECT{YourLoc},{YourDateMod},{YourChangeFreq},{YourPriority} FROM{YourDatabase}", con)
con.Open()
Dim dr = com.ExecuteReader
While dr.Read
xtwFeed.WriteElementString("loc","https://www.domain.com/Articles/afdasf/"+ dr.Item(0).ToString) 'OR full URL from yourdatabase!
xtwFeed.WriteElementString("lastmod",String.Concat(dr.Item(1).ToString("yyyy-MM-dd"))) 'ISO1806format date.
xtwFeed.WriteElementString("changefreq","monthly") 'Or dr.Item(2).ToString
xtwFeed.WriteElementString("priority","0.5") 'Ordr.Item(3).ToString
End While
dr.Close()
con.Close()
xtwFeed.Flush()
xtwFeed.Close()
Response.End()
End Sub
End Class
