ما يلي هو جزء الرمز: <٪ '========================================== 'اسم العملية: showcorronative "الوظيفة: إظهار المقالات ذات الصلة 'المعلمات: articlenum ---- كم عدد المقالات التي يتم عرضها على الأكثر 'Titlelen ---- عدد الأحرف في العنوان ، حرف صيني واحد = حرفين إنجليزيين '========================================== sub showcorrelave (Articlenum ، Titlelen) DIM RS ، SQL Dim Streke ، arrkey ، أنا إذا كان articlenum> 0 و Articlenum <= 100 ثم SQL = حدد TOP & ARTICLENUM آخر SQL = حدد أعلى 5 إنهاء إذا "استخدام رموز لتقسيم الكلمات الرئيسية Streke = Mid (Rs (Key) ، 2 ، Len (Rs (Key))-2) إذا instr (strkey ، |)> 1 ثم arrkey = انقسام (strkey ، |) strkey = ((مفتاح مثل "٪ | & arrkey (0) & | ٪ ') لأني = 1 إلى ubound (arrkey) strkey = strkey & أو (مفتاح مثل "٪ | & arrkey (i) & | ٪ ') التالي strkey = strkey &) آخر strkey = (مفتاح مثل "٪ | & strkey & | ٪ ') إنهاء إذا sql = & id ، title ، المؤلف ، التاريخ ، الزيارات ، l.layoutfilename من المقالة A INNER JOIN LANEOUT l على l.layoutid = layoutid حيث تم حذفه = false و exped = true a nd & streke & id <> & id & order بواسطة ID DESC تعيين rs = const.execute (SQL) إذا titlelen <0 أو titlelen> 255 ثم tintlelen = 50 إذا كان Rs.Bof و Rs.eof ثم استجابة. لا يوجد لدى الكتابة مقالات ذات صلة آخر افعل بينما لا rs.eof Response.write <a href = '& rs (layoutfilename) & id؟ الوقت: Rs.Movenext حلقة إنهاء إذا Rs.close تعيين روبية = لا شيء نهاية الفرعية ٪> |
بعد تحديد هذه العملية ، ثم استبدل علامة القالب في ملف الصفحة الثابتة
(مثل: htmlmake.asp)
| ما يلي هو جزء الرمز: Pencat = استبدال (Pencat ، [Xianghuanlist] ، عرض الترابط (5،20)) |
سيؤدي ذلك إلى إنشاء صفحة ثابتة مع قائمة بالمقالات ذات الصلة!
الجزء الأحمر هو العبارة الأساسية التي يمكن زرعها فقط.
ما يلي هو جزء الرمز: <٪ '========================================== 'اسم العملية: showcorronative "الوظيفة: إظهار المقالات ذات الصلة 'المعلمات: articlenum ---- كم عدد المقالات التي يتم عرضها على الأكثر 'Titlelen ---- عدد الشخصيات في العنوان ، حرف صيني واحد = حرفين إنجليزيين '========================================== sub showcorrelave (Articlenum ، Titlelen) DIM RS ، SQL Dim Streke ، arrkey ، أنا إذا كان articlenum> 0 و Articlenum <= 100 ثم SQL = حدد TOP & ARTICLENUM آخر SQL = حدد أعلى 5 إنهاء إذا "استخدام رموز لتقسيم الكلمات الرئيسية Streke = Mid (Rs (Key) ، 2 ، Len (Rs (Key))-2) إذا instr (strkey ، |)> 1 ثم arrkey = انقسام (strkey ، |) strkey = ((مفتاح مثل "٪ | & arrkey (0) & | ٪ ') لأني = 1 إلى ubound (arrkey) strkey = strkey & أو (مفتاح مثل "٪ | & arrkey (i) & | ٪ ') التالي strkey = strkey &) آخر strkey = (مفتاح مثل "٪ | & strkey & | ٪ ') إنهاء إذا sql = & id ، title ، المؤلف ، التاريخ ، الزيارات ، l.layoutfilename من المقالة A INNER JOIN LANEOUT L على l.layoutid = layoutid حيث تم حذفه = false و seved = true a nd & streke & id <> & id & order بواسطة ID DESC تعيين rs = const.execute (SQL) إذا titlelen <0 أو titlelen> 255 ثم tintlelen = 50 إذا كان rs.bof و rs.eof ثم استجابة. لا يوجد لدى الكتابة مقالات ذات صلة آخر افعل بينما لا rs.eof Response.write <a href = '& rs (layoutfilename) & id؟ الوقت: Rs.Movenext حلقة إنهاء إذا Rs.close تعيين روبية = لا شيء نهاية الفرعية ٪> |
بعد تحديد هذه العملية ، ثم استبدل علامة القالب في ملف الصفحة الثابتة
(مثل: htmlmake.asp)
| ما يلي هو جزء الرمز: Pencat = استبدال (Pencat ، [Xianghuanlist] ، عرض الترابط (5،20)) |
سيؤدي ذلك إلى إنشاء صفحة ثابتة مع قائمة بالمقالات ذات الصلة!
الجزء الأحمر هو العبارة الأساسية التي يمكن زرعها فقط.