asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取

fcon=split(htm," 
")
fcs=ubound(fcon)
for 
fci=0 
to 
fcs
if 
fci 
mod 
2=0 
then
fcn=fcn&fcon(fci)&"$fc^
#$" 
 
&apos
我这里用$fc^
#$来分割每个分词
else
fcw=fcw&fcon(fci)&"$fc^
#$"
end 
if

next
fcn=left(fcn,len(fcn)-12) 
&apos
去掉最前面的$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) 
 
&apos
得到分词
fcsx=donn(doi) 
 
 
&apos
得到分词属性
&apos
下面是判断分词符合我所提出的属性，比如名词、名动词、动词等，排除了数词、状词和连接词等。
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),"") 
&apos
去除分词的换行和回车键
if 
len(fcname)>1 
then
&apos
这里是分词入库，我的分词库只有三个字段，自动ID、分词名称和分词所属的内容ID
Set 
Rs 
= 
CreateObject("ADODB.Recordset")
sql="select 
top 
1 
* 
from 
fc 
where 
fcname=&apos
"&fcname&"&apos
"
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
&apos
分词入库结束
end 
if
end 
if
response.write 
fcname&"("&fcsx&")
"
mfc=mfc&fcname&","
end 
if
fcname1=fcname1&fcname&"$"
end 
if
end 
if
next
&apos
这里是将分词添加到内容表，在内容表我只多加了一个分词字段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