Par exemple, le titre est: Tencent QQ2006 Polypes Version intégrée V4.5b
Après la segmentation des mots: [ce mot-clé de ressource: Tencent QQ Polypes intégration]
Et faire des mots clés en sujets spéciaux, et vous pouvez générer des connexions connexes pour chaque page de contenu.
Utilisez le composant de segmentation des mots chinois CSW
Télécharger: http://www.vgoogle.net/product_csw.asp
Vous trouverez ci-dessous mon code ASP, qui est relativement simple, mais pratique
Codecsw obtient tous les résultats des résultats de segmentation des mots. Il y a un fichier ASP dans l'assemblage. Vous pouvez dire comment obtenir des résultats de segmentation des mots en un coup d'œil. Je n'entrerai pas dans les détails.
La copie de code est la suivante:
fCon = Split (htm, "")
FCS = UBUND (FCON)
forfci = 0tofcs
iffcimod2 = 0THEN
fcn = fcn & fcon (fci) & "$ fc ^ # $" 'J'utilise $ fc ^ # $ pour diviser chaque segmentation de mot ici
autre
FCW = FCW & FCON (FCI) & "$ fc ^ # $"
endire
suivant
fcn = Left (fcn, len (fcn) -12) 'supprimer le premier $ fc ^ # $
FCW = Left (FCW, LEN (FCW) -6) Supprimez le dernier $ FC ^ # $
Don = Split (fcn, "$ fc ^ # $")
Donn = Split (FCW, "$ fc ^ # $")
DOS = UBUND (Don)
fordoi = 0todos
fcname = Don (doi) 'Obtenez un participe
fcsx = donn (doi) 'Obtenez le mot attribut de participe
«Ce qui suit est de juger que le participe est conforme aux attributs que j'ai proposés, tels que des noms, des noms, des verbes, etc., à l'exclusion des chiffres, des mots abacus et de conjonction.
iffcsx = "/ b" orfcsx = "/ nz" orfcsx = "/ n" orfcsx = "/ an" orfcsx = "/ nx" orfcsx = "/ f" orfcsx = "/ i" orfcsx = "/ l" orfcsx = "/ i ng "orfcsx =" / nr "orfcsx =" / nns "orfcsx =" / nt "orfcsx =" / nz "orfcsx =" / v "orfcsx =" / vn "orfcsx =" / s "orfcsx =" / g "
iflen (fcname)> 1Then
iFinstr (fcname1, fcname & "$") puis
autre
iffcname <> "" etfcname <> "" puis
fcname = remphier (remplacer (remplacer (Trim (fcname), chr (10), ""), chr (13), ""), chr (10) & chr (13), "") 'supprimer le mot de la ligne de participe pause et entrer la touche
iflen (fcname)> 1Then
«Ceci est la bibliothèque de segmentation des mots. Ma bibliothèque de segmentation de mots n'a que trois champs, ID automatique, nom de segmentation des mots et identifiant de contenu à quel
Setrs = createObject ("adodb.recordSet")
sql = "selecttop1 * fromfcwherefcname = '" & fcname & "'"
Rs.OpenSQL, Conn, 1,3
ifrs.eofthen
Rs.Addnew
endire
rs ("fcname") = fcname
iFinstr (rs ("mid"), "," & id & ",") puis
autre
rs ("mid") = rs ("mid") & "," & id & ","
endire
Rs.Update
Rs.Close
setrs = rien
'Le mot participe se termine
endire
endire
réponse.writefcname & "(" & fcsx & ") <br>"
mfc = mfc & fcname & ","
endire
fcname1 = fcname1 & fcname & "$"
endire
endire
suivant
«Voici l'ajout de participe à la table de contenu. Dans la table de contenu, je n'ai ajouté qu'un seul champ de participe MFC
ifright (mfc, 1) = "$" thenmfc = gauche (MFC, Len (MFC) -1)
Setrs = createObject ("adodb.recordSet")