我有一个邮件申请.在发送给每个收件人时,我正在写一个名为mail.xml的XML文件.我使用以下代码:
Dim from As String = txtFrom.Text
Dim txto As String = txtTo.Text
Dim subj As String = txtSubject.Text
Dim body As String = txtBody.Text
Dim settings As New XmlWriterSettings()
settings.Indent = True
settings.NewLineOnAttributes = True
Using writer As XmlWriter = XmlWriter.Create("C:\xmlmailfile.xml", settings)
writer.WriteStartDocument()
writer.WriteStartElement("EMail")
writer.WriteStartElement("From")
writer.WriteStartAttribute("From")
writer.WriteValue(from)
writer.WriteEndAttribute()
writer.WriteStartElement("To")
writer.WriteStartAttribute("To")
writer.WriteValue(txto)
writer.WriteEndAttribute()
writer.WriteStartElement("Subject")
writer.WriteStartAttribute("Subject")
writer.WriteValue(subj)
writer.WriteEndAttribute()
writer.WriteStartElement("Body")
writer.WriteStartAttribute("Body")
writer.WriteValue(body)
writer.WriteEndAttribute()
writer.WriteEndElement()
writer.WriteEndDocument()
writer.Flush()
End Using
Run Code Online (Sandbox Code Playgroud)
输出是:
<?xml version="1.0" encoding="utf-8" ?>
<EMail>
<From From="abc@xyz.com">
<To To="def@pqr.com">
<Subject Subject="Hi">
<Body Body="Hello" …Run Code Online (Sandbox Code Playgroud) 以下是在xml文件中插入新节点的代码.
Dim fleStream As New FileStream("C:\mailing.xml", FileMode.Append, FileAccess.Write,FileShare.ReadWrite)
Dim stmWriter As New StreamWriter(fleStream)
Dim writer As New XmlTextWriter(stmWriter)
Dim currNode As XmlNode
Dim doc As New XmlDocument
doc.LoadXml(("<XMLFile>" + " <EMail></EMail>" + "</XMLFile>"))
'doc.Load("C:\mailing.xml") '
Dim docFrag As XmlDocumentFragment = doc.CreateDocumentFragment()
docFrag.InnerXml = "<From><Address>" + txtFrom.Text + " </Address></From>"
currNode = doc.DocumentElement.FirstChild.AppendChild(docFrag)
currNode.InsertAfter(docFrag, currNode.LastChild)
docFrag.InnerXml = "<Receipient> <To>" + txtTo.Text + " </To></Receipient>"
currNode = doc.DocumentElement.FirstChild.FirstChild.AppendChild(docFrag)
currNode.InsertAfter(docFrag, currNode.LastChild)
docFrag.InnerXml = "<Subject>" + txtSubject.Text + "</Subject>"
currNode = doc.DocumentElement.FirstChild.AppendChild(docFrag)
currNode.InsertAfter(docFrag, currNode.LastChild) …Run Code Online (Sandbox Code Playgroud) 我有一个文本框.在其onclick iam中调用javascript fn来调用calendar.Texbox是readonly.单击文本框日历即将到来,值将显示在文本框中.但是点击提交按钮,我已经编写了代码保存,我没有在文本框中获得价值.可能是什么原因?
我已经开始将我的Web应用程序作为网站.我在其中调用JavaScript.问题在于脚本:第一次,脚本在调试时正在工作,但是如果我对脚本进行任何修改然后尝试调试它,则控制将移动到旧行而不是新行.我试图重建,但仍然得到相同的结果.
这可能是什么原因?
我在表中有一个名为'CreatedDate'的字段.它包含值为2009-12-07 11:02:20.890.我的搜索参数是createdate.Parameter包含值为2009-12-07.我的参数只包含datepart.如果我的参数仅包含2009-12-07其未给出的结果.仅当时间包括其给定结果.我的查询是从STD_Enquiry选择*,其中CreatedDate ='2009-12-07任何人都可以给出适当的查询来获得结果吗?
可能重复:
禁用浏览器上的"返回"按钮
嗨伙计们,我需要禁用浏览器窗口的后退按钮.当我点击后退按钮时,我需要使用警报或其他方式显示一条消息.任何人都可以帮助我