Convertir les données soumises par formulaire HTML en fichier XML_XML / RSS

2020-05-16
id ")

'est égal à la valeur de la valeur d'attribut id de chaque élément du formulaire.
objattID.Text = Request.Form.Key (x)

' setAttributeNode l'id de la méthode valeur de propriété ajoutée à l'élément de champ.
objField.setAttributeNode objattID

'créer des tabulations d'attributs.
set objattTabOrder = objDom.createAttribute ("taborder")

' ensemble de tabulations valeur d'attribut
objattTabOrder.Text = x

"taborder la valeur d'attribut de l'élément est ajoutée au champ.
objField.setAttributeNode objattTabOrder

" Créer un nouvel élément field_value.
Définir objFieldValue = objDom.createElement ("field_value")

'affectation
objFieldValue.Text = Request.Form (x)

' le champ est ajouté en tant qu'élément enfant de l'élément racine
objRoot.appendChild objField

'field_value supplémentaire en tant que contenu de sous-élément
objField.appendChild objFieldValue
End If
Next


' créer une déclaration xml
Définir objPI = objDom.createProcessingInstruction ("xml", "version = '1.0' encoding = 'gb2312'")

'le document xml xml ajouté à la vie
objDom.insertBefore objPI, objDom.childNodes (0)

'enregistrer le fichier xml
objDom.save strXMLFilePath & "" & strFileName

' valeur de libération pour tous les objets référencés
Set objDom = Nothing
Set objRoot = Nothing
Set objField = Nothing
Set objFieldValue = Nothing
Set objattID = Nothing
Set objattTabOrder = Nothing
Set objPI = Nothing < BR> Fin de fonction


'continuer
En cas d'erreur Reprendre Suivant

lorsqu'une erreur se produit' ConvertFormtoXML appelle la fonction pour stocker le fichier dans le répertoire et le nom de fichier spécifiés.
ConvertFormtoXML "D: aspexam", "Contact.xml"

'Si une erreur se produit, l'utilisateur est invité, sinon la réussite est signalée.
Si err.number <> 0 alors
Response.write ("Une erreur s'est produite lors de l'enregistrement de la valeur du formulaire !!!")
Sinon
Response.write ("Soumis avec succès !!!")
End If
%>


avec IE5 + ouvrez le fichier Contact.xml.
www.xd1998.com@2001-2030Partage De Technologie