一个数据库网站,首页,二级页面,显示页面 名称地址都保存在数据库里面!!!整个网站用一个sitemappath ,因为二级页面,显示页面要动态添加删除,数据库要更新!如何实现 自动 更新 web.sitemap ?
解决方案 »
- 使用webServices回调怎么不出效果?
- textbox的相关问题
- 关于利用短信查询网站信息的方案
- Select为什么无法触发onChange事件
- 最近项目中遇到的一些问题
- 一个奇怪的问题。求助
- DataList绑定Image且引入超链接传值应该怎么做啊 ?
- javascipt执行后台代码查询数据,查询文本框内容改变,如何不移出文本框焦点,输入内容可以继续执行后台代码,查询数据
- 急了,请问大家,一个页面传值的问题?
- 我做好的ASPX网站在服务器上不能运行,请问是怎么回事儿,提示在帖子里面!!请高手帮我看看,急!!!
- 在vs2005版本下,发布成功后,页面上的汉字却是乱码,请问大家该如何解决??急急急呀!!!!
- 我想用Response.Redirect传递两个参数,该用什么分隔?逗号,空格,还是& ?
不过多人使用会有问题.看能不能用代码修改与之绑定的DATASOURCE.
Dim ojba As XmlDocument = New XmlDataDocument
ojba.Load(HttpContext.Current.Server.MapPath("~/Web.sitemap"))
CreateMenuXmlFile(0, ojba)
ojba.Save(HttpContext.Current.Server.MapPath("~/Web.sitemap")) End Sub
''lz,以下代码只是一个函数,想做什么你自己做。
''创建 xml树的方法
Public Sub CreateMenuXmlFile(ByVal ParentID As Int32, ByRef xmlDom As XmlDocument)
Dim nodeAttr As XmlAttribute
'*********************************************
'建立一级子节点
'*********************************************
Dim childNode As XmlNode '++++++++++++++++++++++++++
'从数据据获取数据
'++++++++++++++++++++++++++
Dim myReader As SqlDataReader myReader = CType(SqlHelper.ExecuteReader(ConnectionString, System.Data.CommandType.StoredProcedure, "GetTabsByParentId", New SqlParameter("@ParentID", ParentID)), SqlDataReader)
If myReader.HasRows() Then
While myReader.Read() childNode = xmlDom.CreateElement("siteMapNode")
'添加子节点属性
nodeAttr = xmlDom.CreateAttribute("title")
nodeAttr.Value = Trim(myReader.Item("TabName"))
childNode.Attributes.Append(nodeAttr) nodeAttr = xmlDom.CreateAttribute("url")
nodeAttr.Value = "ShowTabs.aspx?tabid=" + Convert.ToString(myReader.Item("tabid")) childNode.Attributes.Append(nodeAttr) nodeAttr = xmlDom.CreateAttribute("description")
nodeAttr.Value = Convert.ToString(myReader.Item("Description"))
childNode.Attributes.Append(nodeAttr)
Dim rootNode As XmlNode = SelectNode(xmlDom, ParentID)
'todo why添加子节点sitmap
If childNode Is Nothing Or rootNode Is Nothing Then
Else rootNode.AppendChild(childNode)
End If CreateMenuXmlFile(myReader.Item("TabID"), xmlDom)
'增加子节点
End While
End If '返回xmlDom End Sub