لقد كان شائعًا جدًا مؤخرًا لدرجة أنني لا أحب التجميع ، لكنني مهتم جدًا بالبحث في مبادئ التجميع. حصلت على وظائف مشتركة لجمع عبر الإنترنت ، ودرستها ، وممارسها في الممارسة العملية. وكانت النتيجة ناجحة. وضع جانبا قضية الكفاءة ، مبدأ التجميع ليس معقدًا. يمكنك إدخال "الاستحواذ" في شريط البحث لعرض مبادئه. فيما يلي مثال على المجموعة:
نسخة الكود كما يلي:
<٪@language = "vbscript" codepage = "65001" ٪>
<٪ استجابة. codepage = 65001 ٪>
<٪ response.charset = "utf-8" ٪>
<٪ server.scripttimeout = 99999999
استجابة. expires = 0
استجابة. expiresabsolute = الآن ()-1
Response.addheader "pragma" ، "عدم وجود آثار"
استجابة.
استجابة.
٪>
<٪
أعلن الوظيفة للحصول على المعلومات المستهدفة وتنفيذها من خلال مكونات XML.
FunctionGeturl (url)
setRetRieval = server.createBject ("msxml2.xmlhttp")
withretrival
. OPEN "Get" ، url ، false
.يرسل
if.Status <> 200 Then 'يحدد ما إذا كان قد تم تحليل المستند لجعل العميل يقبل رسالة الإرجاع
exitfunction
Endif
'ثنائي للسلسلة
geturl = stb (.responseBody)
endwith
تحقق من المعلومات التي تم الحصول عليها. إذا كان طول المعلومات أقل من 100 ، فهذا يعني أن الاعتراض فشل
الوظيفية
"تحول ثنائي إلى سلسلة ، وإلا سيظهر المشوهة!
وظيفة (VIN)
constadtypetext = 2
DimbytessTream ، StringReturn
setBytessTream = server.createBject ("Adodb.stream")
withbytesstream
.type = adtypetext
.يفتح
. writeTextvin
.position = 0
.charset = "GB2312"
.Position=2
StringReturn = .readtext
.يغلق
endwith
setBytessTream = لا شيء
STB = StringReturn
الوظيفية
وظيفة NewString (WSTR ، strng)
NewsString = instr (LCAS (WSTR) ، LCASE (Strng))
ifnewstring <= 0thenwstring = len (WSTR)
الوظيفية
أعلن التنسيق المعترض ، ابدأ من البداية والنهاية من أكثر
FunctionGetKey (HTML ، ابدأ ، أكثر)
START = Newstring (HTML ، ابدأ)
Over = Newstring (HTML ، Over)
GetKey = Mid (HTML ، ابدأ ، مبالغ فيه)
الوظيفية
dimsoftid ، url ، html ، العنوان
"مجموعة من بايدو تعرف
fori = 1to100
url = "http://zhidao.baidu.com/question/10000" & i & ".html"
html = geturl (url)
سؤال = getKey (html ، "<cq>" ، "</cq>")
الإجابة = getKey (html ، "<aa>" ، "</a ca>")
الرد. write (سؤال و "<br/>")