คลาส asp นี้สามารถใช้เพื่อจัดการการส่งและรับแพ็คเกจ xml สามารถใช้สำหรับการสื่อสารระหว่างอินเทอร์เฟซ API ระหว่างระบบที่ต่างกันหลากหลาย และสำหรับการประมวลผลการเรียกใช้และการรับบริการทางเว็บ
คุณสมบัติ:
String
สำหรับการส่ง xml
เขียนเฉพาะ
ข้อความ: ข้อความแสดงข้อผิดพลาดของระบบ
สตริง
แบบอ่านอย่างเดียว
: รับค่าของโหนดใน XML แพ็คเกจที่ส่ง
สตริง
พารามิเตอร์แบบอ่านอย่างเดียว: Str: ชื่อโหนด
GetXmlData: รับวัตถุข้อมูล XML ที่ส่งคืน
XMLDom
อ่านอย่างเดียว
วิธีการ:
LoadXmlFromFile: กรอกพารามิเตอร์วัตถุ XmlDoc เส้นทาง: เส้นทาง xml จากไฟล์ xml ภายนอก
เป็นโมฆะ
LoadXmlFromString: กรอกพารามิเตอร์วัตถุ XmlDoc Str:xml สตริงด้วยสตริง
เป็นโมฆะ
NodeValue ตั้งค่าพารามิเตอร์ของโหนด
พารามิเตอร์
NodeName ชื่อโหนด
NodeText ค่า
NodeType ประเภทการบันทึก [text=0,cdata=1]
blnEncode ไม่ว่าจะเข้ารหัส [true, false]
เป็นโมฆะ
SendHttpData: ส่งแพ็คเกจ xml
PrintSendXmlData: พิมพ์ส่งคำขอข้อมูล XML
PrintGetXmlData: พิมพ์ข้อมูล XML ส่งคืน
SaveSendXmlDataToFile: บันทึกส่งคำขอข้อมูล xml ไปยังไฟล์ชื่อไฟล์คือ sendxml_date.txt
SaveGetXmlDataToFile: บันทึกข้อมูล XML ที่ส่งคืนไปยังไฟล์ ชื่อไฟล์คือ getxml_date.txt
GetSingleNode: รับพารามิเตอร์ข้อมูลโหนด Nodestring ของ xml ที่ส่งคืน: ชื่อโหนด
AcceptHttpData: รับแพ็คเกจ XML ข้อมูลข้อผิดพลาดจะได้รับผ่านอ็อบเจ็กต์ข้อความ
AcceptSingleNode: Return ข้อมูลโหนดแพ็คเกจ XML ที่ได้รับ พารามิเตอร์ Nodestring: ชื่อโหนด
PrintAcceptXmlData: พิมพ์ข้อมูล XML ที่ได้รับจากส่วนรับ
SaveAcceptXmlDataToFile: บันทึกข้อมูลแพ็กเก็ต XML ที่ได้รับลงในไฟล์ ชื่อไฟล์คือ Acceptxml_date.txt
SaveDebugStringToFile: บันทึกข้อมูลการดีบักลงในไฟล์ชื่อ debugnote_date.txt
พารามิเตอร์ Debugstr: ข้อมูลการดีบัก
รหัส:
xmlcls.asp
<%
Rem จัดการการส่งและรับคลาสของข้อมูล xml
'------------------------------------------------ -
'โปรดเก็บข้อมูลลิขสิทธิ์ไว้เมื่อพิมพ์ซ้ำ
'ผู้เขียน: วอล์คแมน
'บริษัท: Bubuweiying Technology Co., Ltd.
เว็บไซต์: http://www.shouji138.com
'เวอร์ชัน: เวอร์ชัน 1.0
'------------------------------------------------ -
คลาส XmlClass
Rem
XmlDoc ส่วนตัว, XmlHttp
รหัสข้อความส่วนตัว, SysKey, XmlPath
m_GetXmlDoc,m_url ส่วนตัว
m_XmlDocAccept
Rem
ส่วนตัว
Class_Initialize ส่วนตัว ()
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
รหัสข้อความ = ""
XmlPath = ""
ตั้งค่า XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0")
XmlDoc.ASYNC = เท็จ
End Sub
Rem ทำลายวัตถุ
Class_Terminate ส่วนตัวย่อย ()
ถ้า IsObject(XmlDoc) ให้ตั้งค่า XmlDoc = Nothing
ถ้า IsObject(m_XmlDocAccept) ให้ตั้งค่า m_XmlDocAccept = Nothing
ถ้า IsObject(m_GetXmlDoc) ให้ตั้งค่า m_GetXmlDoc = Nothing
จบหมวดย่อย
'การกำหนดคุณลักษณะสาธารณะเริ่มต้น --------------------------
ข้อความแสดงข้อผิดพลาด Rem
ทรัพย์สินสาธารณะรับข้อความ ()
ข้อความ = รหัสข้อความ
สิ้นสุดคุณสมบัติ
Rem ที่อยู่ที่จะส่ง xml ไป
ทรัพย์สินสาธารณะให้ URL(str)
m_url = STR
สิ้นสุดคุณสมบัติ
'สิ้นสุดคำจำกัดความคุณลักษณะสาธารณะ--------------------------
'กระบวนการส่วนตัวและวิธีการเริ่มต้น ---------------------------
โหลด xml อีกครั้ง
LoadXmlData ย่อยส่วนตัว ()
ถ้า XmlPath <> "" แล้ว
ถ้าไม่ใช่ XmlDoc.Load(XmlPath) แล้ว
XmlDoc.LoadXml "<?xml version=""1.0"" encoding=""gb2312""?><root/>"
สิ้นสุดถ้า
อื่น
XmlDoc.LoadXml "<?xml version=""1.0"" encoding=""gb2312""?><root/>"
สิ้นสุดถ้า
สิ้นสุด
การแปลงอักขระ Sub Rem
ฟังก์ชั่นส่วนตัว AnsiToUnicode (ByVal str)
หรี่ i, j, c, i1, i2, u, fs, f, p
AnsiToUnicode = ""
พี = ""
สำหรับ i = 1 ถึง Len(str)
c = กลาง(str, i, 1)
เจ = AscW(ค)
ถ้า j < 0 แล้ว
เจ = เจ + 65536
สิ้นสุดถ้า
ถ้า j >= 0 และ j <= 128 แล้ว
ถ้า p = "c" แล้ว
AnsiToUnicode = " " & AnsiToUnicode
พี = "อี"
สิ้นสุดถ้า
AnsiToUnicode = AnsiToUnicode & ค
อื่น
ถ้า p = "e" แล้ว
AnsiToUnicode = AnsiToUnicode & " "
พี = "ค"
สิ้นสุดถ้า
AnsiToUnicode = AnsiToUnicode & ("&#" & j & ";")
สิ้นสุดถ้า
ต่อไป
สิ้นสุด
การแปลงอักขระ Rem
ฟังก์ชั่นส่วนตัว strAnsi2Unicode (asContents)
ดิม เลน1,ไอ,วาร์ชาร์,วาราสค์
strAnsi2Unicode = ""
len1=LenB(ตามเนื้อหา)
ถ้า len1=0 ให้ออกจากฟังก์ชัน
สำหรับ i=1 ถึง len1
varchar=MidB(asContents,i,1)
varasc=AscB(วาร์ชาร์)
ถ้า varasc > 127 แล้ว
ถ้า MidB(asContents,i+1,1)<>"" จากนั้น
strAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar))
สิ้นสุดถ้า
ฉัน=ฉัน+1
อื่น
strAnsi2Unicode = strAnsi2Unicode & Chr(วาราสค์)
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด
Rem ผนวกอักขระเข้ากับไฟล์
WriteStringToFile ส่วนตัวย่อย (ชื่อไฟล์, str)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ติ่มซำ fs,ts
ตั้งค่า fs= createobject("script_ing.filesystemobject")
ถ้าไม่ใช่ IsObject(fs) ให้ออกจาก Sub
ตั้งค่า ts=fs.OpenTextFile(Server.MapPath(ชื่อไฟล์),8,True)
ts.writeline(str)
ts.ปิด
ตั้งค่า ts=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
จบหมวดย่อย
'กระบวนการส่วนตัวและวิธีการสิ้นสุด ---------------------------
'วิธีการสาธารณะเริ่มต้น ---------------------------
'''''''''''' ส่งส่วน xml เพื่อเริ่มต้น
Rem เติมวัตถุ XmlDoc จากไฟล์ xml ภายนอก
LoadXmlFromFile ย่อยสาธารณะ (เส้นทาง)
XmlPath = Server.MapPath (เส้นทาง)
LoadXmlData()
ย่อยสิ้นสุด
เติมวัตถุ XmlDoc ด้วยสตริง
LoadXmlFromString ย่อยสาธารณะ (str)
XmlDoc.LoadXml str
สิ้นสุด Sub
Rem ตั้งค่าพารามิเตอร์โหนด เช่น NodeValue "appID",AppID,1,False
'------------------------------------------------ -
'พารามิเตอร์:
'ชื่อโหนด NodeName
'ค่า NodeText
'ประเภทการบันทึก NodeType [text=0,cdata=1]
'blnEncode ว่าจะเข้ารหัส [true, false] หรือไม่
'------------------------------------------------ -
NodeValue ย่อยสาธารณะ (Byval NodeName, Byval NodeText, Byval NodeType, Byval blnEncode)
Dim ChildNode สร้าง CDATASection
NodeName = Lcase (ชื่อโหนด)
ถ้า XmlDoc.documentElement.selectSingleNode(NodeName) ไม่มีอะไรเลย
ตั้งค่า ChildNode = XmlDoc.documentElement.appendChild(XmlDoc.createNode(1,NodeName,""))
อื่น
ตั้งค่า ChildNode = XmlDoc.documentElement.selectSingleNode (NodeName)
สิ้นสุดถ้า
ถ้า blnEncode = True แล้ว
NodeText = AnsiToUnicode(NodeText)
สิ้นสุดถ้า
ถ้า NodeType = 1 แล้ว
ChildNode.Text = ""
ตั้งค่า CreateCDATASection = XmlDoc.createCDATASection(แทนที่(NodeText,"]]>","]]>"))
ChildNode.appendChild (createCDATASection)
อื่น
ChildNode.Text = NodeText
สิ้นสุดถ้า
จบหมวดย่อย
'------------------------------------------------ -
'รับค่าของโหนดในแพ็คเก็ต XML ที่ส่ง
'พารามิเตอร์:
'ชื่อโหนด Str
'------------------------------------------------ -
ทรัพย์สินสาธารณะ GetXmlNode (ByvalStr)
ถ้า XmlDoc.documentElement.selectSingleNode(Str) ไม่มีอะไรแล้ว
XmlNode = "ว่าง"
อื่น
XmlNode = XmlDoc.documentElement.selectSingleNode(Str).text
สิ้นสุดถ้า
สิ้นสุดคุณสมบัติ
'-------------------------------------------------- --- ---
'รับวัตถุข้อมูล XML ที่ส่งคืน
'ตัวอย่าง:
'เมื่อ GetXmlData ไม่ใช่ NULL GetXmlData จะเป็นวัตถุ XML
'------------------------------------------------ -
ทรัพย์สินสาธารณะรับ GetXmlData()
ตั้งค่า GetXmlData = m_GetXmlDoc
สิ้นสุดคุณสมบัติ
'------------------------------------------------ -
'ส่งแพ็คเกจ xml ไปที่ http://www.devdao.com/
'------------------------------------------------ -
สาธารณะย่อย SendHttpData()
หรี่ฉัน, GetXmlDoc, LoadAppid
ตั้งค่า Xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
ตั้งค่า GetXmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0") ' ส่งกลับแพ็คเกจ xml
XmlHttp.Open "POST", m_url, false
XmlHttp.SetRequestHeader "ประเภทเนื้อหา", "ข้อความ/xml"
XmlHttp ส่ง XmlDoc
'การตอบสนองเขียน strAnsi2Unicode (xmlhttp.responseBody)
ถ้า GetXmlDoc.load(XmlHttp.responseXML) แล้ว
ตั้งค่า m_GetXmlDoc = GetXmlDoc
อื่น
MessageCode = "เกิดข้อผิดพลาดในการขอข้อมูล!"
ออกจากย่อย
สิ้นสุดถ้า
ตั้งค่า GetXmlDoc = ไม่มีเลย
ตั้ง XmlHttp = ไม่มีเลย
จบหมวดย่อย
'------------------------------------------------ -
'พิมพ์ส่งคำขอข้อมูล XML
'------------------------------------------------ -
PrintSendXmlData() สาธารณะย่อย
การตอบสนองชัดเจน
Response.ContentType = "ข้อความ/xml"
Response.CharSet = "gb2312"
การตอบกลับหมดอายุ = 0
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine
Response.Write XmlDoc.documentElement.XML
จบซับ
'--------------------------------------------------- --- ---
'พิมพ์ข้อมูล XML ที่ส่งคืน
'------------------------------------------------ -
PrintGetXmlData() ย่อยสาธารณะ
การตอบสนองชัดเจน
Response.ContentType = "ข้อความ/xml"
Response.CharSet = "gb2312"
การตอบกลับหมดอายุ = 0
ถ้า IsObject(m_GetXmlDoc) แล้ว
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine
Response.เขียน m_GetXmlDoc.documentElement.XML
อื่น
การตอบสนองเขียน "<?xml version=""1.0"" encoding=""gb2312""?><root></root>"
สิ้นสุดถ้า
จบหมวดย่อย
Rem บันทึกข้อมูล xml คำขอส่งลงในไฟล์ชื่อ sendxml_date.txt
สาธารณะย่อย SaveSendXmlDataToFile ()
ชื่อไฟล์ Dim,str
ชื่อไฟล์ = "sendxml_" & DateValue (ตอนนี้) & ".txt"
STR = ""
str = str & ""& ตอนนี้() & vbNewLine
str = str & "------------------------------------------------- --- "& vbNewLine
str = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine
str = str & XmlDoc.documentElement.XML & vbNewLine
str = str & "------------------------------------------------- --- "& vbNewLine
str = str & vbNewLine & vbNewLine & vbNewLine
ชื่อไฟล์ WriteStringToFile,str
จบหมวดย่อย
Rem บันทึกข้อมูล XML ที่ส่งคืนไปยังไฟล์ชื่อ getxml_date.txt
สาธารณะย่อย SaveGetXmlDataToFile()
ชื่อไฟล์ Dim,str
ชื่อไฟล์ = "getxml_" & DateValue (ตอนนี้) & ".txt"
STR = ""
str = str & ""& ตอนนี้() & vbNewLine
str = str & "------------------------------------------------- --- "& vbNewLine
ถ้า IsObject(m_GetXmlDoc) แล้ว
str = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine
str = str & m_GetXmlDoc.documentElement.XML
อื่น
str = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine & "<root>" & vbNewLine & "</root>"
สิ้นสุดถ้า
str = str & vbNewLine
str = str & "------------------------------------------------- --- "& vbNewLine
str = str & vbNewLine & vbNewLine & vbNewLine
ชื่อไฟล์ WriteStringToFile,str
จบหมวดย่อย
'------------------------------------------------ -
'รับข้อมูลโหนดของ xml ที่ส่งคืน
'XmlClassObj.GetSingleNode("//msg")
'------------------------------------------------ -
ฟังก์ชั่นสาธารณะ GetSingleNode (nodestring)
ถ้า IsObject(m_GetXmlDoc) แล้ว
GetSingleNode = m_GetXmlDoc.documentElement.selectSingleNode(nodestring) ข้อความ
อื่น
GetSingleNode = ""
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
''''''''''''''''''สิ้นสุดการส่งส่วน xml
''''''''''''''''''ส่วน xml ที่ได้รับเริ่มต้นขึ้น
'------------------------------------------------ -
'รับแพ็คเกจ XML ข้อมูลข้อผิดพลาดได้รับผ่านวัตถุข้อความ
'------------------------------------------------ -
ฟังก์ชั่นสาธารณะ AcceptHttpData()
หรี่ XMLdom
ตั้งค่า XMLdom = Server.CreateObject("Microsoft.XMLDOM")
XMLdom.Async = เท็จ
XMLdom.Load(คำขอ)
ถ้า XMLdom.parseError.errorCode <> 0 แล้ว
MessageCode = "ไม่สามารถรับข้อมูลได้อย่างถูกต้อง" & "Descript_ion: " & XMLdom.parseError.reason & "<br>Line: " & XMLdom.parseError.Line
ตั้งค่า m_XmlDocAccept = Null
อื่น
ตั้งค่า m_XmlDocAccept = XMLdom
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
'-------------------------------------------------- --- ---
'กลับไปรับข้อมูลโหนดแพ็คเกจ XML
'XmlClassObj.GetSingleNode("//msg")
'------------------------------------------------ -
ฟังก์ชั่นสาธารณะ AcceptSingleNode (nodestring)
ถ้า IsObject(m_XmlDocAccept) แล้ว
AcceptSingleNode = m_XmlDocAccept.documentElement.selectSingleNode(nodestring).ข้อความ
อื่น
ยอมรับ SingleNode = ""
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'------------------------------------------------ -
'พิมพ์ข้อมูล XML ที่ได้รับจากส่วนรับ
'------------------------------------------------ -
PrintAcceptXmlData() สาธารณะย่อย
การตอบสนองชัดเจน
Response.ContentType = "ข้อความ/xml"
Response.CharSet = "gb2312"
การตอบกลับหมดอายุ = 0
ถ้า IsObject(m_XmlDocAccept) แล้ว
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine
การตอบสนองเขียน m_XmlDocAccept.documentElement.XML
อื่น
การตอบสนองเขียน "<?xml version=""1.0"" encoding=""gb2312""?><root></root>"
สิ้นสุดถ้า
จบหมวดย่อย
Rem บันทึกข้อมูลแพ็กเก็ต XML ที่ได้รับลงในไฟล์ชื่อ Acceptxml_date.txt
สาธารณะย่อย SaveAcceptXmlDataToFile ()
ชื่อไฟล์ Dim,str
ชื่อไฟล์ = "acceptxml_" & DateValue (ตอนนี้) & ".txt"
STR = ""
str = str & ""& ตอนนี้() & vbNewLine
str = str & "------------------------------------------------- --- "& vbNewLine
ถ้า IsObject(m_XmlDocAccept) แล้ว
str = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine
str = str & m_XmlDocAccept.documentElement.XML
อื่น
str = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine & "<root>" & vbNewLine & "</root>"
สิ้นสุดถ้า
str = str & vbNewLine
str = str & "------------------------------------------------- --- "& vbNewLine
str = str & vbNewLine & vbNewLine & vbNewLine
ชื่อไฟล์ WriteStringToFile,str
สิ้นสุด Sub
'''''''''''''''''''' รับส่วน xml และสิ้นสุด
Rem บันทึกข้อมูลการดีบักลงในไฟล์ชื่อ debugnote_date.txt
สาธารณะย่อย SaveDebugStringToFile (debugstr)
ชื่อไฟล์ Dim,str
ชื่อไฟล์ = "debugnote_" & DateValue (ตอนนี้) & ".txt"
STR = ""
str = str & ""& ตอนนี้() & vbNewLine
str = str & "------------------------------------------------- --- "& vbNewLine
str = str & debugstr & vbNewLine
str = str & "------------------------------------------------- --- "
str = str & vbNewLine & vbNewLine & vbNewLine
ชื่อไฟล์ WriteStringToFile,str
End Sub
'สิ้นสุดวิธีสาธารณะ--------------------------
สิ้นสุดคลาส
-
กรณีทดสอบ:
sendxml.asp
-
ตัวเลือก
Response.buffer ที่ชัดเจน = True
การตอบกลับหมดอายุ=-1
-
<!--#include file="xmlcls.asp"-->
<%
ค่าคงที่อภิซิสโน = "23498927347234234987"
Const ActionURL = " http://www.shouji138.com/aspnet2/acceptxml.asp " Rem ตอบสนองต่อที่อยู่ URL ที่เขียนไฟล์
DimXmlClassObj
ตั้งค่า XmlClassObj = XmlClass ใหม่ 'สร้างวัตถุ'
XmlClassObj.LoadXmlFromString("<?xml version=""1.0"" encoding=""gb2312""?><root/>") 'เติมวัตถุ XMLDOC ด้วยอักขระ xml และใช้เพื่อส่ง xml
XmlClassObj.URL = ActionURL 'ตั้งค่า URL ตอบกลับ
รูปแบบ Rem xml
Rem "<?xml version="1.0" encoding="gb2312"?>
เรม <root>
เรม <sysno></sysno>
เรม <ชื่อผู้ใช้></ชื่อผู้ใช้>
เรม <pwd></pwd>
เรม <อีเมล></อีเมล>
เรม <pagename></pagename>
เรม <pageurl></pageurl>
เรม </root>
XmlClassObj.NodeValue "sysno", Apisysno, 0, เท็จ
XmlClassObj.NodeValue "ชื่อผู้ใช้", "testusername", 0, เท็จ
XmlClassObj.NodeValue "pwd", "pwd", 0, เท็จ
XmlClassObj.NodeValue "อีเมล", " [email protected]",0,เท็จ
XmlClassObj.NodeValue "ชื่อหน้า", "ไซต์", 0, เท็จ
XmlClassObj.NodeValue "pageurl", " http://www.shouji138.com",1,False
)
'บันทึกแพ็คเกจฐานข้อมูล xml ที่ส่งลงใน
ไฟล์ txt .PrintGetXmlData() ' พิมพ์ข้อมูล xml ที่ได้รับ
'response.write XmlClassObj.Message' พิมพ์ข้อความแสดงข้อผิดพลาด
XmlClassObj.SaveGetXmlDataToFile() 'บันทึกฐานข้อมูล xml ที่ได้รับลงในไฟล์ txt
response.write XmlClassObj.GetSingleNode("//message") 'แสดงค่าของโหนด msg ของข้อมูล xml ที่ได้รับ
ตั้งค่า XmlClassObj = ไม่มี 'ทำลายอินสแตนซ์ของวัตถุ'
%>
ยอมรับ xml.asp
<%
ส่วนต่อประสานการลงทะเบียนผู้ใช้ Rem Api
-
-
การตอบกลับหมดอายุ= -1
Response.Addheader "pragma", "ไม่มีแคช"
Response.AddHeader "ควบคุมแคช", "ไม่มีที่เก็บ"
-
<!--#รวมไฟล์="xmlcls.asp"-->
-
รูปแบบ Rem xml
Rem "<?xml version="1.0" encoding="gb2312"?>
เรม <root>
เรม <sysno></sysno>
เรม <ชื่อผู้ใช้></ชื่อผู้ใช้>
เรม <pwd></pwd>
เรม <อีเมล></อีเมล>
เรม <pagename></pagename>
เรม <pageurl></pageurl>
เรม </root>
ค่าคงที่อภิซิสโน = "23498927347234234987"
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
DimXmlClassObj
ตั้งค่า XmlClassObj = XmlClass ใหม่ 'สร้างวัตถุ'
XmlClassObj.AcceptHttpData() 'รับข้อมูล xml
XmlClassObj.SaveAcceptXmlDataToFile() 'บันทึกข้อมูล xml ที่ได้รับลงในไฟล์ txt
ผิดพลาดชัดเจน
ข้อความสลัว
Dim sysno,ชื่อผู้ใช้,pwd,อีเมล,PageName,PageURL
sysno = XmlClassObj.AcceptSingleNode("//sysno")
ชื่อผู้ใช้ = XmlClassObj.AcceptSingleNode("//ชื่อผู้ใช้")
pwd = XmlClassObj.AcceptSingleNode("//pwd")
อีเมล = XmlClassObj.AcceptSingleNode("//อีเมล")
ชื่อหน้า = XmlClassObj.AcceptSingleNode("//ชื่อหน้า")
PageURL = XmlClassObj.AcceptSingleNode("//pageurl")
XmlClassObj.SaveDebugStringToFile("sysno=" & sysno) 'บันทึกเพื่อดีบักไฟล์บันทึก
หากผิดพลาดแล้ว
ข้อความ = ข้อความ & Err.Descript_ion
อื่น
ผิดพลาดชัดเจน
ถ้า sysno <> Apisysno แล้ว
message = "กรุณาอย่าใช้มันอย่างผิดกฎหมาย!"
อื่น
ข้อความ = regUser (ชื่อผู้ใช้, pwd, อีเมล, ชื่อหน้า, PageURL)
สิ้นสุดถ้า
สิ้นสุดถ้า
'XmlClassObj.SaveDebugStringToFile("message=" & message) 'บันทึกค่าข้อความลงในไฟล์บันทึกการดีบัก
ตั้งค่า XmlClassObj = ไม่มีสิ่งใด 'ทำลายอินสแตนซ์ของวัตถุ
Response.ContentType = "text/xml" 'ส่งออกสตรีมข้อมูล xml ไปยังผู้ส่ง
Response.Charset = "gb2312"
การตอบสนองชัดเจน
การตอบสนองเขียน "<?xml version=""1.0"" encoding=""gb2312""?>" & vbnewline
การตอบสนองเขียน "<root>" & vbnewline
การตอบกลับเขียน "<ข้อความ>" & ข้อความ & "</message>" & vbnewline
การตอบสนองเขียน "<nowtime>" & Now() & "</nowtime>" & vbnewline
Response.Write "</root>" & vbnewline
ฟังก์ชั่น regUser(ชื่อผู้ใช้,pwd,อีเมล,PageName,PageURL)
-
-
-
'ดำเนินการผู้ใช้ที่ลงทะเบียนฐานข้อมูล
-
-
regUser = "ตกลง"
สิ้นสุดฟังก์ชัน
%>
ที่อยู่การดาวน์โหลด:/u/info_img/2009-06/25/Xmlcls.rar
ที่อยู่สาธิต:http://www.shouji138.com/aspnet2/sendxml.asp