If TextBox1.Text = "" Then
MsgBox("滚动公告信息不能为空。", MsgBoxStyle.Information, "提示")
Exit Sub
Else
Dim mssqla As String
mssqla = "Activitie title='"
mssqla = mssqla + TextBox1.Text
mssqla = mssqla + "'"
Try
Dim XmlWrite As System.Xml.XmlTextWriter = New System.Xml.XmlTextWriter("E:\flashgame\game\top.xml", System.Text.Encoding.UTF8)
XmlWrite.WriteStartDocument() '开始一个文档
XmlWrite.WriteStartElement("Activities")
XmlWrite.WriteStartElement(mssqla) '开始一个元素,根元素
XmlWrite.WriteEndElement() '关闭元素root
XmlWrite.WriteEndDocument() '文档结束
XmlWrite.Flush() '刷新
XmlWrite.Close() '关闭
Catch ex As Exception
End Try
MsgBox("滚动公告保存成功!", MsgBoxStyle.Information, "提示")
End If
MsgBox("滚动公告信息不能为空。", MsgBoxStyle.Information, "提示")
Exit Sub
Else
Dim mssqla As String
mssqla = "Activitie title='"
mssqla = mssqla + TextBox1.Text
mssqla = mssqla + "'"
Try
Dim XmlWrite As System.Xml.XmlTextWriter = New System.Xml.XmlTextWriter("E:\flashgame\game\top.xml", System.Text.Encoding.UTF8)
XmlWrite.WriteStartDocument() '开始一个文档
XmlWrite.WriteStartElement("Activities")
XmlWrite.WriteStartElement(mssqla) '开始一个元素,根元素
XmlWrite.WriteEndElement() '关闭元素root
XmlWrite.WriteEndDocument() '文档结束
XmlWrite.Flush() '刷新
XmlWrite.Close() '关闭
Catch ex As Exception
End Try
MsgBox("滚动公告保存成功!", MsgBoxStyle.Information, "提示")
End If