'********************************************************************************************************************************************************************************* * *
الوصف: فئة الشخص
المؤلف: gwd 2002-11-06
'المرجع: pub/constpub.asp
'********************************************************************************************************************************************************************************* * * معرف فئة Cls_Person m_intId الخاص، المطابق لموضع عقدة الشخص في مجموعة الأشخاص
اسم m_strName الخاص
اسم m_strNick الخاص باللغة الإنجليزية
خاص m_strMobile 'الهاتف المحمول
هاتف خاص m_strTel
خاص m_strEmail 'البريد الإلكتروني
رقم m_strQQ الخاص 'QQ
شركة m_strCompany الخاصة
تهيئة فئة m_strError الخاصة "رسالة خطأ ".
فئة فرعية خاصة_Initialize()
m_strError = ""
m_intId = -1
إنهاء
إصدار الفئة الفرعية
فئة فرعية خاصة_Terminate()
m_strError = ""
End Sub
'-----اقرأ واكتب كل عقار --------------------------- معرف الحصول على الملكية العامة
المعرف = m_intId
معرف ملكية الملكية العامة (intId)
m_intId = intId
نهاية الملكية الملكية العامة احصل على الاسم
الاسم = m_strName
اسم ملكية نهاية الملكية العامة (strName)
m_strName = strName
نهاية الملكية
الملكية العامة احصل على نيك
نيك = m_strNick
نهاية الملكية الملكية العامة دع نيك (سترنيك)
m_strNick = strNick
نهاية الملكية الملكية العامة احصل على الهاتف المحمول
الجوال = m_strMobile
نهاية الملكية الملكية العامة دع موبايل (strMobile)
m_strMobile = strMobile
نهاية الملكية الملكية العامة احصل على الهاتف
هاتف = m_strTel
نهاية الملكية الملكية العامة Let Tel(strTel)
m_strTel = strTel
نهاية الملكية الملكية العامة احصل على البريد الإلكتروني
البريد الإلكتروني = m_strEmail
نهاية الملكية ملكية عامة دع البريد الإلكتروني (strEmail)
m_strEmail = strEmail
نهاية الملكية الملكية العامة احصل على QQ
ف ف = m_strQQ
نهاية الملكية الملكية العامة دع QQ(strQQ)
m_strQQ = strQQ
نهاية الملكية الملكية العامة احصل على الشركة
الشركة = m_strCompany
شركة نهاية الملكية العامة للملكية (strCompany)
m_strCompany = strCompany
نهاية الخاصية '---------------------------------------------- -- 'الحصول على معلومات الخطأ
الوظيفة العامة GetLastError()
GetLastError = m_strError
طريقة خاصة لوظيفة النهاية ، أضف رسالة خطأ
AddErr الفرعي الخاص (strEcho)
m_strError = m_strError + "＜Div CLASS=""alert""＞" & strEcho & "＜/Div＞"
End Sub
'مسح رسالة الخطأ
الوظيفة العامة ClearError()
m_strError = ""
وظيفة النهاية 'اقرأ بيانات العقدة المحددة من Xml واملأ كل سمة
"تحتاج إلى تعيين المعرف أولاً."
الوظيفة العامة GetInfoFromXml(objXmlDoc)
خافت objNodeList
Dim I ClearError إذا كان objXmlDoc لا شيء، إذن
GetInfoFromXml = خطأ
AddErr "كائن Dom فارغ"
وظيفة الخروج
End If If CStr(m_intId) = "-1" إذن
GetInfoFromXml = خطأ
AddErr "لم يتم تعيين سمة المعرف لكائن الاتصال بشكل صحيح"
وظيفة الخروج
آخر
I = m_intId - 1 'لقراءة موضع العقدة، إذا 'حدد وقراءة معلومات العقدة، قم بتعيين كل سمة Set objNodeList = objXmlDoc.getElementsByTagName("Person")
إذا كان objNodeList.length - m_intId ＞= 0 إذن
على خطأ استئناف التالي
m_strName = objNodeList(I).selectSingleNode("Name").نص
m_strNick = objNodeList(I).selectSingleNode("Nick").نص
m_strMobile = objNodeList(I).selectSingleNode("Mobile").نص
m_strTel = objNodeList(I).selectSingleNode("Tel").نص
m_strEmail = objNodeList(I).selectSingleNode("Email").نص
m_strQQ = objNodeList(I).selectSingleNode("QQ").نص
m_strCompany = objNodeList(I).selectSingleNode("الشركة").نص
GetInfoFromXml = صحيح
آخر
GetInfoFromXml = خطأ
AddErr "حدث خطأ أثناء استرداد معلومات الاتصال"
تعيين objNodeList = لا شيء
وظيفة الخروج
نهاية إذا
تعيين objNodeList = لا شيء
وظيفة النهاية "إضافة معلومات إلى ملف XML".
'تحتاج إلى تعيين السمات المراد ملؤها أولاً
الوظيفة العامة AddToXml(objXmlDoc)
Dim objPerson، objNode ClearError إذا كان objXmlDoc لا شيء، إذن
AddToXml = خطأ
AddErr "كائن Dom فارغ"
وظيفة الخروج
End If ' إنشاء عقدة شخص Set objPerson = objXmlDoc.createElement("Person")
objXmlDoc.documentElement.appendChild objPerson "إنشاء كل عقدة فرعية"--------------------------------------- --- ---------------
تعيين objNode = objXmlDoc.createElement("Name")
objNode.Text = m_strName
مجموعة objPerson.appendChild objNode objNode = objXmlDoc.createElement("Nick")
objNode.Text = m_strNick
مجموعة objPerson.appendChild objNode objNode = objXmlDoc.createElement("Mobile")
objNode.Text = m_strMobile
مجموعة objPerson.appendChild objNode objNode = objXmlDoc.createElement("Tel")
objNode.Text = m_strTel
مجموعة objPerson.appendChild objNode objNode = objXmlDoc.createElement("Email")
objNode.Text = m_strEmail
مجموعة objPerson.appendChild objNode objNode = objXmlDoc.createElement("QQ")
objNode.Text = m_strQQ
مجموعة objPerson.appendChild objNode objNode = objXmlDoc.createElement("Company")
objNode.Text = m_strCompany
objPerson.appendChild objNode
'------------------------------------------------ - --- تعيين objNode = لا شيء
قم بتعيين objPerson = لا شيء عند استئناف الخطأ بعد ذلك
objXmlDoc.save Server.MapPath(C_XMLFILE) 'حفظ ملف XMLإذا كان Err.Number = 0 ثم
AddToXml = صحيح
آخر
AddToXml = خطأ
AddErr خطأ.الوصف
نهاية إذا
وظيفة النهاية "إزالة البيانات من ملف XML".
"تحتاج إلى تعيين المعرف أولاً."
الوظيفة العامة حذف من Xml(objXmlDoc)
Dim objNodeList، objNode ClearError إذا كان objXmlDoc لا شيء، إذن
حذف من Xml = خطأ
AddErr "كائن Dom فارغ"
وظيفة الخروج
End If If CStr(m_intId) = "-1" إذن
حذف من Xml = خطأ
AddErr "لم يتم تعيين سمة المعرف لكائن الاتصال بشكل صحيح"
وظيفة الخروج
إنهاء إذا تم تعيين objNodeList = objXmlDoc.getElementsByTagName("Person")
إذا كان objNodeList.length - m_intId <0، إذن
حذف من Xml = خطأ
AddErr "لم يتم العثور على جهة الاتصال المقابلة"
تعيين objNodeList = لا شيء
وظيفة الخروج
إنهاء في حالة حدوث خطأ، استئناف التالي
تعيين objNode = objXmlDoc.documentElement.removeChild(objNodeList(intId-1))
إذا كان objNode لا شيء إذن
حذف من Xml = خطأ
AddErr "فشل في حذف جهة الاتصال"
تعيين objNodeList = لا شيء
وظيفة الخروج
آخر
objXmlDoc.save Server.MapPath(C_XMLFILE)
نهاية إذا
تعيين objNode = لا شيء
قم بتعيين objNodeList = لا شيء إذا كان Err.Number = 0
حذف من Xml = صحيح
آخر
حذف من Xml = خطأ
AddErr خطأ.الوصف
نهاية إذا
وظيفة النهاية "تعديل البيانات في ملف XML".
"تحتاج إلى تعيين المعرف أولاً."
الوظيفة العامة EditToXml(objXmlDoc)
Dim objPersonList، objOldPerson، objNewPerson، objNode ClearError إذا كان objXmlDoc لا شيء إذن
EditToXml = خطأ
AddErr "كائن Dom فارغ"
وظيفة الخروج
End If If CStr(m_intId) = "-1" إذن
EditToXml = خطأ
AddErr "لم يتم تعيين سمة المعرف لكائن الاتصال بشكل صحيح"
وظيفة الخروج
إنهاء إذا تم تعيين objPersonList = objXmlDoc.getElementsByTagName("Person")
إذا كان objPersonList.length - m_intId <0 إذن
حذف من Xml = خطأ
AddErr "لم يتم العثور على جهة الاتصال المقابلة"
تعيين objPersonList = لا شيء
وظيفة الخروج
End If Set objOldPerson = objPersonList(m_intId-1) ' العقدة القديمة المراد تعديلها Set objNewPerson = objXmlDoc.createElement("Person") ' العقدة الجديدة المستخدمة لاستبدال العقدة القديمة Set objNode = objXmlDoc.createElement("Name")
objNode.Text = m_strName
objNewPerson.appendChild مجموعة objNode objNode = objXmlDoc.createElement("Nick")
objNode.Text = m_strNick
objNewPerson.appendChild مجموعة objNode objNode = objXmlDoc.createElement("Mobile")
objNode.Text = m_strMobile
objNewPerson.appendChild مجموعة objNode objNode = objXmlDoc.createElement("Tel")
objNode.Text = m_strTel
objNewPerson.appendChild مجموعة objNode objNode = objXmlDoc.createElement("Email")
objNode.Text = m_strEmail
objNewPerson.appendChild مجموعة objNode objNode = objXmlDoc.createElement("QQ")
objNode.Text = m_strQQ
objNewPerson.appendChild مجموعة objNode objNode = objXmlDoc.createElement("Company")
objNode.Text = m_strCompany
objNewPerson.appendChild objNode عند ظهور خطأ في الاستئناف التالي
'استبدال مجموعة objNode = objXmlDoc.documentElement.replaceChild(objNewPerson, objOldPerson)
إذا كان objNode لا شيء إذن
EditToXml = خطأ
AddErr "فشل في تعديل جهة الاتصال"
تعيين objOldPerosn = لا شيء
تعيين objNewPerson = لا شيء
تعيين objPersonList = لا شيء
وظيفة الخروج
آخر
objXmlDoc.save Server.MapPath(C_XMLFILE)
إنهاء إذا تم تعيين objOldPerson = لا شيء
تعيين objNewPerson = لا شيء
قم بتعيين objPersonList = لا شيء إذا كان Err.Number = 0
EditToXml = صحيح
آخر
EditToXml = خطأ
AddErr خطأ.الوصف
نهاية إذا
نهاية الوظيفة فئة النهاية | 