|
ตัวย่างต่อไปนี้ จะเป็นตัวอย่างง่ายๆ ในการใช้ฟังค์ชันเป็นตัวเก็บข้อมูลเพียง
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
|
