على سبيل المثال ، العنوان هو: Tencent QQ2006 Polyps integrated Version v4.5b
بعد تجزئة الكلمات: [هذه الكلمة الرئيسية للموارد: تكامل Polyps Tencent QQ]
وجعل الكلمات الرئيسية في مواضيع خاصة ، ويمكنك إنشاء اتصالات ذات صلة لكل صفحة محتوى.
استخدم مكون تجزئة الكلمات الصينية CSW
تنزيل: http://www.vgoogle.net/product_csw.asp
فيما يلي رمز ASP الخاص بي ، وهو بسيط نسبيًا ، لكنه عملي
CodecSW يحصل على جميع نتائج تجزئة الكلمات. هناك ملف ASP في التجميع. يمكنك معرفة كيفية الحصول على نتائج تجزئة الكلمات في لمحة. لن أخوض في التفاصيل.
نسخة الكود كما يلي:
fcon = انقسام (htm ، "")
FCS = Ubund (FCON)
forfci = 0tofcs
iffcimod2 = 0then
fcn = fcn & fcon (fci) & "$ fc^#$" 'أنا استخدم $ fc^#$ لتقسيم كل كلمة تجزئة هنا
آخر
fcw = fcw & fcon (fci) و "$ fc^#$"
Endif
التالي
fcn = left (fcn ، len (fcn) -12) 'قم بإزالة أول $ fc^#$
fcw = اليسار (FCW ، LEN (FCW) -6) قم بإزالة آخر $ fc^#$
don = split (fcn ، "$ fc^#$")
donn = split (fcw ، "$ fc^#$")
dos = ubund (don)
fordoi = 0todos
fcname = don (doi) 'احصل على النعت
fcsx = donn (doi) 'احصل على سمة كلمة النعت
"ما يلي هو الحكم على أن النعت يتماشى مع السمات التي اقترحتها ، مثل الأسماء والأسماء والأفعال ، وما إلى ذلك ، باستثناء الأرقام ، Abacus و Collunction.
iffcsx = "/b" orfcsx = "/nz" orfcsx = "/n" orfcsx = "/an" orfcsx = "/nx" orfcsx = "/f" orfcsx = ng "orfcsx ="/nr "orfcsx ="/nns "orfcsx ="/nt "orfcsx ="/nz "orfcsx ="/v "orfcsx ="/vn "orfcsx ="/s "orfcsx ="/g "ثم
iflen (fcname)> 1then
Ifinstr (fcname1 ، fcname & "$") ثم
آخر
iffcname <> "" و fcname <> "" ثم
fcname = استبدال (استبدال (استبدال (trim (fcname) ، chr (10) ، "") ، chr (13) ، "") ، chr (10) و chr (13) ، "") "إزالة خط النعت النعت ودخل المفتاح
iflen (fcname)> 1then
هذه هي مكتبة تجزئة الكلمات. تحتوي مكتبة تجزئة الكلمات على ثلاثة حقول فقط ، معرف تلقائي ، اسم تجزئة الكلمات ومعرف المحتوى الذي ينتمي إليه تجزئة الكلمات
setrs = createObject ("adodb.recordset")
sql = "selectTop1*fromfcwherefcname = '" & fcname & "' ''
Rs.Opensql ، Conn ، 1،3
ifrs.eofthen
Rs.Addnew
Endif
RS ("fcname") = fcname
Ifinstr (rs ("mid") ، "،" & id & "،") ثم
آخر
RS ("Mid") = RS ("Mid") و "،" & id & "،" ، "
Endif
Rs.update
Rs.close
setRs = لا شيء
تنتهي كلمة النعت
Endif
Endif
Response.writefcname & "(" & fcsx & ") <br>"
MFC = MFC & FCNAME & "،"
Endif
fcname1 = fcname1 & fcname & "$"
Endif
Endif
التالي
هنا يضيف النعت إلى جدول المحتوى. في جدول المحتوى ، أضفت فقط حقل النعت MFC واحد فقط
ifright (mfc ، 1) = "$" thermfc = left (mfc ، len (mfc) -1)
setRs = createObject ("Adodb.RecordSet")