ASP网站后台关键字设置程序是怎样实现的?
- 提问者网友：遮云壑
- 2021-04-13 14:37
- 五星知识达人网友：天凉才是好个秋
- 2021-04-13 15:48
这问题好像有点模糊。
如果是MATE 的KEYWORDS，最简单的方法，后台只要把关键字存到数据库，前台显示就可以了。
如：<meta content="<%=rs("keywords")%>" name="keywords">
- 1楼网友：洒脱疯子
- 2021-04-13 17:05
自动提取关键字？这涉及了中文分词技术。很强大的技术。google也做不好，BAIDU做好了。
参考：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Call cn_split("可乐猪是最靓仔最聪明最聪明最白痴的一条猪", 4) Function cn_split(str, x) Dim a, b 'As String Dim i, j, flag, max, temp_str a = str b = "可乐猪 靓仔 聪明 聪明 白痴 " '分词 For i = 1 To Len(a) For j = 2 To x a = a & Mid(a, i, j) & " " Next Next a = Split(a, " ") b = Split(b, " ") max = UBound(a) '过滤重复字符串 For i = 0 To max - 1 flag = a(i) For j = i + 1 To max - 1 If a(j) = flag And flag <> "" Then a(j) = "" End If Next If a(i) <> "" Then temp_str = temp_str & a(i) & " " End If Next '筛选字符串 a = Split(temp_str, " ") temp_str = "" For i = 0 To UBound(b) - 1 flag = b(i) For j = 0 To UBound(a) - 1 If a(j) = flag Then temp_str = temp_str & a(j) & " " End If Next Next Response.Write temp_str End Function %>