Dragonlord
Gebruiker
- Lid geworden
- 26 sep 2006
- Berichten
- 163
ik wil een graag een een script maken in ASP dat het volgende doet,
1: hij leest een XML bestand in.
2: Een haalt bepaalde data uit de XML bestand en verstuurt naar het MSSQL data base.
ik heb punt 1 voor elkaar gekregen, maar vraag is als jullie me tenminste kunnen helpen hoe ik punt 2 voor elkaar krijg.
als vast bedankt als je jullie me kunne helpen
hieronder ga een code plaatsen die ik gemaakt heb met hulp van de internet.
ASP.net code.
1: hij leest een XML bestand in.
2: Een haalt bepaalde data uit de XML bestand en verstuurt naar het MSSQL data base.
ik heb punt 1 voor elkaar gekregen, maar vraag is als jullie me tenminste kunnen helpen hoe ik punt 2 voor elkaar krijg.
als vast bedankt als je jullie me kunne helpen
hieronder ga een code plaatsen die ik gemaakt heb met hulp van de internet.
ASP.net code.
Code:
<%@ Page language="vb"%>
<%@ Import Namespace="System.XML" %>
<html><head>
<script language="VB" runat="server" ID=Script1>
Sub btnReadXML_OnClick(ByVal sender As Object, ByVal e As EventArgs)
'Read and display existing file
ReadXML(Server.MapPath("P281.xml"))
End Sub
Sub btnWriteXML_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim enc As Encoding
'Create file, overwrite if exists
'enc is encoding object required by constructor
'It is null, so default encoding is used
Dim objXMLTW As New XmlTextWriter(Server.MapPath("applicant.xml"), enc)
objXMLTW.WriteStartDocument()
'Top level (Parent element)
objXMLTW.WriteStartElement("Applicant")
'Child elements, from request form
objXMLTW.WriteStartElement("Name")
objXMLTW.WriteString(Request("txtName"))
objXMLTW.WriteEndElement()
objXMLTW.WriteStartElement("Address")
objXMLTW.WriteString(Request("txtAddress"))
objXMLTW.WriteEndElement()
objXMLTW.WriteStartElement("City")
objXMLTW.WriteString(Request("txtCity"))
objXMLTW.WriteEndElement()
objXMLTW.WriteStartElement("State")
objXMLTW.WriteString(Request("txtState"))
objXMLTW.WriteEndElement()
objXMLTW.WriteStartElement("Zip")
objXMLTW.WriteString(Request("txtZip"))
objXMLTW.WriteEndElement()
objXMLTW.WriteEndElement() 'End top level element
objXMLTW.WriteEndDocument() 'End Document
objXMLTW.Flush() 'Write to file
objXMLTW.Close()
'Display File Just Created
ReadXML(Server.MapPath("applicant.xml"))
Catch Ex As Exception
lblXMLFile.Text = "The following error occurred: " & Ex.Message
End Try
End Sub
Sub ReadXML(FileName as String)
Try
lblXMLFile.Text =""
Dim objXMLTR as new XMLTextReader(FileName)
dim sCategory as String
dim bNested as Boolean
dim sLastElement as String
Dim sValue as String
'Read method loops through the XML stream
Do While objXMLTR.Read
'Output elements and values
'Look at output in browser and compare to P281.xml file to
'see exactly what is being done
If objXMLTR.NodeType = XMLNodeType.Element Then
if bNested = True then
if sCategory <> "" then sCategory = sCategory & " > "
sCategory = sCategory & sLastElement
End if
bNested = True
sLastElement = objXMLTR.Name
Else If objXMLTR.NodeType = XMLNodeType.Text or _
objXMLTR.NodeType = XMLNodeType.CData Then
bNested = False
sCategory = "<P>" & sCategory
sValue = objXMLTR.value
lblXMLFile.Text = lblXMLFile.Text & "<B>" & sCategory & _
"<BR>" & sLastElement & "</B><BR>" & sValue
sLastElement = ""
sCategory = ""
End if
Loop
objXMLTR.close
Catch Ex as Exception
lblXMLFile.Text = "The following error occurred: " & Ex.Message
End Try
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
</script>
</head>
<body>
<center><b>XML Text Reader/Text Writer Demo</b></center>
<form method="post" action="XML_DEMO.aspx" runat="server" ID=Form1>
<table WIDTH = "100%" >
<tr>
<TD width="50%" valign = top>
Click below to read the XML file.<p>
<asp:Button id="btnReadXML" text="Read XML Document" OnClick="btnReadXML_onClick" runat="server" /><p>
<asp:label id="lblXMLFile" runat="server" /></p>
</TD>
</table></p>
</form>
</body></html>
