Ce qui suit est le fragment de code: <% '=======================================. 'Nom du processus: Showcorrelative 'Fonction: montrez des articles connexes 'Paramètres: Articlenum ---- combien d'articles sont affichés au maximum 'Titlelen ---- Le nombre de caractères dans le titre, un caractère chinois = deux caractères anglais '=======================================. Sub Showcorrelave (Articlenum, Titlelen) DIM RS, SQL Dim Strkey, Arkeke, je Si Articlenum> 0 et Articlenum <= 100 alors SQL = SELECT TOP & ARTICLENUM autre SQL = Sélectionner le top 5 terminer si 'Utiliser | Symboles pour diviser les mots clés StrKey = Mid (Rs (clé), 2, Len (RS (clé)) - 2) Si instr (strkey, |)> 1 alors Arrkey = Split (Strkey, |) Strkey = ((clé comme '% | & arrkey (0) & |%') pour i = 1 à Ubound (Arkeke) Strkey = Strkey & ou (clé comme '% | & arrkey (i) & |%') suivant Strkey = Strkey &) autre Strkey = (clé comme '% | & Strkey & |%') terminer si Sql = & id, titre, auteur, date, coup Par id desc Set rs = const.execute (sql) Si Titlelen <0 ou Titlelen> 255 alors tintlelen = 50 Si Rs.Bof et Rs.Eof alors Response.Write n'a pas d'articles connexes autre faire tout en pas Rs.Eof Response.Write <a href = '& rs (LayoutFileName) &? Heure: & rs (Date) & vBcrlf & clics: & rs (hits) & '> & gottopic (rs (titre), titlelen) & </a> Rs.MovEnext boucle terminer si Rs.Close Définir RS = rien Sub-Sub %> |
Après avoir défini ce processus, remplacez la marque de modèle dans le fichier de la page statique
(Comme: htmlmake.asp)
| Ce qui suit est le fragment de code: Pencat = remplacer (Pencat, [Xianghuanlist], showcorrelative (5,20)) |
Cela générera une page statique avec une liste d'articles connexes!
La partie rouge est l'énoncé de base qui peut être transplanté uniquement.
Ce qui suit est le fragment de code: <% '=======================================. 'Nom du processus: Showcorrelative 'Fonction: montrez des articles connexes 'Paramètres: Articlenum ---- combien d'articles sont affichés au maximum 'Titlelen ---- Le nombre de caractères dans le titre, un caractère chinois = deux caractères anglais '=======================================. Sub Showcorrelave (Articlenum, Titlelen) DIM RS, SQL Dim Strkey, Arkeke, je Si Articlenum> 0 et Articlenum <= 100 alors SQL = SELECT TOP & ARTICLENUM autre SQL = Sélectionner le top 5 terminer si 'Utiliser | Symboles pour diviser les mots clés StrKey = Mid (Rs (clé), 2, Len (RS (clé)) - 2) Si instr (strkey, |)> 1 alors Arrkey = Split (Strkey, |) Strkey = ((clé comme '% | & arrkey (0) & |%') pour i = 1 à Ubound (Arkeke) Strkey = Strkey & ou (clé comme '% | & arrkey (i) & |%') suivant Strkey = Strkey &) autre Strkey = (clé comme '% | & Strkey & |%') terminer si Sql = & id, titre, auteur, date, coup Par id desc Set rs = const.execute (sql) Si Titlelen <0 ou Titlelen> 255 alors tintlelen = 50 Si Rs.Bof et Rs.Eof alors Response.Write n'a pas d'articles connexes autre faire tout en pas Rs.Eof Response.Write <a href = '& rs (LayoutFileName) &? Heure: & rs (Date) & vBcrlf & clics: & rs (hits) & '> & gottopic (rs (titre), titlelen) & </a> Rs.MovEnext boucle terminer si Rs.Close Définir RS = rien Sub-Sub %> |
Après avoir défini ce processus, remplacez la marque de modèle dans le fichier de la page statique
(Comme: htmlmake.asp)
| Ce qui suit est le fragment de code: Pencat = remplacer (Pencat, [Xianghuanlist], showcorrelative (5,20)) |
Cela générera une page statique avec une liste d'articles connexes!
La partie rouge est l'énoncé de base qui peut être transplanté uniquement.