Das Folgende ist das Codefragment: <% '================================================ 'Prozessname: Showcorrelative 'Funktion: Zeigen Sie verwandte Artikel 'Parameter: Articlenum ---- Wie viele Artikel werden höchstens angezeigt 'Titlelen ---- Die Anzahl der Zeichen im Titel, ein chinesischer Charakter = zwei englische Zeichen '================================================ Sub -Showcorrelave (Articlenum, Titlelen) Dim Rs, Sql Dim Strkey, Arrakey, ich Wenn Articlenum> 0 und Articlenum <= 100 dann SQL = Wählen Sie Top & Articlenum anders SQL = Top 5 auswählen Ende wenn 'Verwenden Sie |. Strkey = Mid (RS (Schlüssel), 2, Len (Rs (Schlüssel))-2) Wenn Instrument (Strkey, |)> 1 dann Arrkey = split (strkey, |) Strkey = ((Schlüssel wie '% | & arrkey (0) & |%') für i = 1 bis ubound (Arrakey) Strkey = Strkey & oder (Schlüssel wie '% | & arrkey (i) & |%') nächste Strkey = Strkey &) anders Strkey = (Schlüssel wie '% | & Strkey & |%') Ende wenn SQL = & ID, Titel, Autor, Datum, Hits, L.LayoutFileName aus Artikel A Innere Join Layout L auf l.layoutid = layoutid, wo deleted = false und bestanden = true a nd & strkey & und id <> & id & order Von id desc Setzen Sie Rs = const.execute (SQL) Wenn Titlelen <0 oder Titlelen> 255 dann tintlelen = 50 Wenn Rs.Bof und rs.eof dann Antwort.Write hat keine verwandten Artikel anders tun, während nicht Rs.Eof Antwort.Write <a href = '& rs (layoutFileName) &? Zeit: & rs (Datum) & VBCRLF & Klicks: & rs (Hits) & '> & Gottopic (RS (Titel), Titlelen) & </a> Rs.Movenext Schleife Ende wenn Rs.close Setzen Sie Rs = nichts Ende sub %> |
Ersetzen Sie nach dem Definieren dieses Vorgangs die Vorlagenmarke in der Datei der statischen Seite
(Wie: htmlmake.asp)
| Das Folgende ist das Codefragment: Pencat = Ersetzen (Pencat, [Xianghuanlist], Showcorrelative (5,20)) |
Dies erzeugt eine statische Seite mit einer Liste verwandter Artikel!
Der rote Teil ist die Kernanweisung, die nur transplantiert werden kann.
Das Folgende ist das Codefragment: <% '================================================ 'Prozessname: Showcorrelative 'Funktion: Zeigen Sie verwandte Artikel 'Parameter: Articlenum ---- Wie viele Artikel werden höchstens angezeigt 'Titlelen ---- Die Anzahl der Zeichen im Titel, ein chinesischer Charakter = zwei englische Zeichen '================================================ Sub -Showcorrelave (Articlenum, Titlelen) Dim Rs, Sql Dim Strkey, Arrakey, ich Wenn Articlenum> 0 und Articlenum <= 100 dann SQL = Wählen Sie Top & Articlenum anders SQL = Top 5 auswählen Ende wenn 'Verwenden Sie |. Strkey = Mid (RS (Schlüssel), 2, Len (Rs (Schlüssel))-2) Wenn Instrument (Strkey, |)> 1 dann Arrkey = split (strkey, |) Strkey = ((Schlüssel wie '% | & arrkey (0) & |%') für i = 1 bis ubound (Arrakey) Strkey = Strkey & oder (Schlüssel wie '% | & arrkey (i) & |%') nächste Strkey = Strkey &) anders Strkey = (Schlüssel wie '% | & Strkey & |%') Ende wenn SQL = & ID, Titel, Autor, Datum, Hits, L.LayoutFileName aus Artikel A Innere Join Layout L auf l.layoutid = layoutid, wo deleted = false und bestanden = true a nd & strkey & und id <> & id & order Von id desc Setzen Sie Rs = const.execute (SQL) Wenn Titlelen <0 oder Titlelen> 255 dann tintlelen = 50 Wenn Rs.Bof und rs.eof dann Antwort.Write hat keine verwandten Artikel anders tun, während nicht Rs.Eof Antwort.Write <a href = '& rs (layoutFileName) &? Zeit: & rs (Datum) & VBCRLF & Klicks: & rs (Hits) & '> & Gottopic (RS (Titel), Titlelen) & </a> Rs.Movenext Schleife Ende wenn Rs.close Setzen Sie Rs = nichts Ende sub %> |
Ersetzen Sie nach dem Definieren dieses Vorgangs die Vorlagenmarke in der Datei der statischen Seite
(Wie: htmlmake.asp)
| Das Folgende ist das Codefragment: Pencat = Ersetzen (Pencat, [Xianghuanlist], Showcorrelative (5,20)) |
Dies erzeugt eine statische Seite mit einer Liste verwandter Artikel!
Der rote Teil ist die Kernanweisung, die nur transplantiert werden kann.