XML.com

XML.com
  Home | Resources | FAQs |
    
Home :: XML006

XML006: Function สำหรับการ update 1 field (ASP)

ตัวย่างต่อไปนี้ จะเป็นตัวอย่างง่ายๆ ในการใช้ฟังค์ชันเป็นตัวเก็บข้อมูลเพียง 1 ฟิลด์โดยใช้ ASP

ตัวอย่างการเรียกใช้งาน

สมมุตว่าท่านต้องการ update ข้อมูลเพียง 1 ฟิลด์โดยส่งชื่อ ฟิลด์ ข้อมูล และ XML ไฟล์ไปเป็นตัวแปร
 

<%

updateXMLField("NAME","John", "sample.xml")
%>

ตัว function จะมีลักษณะดังนี้

Function updateXMLField(strFieldName, strData2BInserted, strXMLFile)

Dim objDom
Dim objRoot
Dim objField

'สร้าง file object โดยใช้ DOM
Set objDom = Server.CreateObject("Microsoft.XMLDOM")
objDom.async = False
objDom.Load strXMLFile '-- โหลด แฟ้มข้อมูล

'สร้าง Root object เพื่อการเข้าถึงข้อมูล
Set objRoot = objDom.documentElement

'ค้นหา node ที่เราต้องการ
Set objField = objRoot.selectSingleNode(strFieldName)

'-- ใส่ค่าที่เราต้องการเข้าไป หากต้องการป้องกัน error ก็ให้ใช้ if not objField.txt = "" then ด้วย
objField.Text = strData2BInserted

objDom.save strXMLFile '--- บันทึกข้อมูล
updateXMLField = True '--- reply กลับไปว่า ok

'ปลดปล่อย object ใน memory
Set objDom = Nothing
Set objRoot = Nothing
Set objField = Nothing

End Function

 

จะพบว่า Source code ตรงไปตรงมา แต่ไม่แนะนำให้ใช้ในกรณีต้องการ update บ่อยๆ และหลายๆ field เพราะจะเสียเวลาในการ load และ save ข้อมูลซ้ำกันมากเกินไป

ที่มา http://www.xmlfiles.com

 

Contact Us | Our Mission | Privacy Policy | Advertise With Us | Site Help
Copyright © 2002 Copy เค้ามาจาก www.xml.com จะได้ดูเหมือนๆกัน