找了一段代码操作web.config:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
logo.Title = "服务器配置"
dtstConfig = Session("dtstConfig")
If dtstConfig Is Nothing Then
dtstConfig = New DataSet()
dtstConfig.ReadXml(MapPath("Web.Config"))
Session("dtstConfig") = dtstConfig
End If
If Not IsPostBack Then
GridDataBind()
End If
'Response.Write(SystemFramework.ApplicationConfiguration.CancelOrderPrintLines())
End Sub
Sub GridDataBind()
dgrdConfig.DataSource = dtstConfig.Tables("Add")
dgrdConfig.DataBind()
End Sub
Private Sub dgrdConfig_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgrdConfig.EditCommand
dgrdConfig.EditItemIndex = e.Item.DataSetIndex
GridDataBind()
End Sub
Private Sub dgrdConfig_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgrdConfig.CancelCommand
dgrdConfig.EditItemIndex = -1
GridDataBind()
End Sub
Private Sub dgrdConfig_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgrdConfig.UpdateCommand
Dim txtCurrent As TextBox
Dim strValue As String
txtCurrent = e.Item.FindControl("txtValue")
strValue = txtCurrent.Text
dtstConfig.Tables("Add").Rows(e.Item.DataSetIndex).Item("Value") = Trim(txtCurrent.Text)
dtstConfig.AcceptChanges()
Session("dtstConfig") = dtstConfig
dgrdConfig.EditItemIndex = -1
GridDataBind()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
dtstConfig.WriteXml(MapPath("Web.Config"))
End Sub
End Class