快捷導(dǎo)航

asp中利用CSW中文分詞組件來(lái)實(shí)現(xiàn)自己網(wǎng)站的內(nèi)容關(guān)鍵詞自動(dòng)提取

更新時(shí)間：2007年03月09日 00:00:00 作者：

比如標(biāo)題是：騰訊QQ 2006 珊瑚蟲集成版 v4.5b
分詞后：[此資源關(guān)鍵詞:騰訊 QQ 珊瑚蟲集成 ]
并且把關(guān)鍵詞做成專題，可以為每個(gè)內(nèi)容頁(yè)面生成相關(guān)連接了
用CSW中文分詞組件
下載：http://www.vgoogle.net/Product_CSW.asp
下面是我的ASP代碼，比較粗淺，但實(shí)用

codecsw 得到輸出的所有分詞結(jié)果，用它的組建里面有個(gè)ASP文件，你一看就知道怎么得到分詞結(jié)果了，這個(gè)不詳細(xì)說(shuō)了。

復(fù)制代碼代碼如下:

fcon=split(htm," ") 
fcs=ubound(fcon) 
for fci=0 to fcs 
if fci mod 2=0 then 
fcn=fcn&fcon(fci)&"$fc^#$"  '我這里用$fc^#$來(lái)分割每個(gè)分詞 
else 
fcw=fcw&fcon(fci)&"$fc^#$" 
end if 

next 
fcn=left(fcn,len(fcn)-12) '去掉最前面的$fc^#$ 
fcw=left(fcw,len(fcw)-6) 去掉最后面的$fc^#$ 
don=split(fcn,"$fc^#$") 
donn=split(fcw,"$fc^#$") 
dos=ubound(don) 
for doi=0 to dos 
fcname=don(doi)  '得到分詞 
fcsx=donn(doi)   '得到分詞屬性 
'下面是判斷分詞符合我所提出的屬性，比如名詞、名動(dòng)詞、動(dòng)詞等，排除了數(shù)詞、狀詞和連接詞等。 
if fcsx="/b" or fcsx="/nz" or fcsx="/n" or fcsx="/an" or fcsx="/nx" or fcsx="/f" or fcsx="/i" or fcsx="/l" or fcsx="/ng" or fcsx="/nr" or fcsx="/ns" or fcsx="/nt" or fcsx="/nz" or fcsx="/v" or fcsx="/vn" or fcsx="/s" or fcsx="/g" then 
if len(fcname)>1 then 
if instr(fcname1,fcname&"$") then 
else 
if fcname<>" " and fcname<>"" then 
fcname=replace(replace(replace(trim(fcname),chr(10),""),chr(13),""),chr(10)&chr(13),"") '去除分詞的換行和回車鍵 
if len(fcname)>1 then 
'這里是分詞入庫(kù)，我的分詞庫(kù)只有三個(gè)字段，自動(dòng)ID、分詞名稱和分詞所屬的內(nèi)容ID 
Set Rs = CreateObject("ADODB.Recordset") 
sql="select top 1 * from fc where fcname='"&fcname&"'" 
rs.open sql,conn,1,3 
if rs.eof then 
rs.addnew 
end if 
rs("fcname")=fcname 
if instr(rs("mid"),","&id&",") then 
else 
rs("mid")=rs("mid")&","&id&"," 
end if 
rs.update 
rs.close 
set rs=nothing 
'分詞入庫(kù)結(jié)束 
end if 
end if 
response.write fcname&"("&fcsx&")<br>" 
mfc=mfc&fcname&"," 
end if 
fcname1=fcname1&fcname&"$" 
end if 
end if 
next 
'這里是將分詞添加到內(nèi)容表，在內(nèi)容表我只多加了一個(gè)分詞字段mfc 
if right(mfc,1)="$" then mfc=left(mfc,len(mfc)-1) 
Set Rs = CreateObject("ADODB.Recordset") 
sql="select top 1 mfc from m where mid="&id 
rs.open sql,conn,1,3 
rs("mfc")=mfc 
rs.update 
rs.close 
set rs=nothing 
end if