Im Folgenden werden nur relevante Ideen und Schlüsselcodes bereitgestellt und nur die einfachste Algorithmusimplementierung bereitgestellt. Etwas komplexere Algorithmen werden in diesem Artikel nicht vorgestellt. Beim Hinzufügen im Hintergrund legen wir normalerweise ein Schlüsselwort fest, und die allgemeine Eingabe kann wie folgt lauten:
Puppen, Stoffpuppen, japanische aufblasbare Puppen
Auf dieser Grundlage werden wir dies tun. Die spezifische Implementierung ist wie folgt:
Schauen wir uns zunächst eine SQL-Anweisung an:
Kopieren Sie den Codecode wie folgt:
Wählen Sie die Top 3 Sid,sname aus dem Produkt mit Schlüsselwörtern wie „%doll%“ oder Schlüsselwörtern wie „%plush doll%“ oder Schlüsselwörtern wie „%日本 aufblasbare Puppe%“ aus.
Dann können wir basierend auf dieser Aussage nach verwandten Produkten oder Artikeln suchen (tatsächlich gibt es komplexere und bessere Implementierungen, aber wir werden sie hier vorerst nicht erwähnen. Das Folgende ist der Schlüsselcode:
Kopieren Sie den Codecode wie folgt:
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<% Response.Charset=gb2312 %>
<%
Dim A:A = Puppe, Plüschpuppe, japanische aufblasbare Puppe
'obj ist der Wert, filed ist der Feldname
Funktion sqlKeyWord(obj,field)
Dim temp:temp = split(obj,,)
Für i = 0 Zu ubound(temp)
sqlKeyWord = sqlKeyWord & field& like '%&temp(i)&%' oder
Nächste
sqlKeyWord = left(sqlKeyWord,len(sqlKeyWord)-3)
Funktion beenden
Dimmen Sie mysql:mysql=, wählen Sie die Top 3 sid,sname aus dem Produkt aus, wobei + sqlKeyWord(A,keywords)
Response.Write(mysql)
'Set objRs = objConn.execute(mysql)
'Do, während nicht objRs.Eof
'Response.Write(objRs(sname))
'Schleife
'objRs.close
'set objRs = nichts
'objConn.close
'set objConn = nichts
%>