نسخة الكود كما يلي:
<٪
'======================================================
ClassEngineersearch
'Laolong: [email protected]
': محاكاة XML للحصول على موارد علامة HTTP (ستعرف سبب مفيد XML بعد استخدامه :))
"استخدم بحث المحرك (يعرض معلومات المحرك أو المعلومات على موقعه على الويب Hyperconned أو معلومات ذات صلة مباشرة على صفحة محددة ، باستخدام العادية و XMLHTTP ،
يحتاج استخدام البرنامج إلى بناء الانتظام)
'-----------------------------------------------------------
Privateoreg ، Oxmlhtp'a العادية ، Microsoft XMLHTTP
'-----------------------------------------------------------
publicsubclass_initialize () "إنشاء كائن
setReg = NewRegexp
Oreg.global = صحيح
Oreg.InsoreCase = صحيح
setoxmlhttp = server.createBject ("microsoft.xmlhttp")
ينتهي
'-----------------------------------------------------------
publicsubclass_terminate () 'مشغلات تدمير الكائنات
setReg = لا شيء يجب إصدار كائن مصمم ذاتيًا في الفصل يدويًا ، وسيقوم ASP تلقائيًا فقط بإصدار الكائنات المحددة بواسطة الفئة.
setoxmlhttp = لا شيء
iftypename (tempreg) <> "لا شيء" ثم "الطريقة تطلق الموارد في الكائن في الجسم
settempreg = لا شيء
Endif
ينتهي
'-----------------------------------------------------------
البحث على مستوى المحرك
PublicFunctionEngineer (URL ، Engineerreg)
"مقدمة الوظيفة: الحصول على معلومات الإرجاع الخاصة بعنوان URL (عادةً ما يستخدم للبحث في المحرك) ، واستخراج المعلومات المحددة من EngineerReg ، وإرجاع مجموعة التطابقات إلى
اسم الوظيفة. الحصول على نتائج استعلام عنوان URL ، والبحث عن النتائج المحددة من قبل Engineerreg Instrantity ، وإنشاء مجموعة تطابق.
"نظرًا لأنه من المستحيل إنشاء مجموعة وتشغيل عدد المجموعات (VBScript) ، فمن الأفضل اجتياز المجموعة بنفسك ، أو النظر في صفيف ثنائي الأبعاد
Dimstronent
strcontent = oxmlhttp.open ("get" ، url ، false)
onerrorresumenext
oxmlhttp.send ()
iferr.number <> 0then
exitfunction
Endif
strcontent = bytes2bsstr (oxmlhttp.responsebody)
Ifisnull (Engineerreg) ثم
مهندس = appoluteurl (strcontent ، url)
آخر
Oreg.pattern = Engineerreg
setEngineer = oreg.execute (absomueturl (strcontent ، url))
Endif
الوظيفية
'-----------------------------------------------------------
"تشفير الشخصية الصينية ، (شخص عبر الإنترنت)
publicfunctionBytes2bsstr (VIN)
streturn = ""
fori = 1tolenb (vin)
thischarcode = ASCB (MIDB (VIN ، I ، 1))
IfThischarcode <& h80then
Streturn = Streturn & CHR (thischarcode)
آخر
NextCharCode = ASCB (MIDB (VIN ، I+1،1))