ASP in the use of CSW Chinese phrases to achieve their website content keyword automatic extraction _ Application Skills

For example, the title is: Tencent QQ 2006 Coral integrated version v4.5b
After participle: [This resource keywords: Tencent QQ Coral Integration]
And the keyword into a project, you can for each content page generation related connection
Use CSW Chinese as a phrase
Download: http://www.vgoogle.net/Product_CSW.asp
The following is my ASP code, relatively superficial, but practical

CODECSW get output of all the word segmentation results, with its build inside there is an ASP file, you can see how to get the result of participle, this is not detailed said.

Copy Code code as follows:

Fcon=split (htm, "")
Fcs=ubound (Fcon)
For Fci=0 to FCS
If FCI mod 2=0 then
Fcn=fcn&fcon (FCI) & "$FC ^#$" ' I use $fc^#$ to separate each participle
Else
Fcw=fcw&fcon (FCI) & "$FC ^#$"
End If

Next
Fcn=left (Fcn,len (FCN)-12) ' Remove the front $fc^#$
Fcw=left (Fcw,len (FCW)-6) Remove the rear $fc^#$
Don=split (FCN, "$FC ^#$")
Donn=split (FCW, "$FC ^#$")
Dos=ubound (Don)
For Doi=0 to Dos
Fcname=don (DOI) ' Get participle
Fcsx=donn (DOI) ' Get participle property
' The following is to judge the character that I have proposed, such as nouns, noun verbs, verbs, etc., excluding numerals, words and connectives.
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 "O R 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 (fcname), Chr (a), ""), Chr (""), Chr (13), "" ") ' Remove word break and enter
If Len (fcname) >1 Then
' Here is the word storage, my word-breaker only three fields, automatic ID, word name and the content of the word 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
' Word storage end
End If
End If
Response.Write fcname& "(" &fcsx& ") <br>"
mfc=mfc&fcname& ","
End If
fcname1=fcname1&fcname& "$"
End If
End If
Next
' Here is to add participle to the content table, in the content table I only added a word breaker field 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

In this way, hehe, the content ID of the word list is used, to split, read the time of their own research can be