.net xmlDocument load

最新推荐文章于 2019-08-25 15:19:22 发布

jovigu

最新推荐文章于 2019-08-25 15:19:22 发布

阅读量665

点赞数

分类专栏： .NET 文章标签： .net exception xml

本文链接：https://blog.csdn.net/jovigu/article/details/1728447

版权

.NET 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

   Dim objXML As XmlDocument = New XmlDocument()
   Dim objNodeList As XmlNodeList

Try

     sProcess = "Load XML"
     objXML.Load(Request.InputStream)

     Response.StatusCode = 200
     'Response.StatusDescription = "OK"
     'Response.ContentType = "text/xml"
     objNodeList = objXML.SelectNodes("/user")

     sUserWonEmail = objNodeList.Item(0).Attributes.GetNamedItem("txtUseremail").Value
     sUserName = objNodeList.Item(0).Attributes.GetNamedItem("txtUserwonname").Value
     sUserEmail = objNodeList.Item(0).Attributes.GetNamedItem("txtUserwonemail").Value
     sUserIDCard = objNodeList.Item(0).Attributes.GetNamedItem("txtUserwonidcard").Value

     Try
      MailFrom = "admin@mydomain.com"
      MailFromUser = "admin"
      Bcc = sUserEmail
      MailToUser = sUserName

      if request("lang") = "cn" then
      objStreamReader = File.OpenText(Server.MapPath("Xmas/notice_cn.htm"))
      else
      objStreamReader = File.OpenText(Server.MapPath("Xmas/notice_en.htm"))
      end if
      Body = Replace(objStreamReader.ReadToEnd, "{{mainHost}}", mainHost)
      Body = Replace(Body, "{{MailToUser}}", MailToUser)
      objStreamReader.Close()

      Subject = "your Christmas prize inform."
      objBodyFormat = MailFormat.Html

      'SendMail(MailFrom, MailTo, "", Bcc, MailPriority.Normal, Subject, objBodyFormat, System.Text.Encoding.UTF8, Body, "", SMTPServer, SMTPAuthentication, SMTPUsername, SMTPPassword)

     Catch ex As Exception
      Response.Write("E-mail to " & MailTo & " wasn't sent.<br> Error:" & ex.toString )
     End Try

    Catch ex As System.Xml.XmlException
     Response.StatusCode = 500
     Response.StatusDescription = "Process: " & sProcess & " - " & ex.Message
     Response.ContentType = "text/plain"
     Response.Write("HTTP Error " & CStr(Response.StatusCode) & ": Process: " & sProcess & " - " & ex.Message)
     Response.End

    Finally
     objXML = Nothing
    End Try