Например, название: Tencent QQ2006 Polyps Integrated Version V4.5B
После сегментации слова: [Ключевое слово этого ресурса: интеграция Tencent QQ Polyps]
И сделать ключевые слова в специальные темы, и вы можете создавать связанные соединения для каждой страницы контента.
Используйте компонент сегментации Word CSW
Скачать: http://www.vgoogle.net/product_csw.asp
Ниже приведен мой код ASP, который относительно простой, но практичный
Codecsw получает все результаты сегментации слова. В сборке есть файл ASP. Вы можете сказать, как получить результаты сегментации слова с первого взгляда. Я не буду вдаваться в подробности.
Кода -копия выглядит следующим образом:
fcon = split (htm, "")
fcs = ubund (fcon)
forfci = 0TOFCS
iffcimod2 = 0then
fcn = fcn & fcon (fci) & "$ fc^#$" 'Я использую $ fc^#$, чтобы разделить каждую сегментацию слова здесь
еще
fcw = fcw & fcon (fci) & "$ fc^#$"
эндиф
следующий
fcn = left (fcn, len (fcn) -12) 'Удалите первый $ fc^#$
FCW = Left (FCW, Len (FCW) -6) Удалите последний $ fc^#$
don = split (fcn, "$ fc^#$")
donn = split (fcw, "$ fc^#$")
dos = ubund (Don)
fordoi = 0todos
fcname = don (doi) 'Получите причастие
fcsx = donn (doi) 'Получите слово атрибут причастия
«Следующее должно судить о том, что причастие соответствует предложенным мне атрибутам, таким как существительные, существительные, глаголы и т. Д., За исключением цифр, абакуса и слов соединения.
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 & "$")
еще
iffcname <> "" andfcname <> "" then
fcname = reply (reply (reply (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
эндиф
rs ("fcname") = fcname
ifinstr (rs ("mid"), "," & id & ",")
еще
rs ("mid") = rs ("mid") & "," & id & ","
эндиф
Rs.Update
Rs.close
setrs = ничего
'Слово причастие заканчивается
эндиф
эндиф
response.writefcname & "(" & fcsx & ") <br>"
mfc = mfc & fcname & ","
эндиф
fcname1 = fcname1 & fcname & "$"
эндиф
эндиф
следующий
«Здесь добавляет причастие в таблице контента. В таблице контента я добавил только одно поле причастия MFC
ifright (mfc, 1) = "$" thenmfc = left (mfc, len (mfc) -1)
Setrs = createObject ("adodb.recordset")