تحدث عن إجراءات التجميع التلقائية والمستودعات

<٪

"بيان وظيفة الحصول على المعلومات المستهدفة وتنفيذها من خلال مكون XML.

وظيفة geturl (url)

setRieval = createObject ("microsoft.xmlhttp")

مع استرجاع

. OPEN "Get" ، url ، false

.يرسل

geturl = bytes2bsstr (.ResponseBody)

تحقق من المعلومات ، إذا كان طول المعلومات أقل من 100 ، فهذا يعني أن الاعتراض يفشل

إذا كان (.responseBody) <100 ذلك

Response.write "احصل على ملف بعيد <a href =" & url & "target = _blank>" & url & "</a> failure."

استجابة

إنهاء إذا

تنتهي

setRieval = لا شيء

وظيفة نهاية

'dual -to -making string ، وإلا فسيتم تشويهها!

وظيفة bytes2bstr (VIN)

streturn = "" "

لأني = 1 إلى lenb (vin)

thischarcode = ASCB (MIDB (VIN ، I ، 1))

إذا thischarcode <& h80 ثم

Streturn = Streturn & CHR (thischarcode)

آخر

NextCharCode = ASCB (MIDB (VIN ، I 1،1))))

Streturn = Streturn & CHR (CLNG (thischarcode) * & H100 Cint (NextCharcode))

أنا = أنا 1

إنهاء إذا

التالي

bytes2bstr = streturn

وظيفة نهاية

اذكر تنسيق الاعتراض ، بدءًا من البداية إلى نهاية الماضي

وظيفة getKey (HTML ، ابدأ ، آخر)

filearray = انقسام (html ، ابدأ)

filearray2 = split (filearray (1) ، last)

getKey = filearray2 (0)

وظيفة نهاية

قاتمة softid ، url ، html ، العنوان

احصل على معرف الصفحة

SoftID = طلب ("معرف")

url = "http://www3.skycn.com/soft/" & softid & ".html"

html = geturl (url)

"أخذ اسم البرنامج لبرنامج Sky كمثال

title = getKey (html ، "<font color = '#004fc6' size = '3'>" ، "</font> </td> </tr>)

افتح قاعدة البيانات واستعد لدخول المكتبة

Dim Connstr ، Conn ، RS ، SQL

connstr = "dbq =" server.mappath ("db1.mdb") "" "؛

تعيين conn = server.createObject ("adodb.connection")

Conn.Open Connstr

تعيين rs = server.createBject ("adodb.oldset")

sql = "حدد [اسم العمود] من [Watch Name] حيث [اسم العمود] = '& title &"' ''

RS.OOPEN SQL ، CONN ، 3،3

إذا كان rs.eof و rs.bof ثم

RS ("" قائمة ") = العنوان

Rs.update

تعيين روبية = لا شيء

إنهاء إذا

تعيين روبية = لا شيء

استجابة. "تم جمعها!"

٪>