Misalnya, judulnya adalah: Tencent QQ2006 Polips Terpadu Versi V4.5B
After Word Segmentation: [Kata kunci sumber daya ini: integrasi polip qq tencent]
Dan membuat kata kunci menjadi topik khusus, dan Anda dapat menghasilkan koneksi terkait untuk setiap halaman konten.
Gunakan Komponen Segmentasi Kata Cina CSW
Unduh: http://www.vgoogle.net/product_csw.asp
Di bawah ini adalah kode ASP saya, yang relatif sederhana, tetapi praktis
Codecsw mendapatkan semua output hasil segmentasi kata. Ada file ASP di perakitan. Anda dapat mengetahui cara mendapatkan hasil segmentasi kata secara sekilas. Saya tidak akan membahas detailnya.
Salinan kode adalah sebagai berikut:
fcon = split (htm, "")
fcs = ubund (fcon)
forfci = 0tofcs
iffcimod2 = 0then
fcn = fcn & fcon (fci) & "$ fc^#$" 'Saya menggunakan $ fc^#$ untuk membagi setiap segmentasi kata di sini
kalau tidak
fcw = fcw & fcon (fci) & "$ fc^#$"
endif
Berikutnya
fcn = kiri (fcn, len (fcn) -12) 'hapus $ fc^#$ pertama
fcw = kiri (fcw, len (fcw) -6) Hapus $ fc terakhir^#$
don = split (fcn, "$ fc^#$")
donn = split (fcw, "$ fc^#$")
dos = ubund (don)
fordoi = 0todos
fcname = don (doi) 'dapatkan participle
fcsx = donn (doi) 'Dapatkan atribut kata participle
'Berikut ini adalah menilai bahwa Participle sejalan dengan atribut yang telah saya usulkan, seperti kata benda, kata benda, kata kerja, dll., Tidak termasuk angka, abacus dan kata -kata konjungsi.
iffcsx = "/b" orfcsx = "/nz" orfcsx = "/n" orfcsx = "/an" orfcsx = "/nx" orfcsx = "/f" orfcsx = "/i" orfcsx = "/l" orfcsx = "/ ng "orfcsx ="/nr "orfcsx ="/nns "orfcsx ="/nt "orfcsx ="/nz "orfcsx ="/v "orfcsx ="/vn "orfcsx ="/s "orfcsx ="/g "itu
iflen (fcName)> 1then
ifinstr (fcname1, fcname & "$") lalu
kalau tidak
iffcname <> "" andfcname <> "" lalu
fcname = ganti (ganti (ganti (trim (fcname), chr (10), ""), chr (13), ""), chr (10) & chr (13), "") 'Hapus kata participle line break dan masukkan tombol
iflen (fcName)> 1then
'Ini adalah Pustaka Segmentasi Kata. Perpustakaan Segmentasi Kata saya hanya memiliki tiga bidang, ID otomatis, nama segmentasi kata dan ID konten yang menjadi milik segmentasi kata
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 & ",") Lalu
kalau tidak
rs ("mid") = rs ("mid") & "," & id & ","
endif
rs.update
rs.close
setRs = tidak ada
'Kata participle berakhir
endif
endif
response.writefcname & "(" & fcsx & ") <br>"
mfc = mfc & fcname & ","
endif
fcname1 = fcname1 & fcname & "$"
endif
endif
Berikutnya
'Di sini menambahkan Participle ke tabel konten. Di tabel konten, saya hanya menambahkan satu bidang participle MFC
IFRIGHT (MFC, 1) = "$" ThenMFC = Left (MFC, Len (MFC) -1)
SetRs = createObject ("adodb.recordset")