El siguiente es el fragmento de código: <% '=========================================== 'Nombre del proceso: showcorrelativo 'Función: Mostrar artículos relacionados 'Parámetros: Articlenum ---- ¿Cuántos artículos se muestran como máximo? 'Titlelen ---- El número de caracteres en el título, un personaje chino = dos caracteres ingleses '=========================================== Sub showcorrelave (Articlenum, Titlelen) Dim RS, SQL Dim strkey, arrkey, yo Si Articlenum> 0 y Articlenum <= 100 entonces SQL = Seleccionar Top y Articlenum demás SQL = Seleccione Top 5 final si 'Usar los símbolos para dividir las palabras clave Strkey = Mid (RS (Key), 2, Len (RS (Key))-2) if instrer (strkey, |)> 1 entonces Arrkey = dividido (strkey, |) strkey = ((clave como '% | & arrkey (0) & |%') para i = 1 a Ubound (arrkey) Strkey = strkey & o (clave como '% | & arrkey (i) & |%') próximo Strkey = strkey &) demás Strkey = (clave como '% | & strkey & |%') final si Sql = & id, título, autor, fecha, éxitos, l.layoutFileName del artículo un diseño de unión interna l en l.layoutid = Layoutid Where eliminado = falso y aprobado = true a nd & strkey & id <> & id & orden Por ID DESC Establecer rs = const.execute (SQL) Si Titlelen <0 o Titlelen> 255 entonces TintLelen = 50 Si Rs.Bof y Rs.Eof entonces Respuesta. Write no tiene artículos relacionados demás haz mientras no rs.eof Response.write <a href = '& rs (LayoutFileName) &? Hora: & rs (fecha) y vbcrlf & clics: & rs (hits) & '> & gottópico (RS (título), Titlelen) y </a> Rs.Movenext bucle final si Rs. establecer RS = nada final %> |
Después de definir este proceso, luego reemplace la marca de plantilla en el archivo de la página estática
(Como: htmlmake.asp)
| El siguiente es el fragmento de código: Pencat = reemplazar (pencat, [xianghuanlist], showcorrelative (5,20)) |
¡Esto generará una página estática con una lista de artículos relacionados!
La parte roja es la declaración central que solo puede ser trasplantada.
El siguiente es el fragmento de código: <% '=========================================== 'Nombre del proceso: showcorrelativo 'Función: Mostrar artículos relacionados 'Parámetros: Articlenum ---- ¿Cuántos artículos se muestran como máximo? 'Titlelen ---- El número de caracteres en el título, un personaje chino = dos caracteres ingleses '=========================================== Sub showcorrelave (Articlenum, Titlelen) Dim RS, SQL Dim strkey, arrkey, yo Si Articlenum> 0 y Articlenum <= 100 entonces SQL = Seleccionar Top y Articlenum demás SQL = Seleccione Top 5 final si 'Usar los símbolos para dividir las palabras clave Strkey = Mid (RS (Key), 2, Len (RS (Key))-2) if instrer (strkey, |)> 1 entonces Arrkey = dividido (strkey, |) strkey = ((clave como '% | & arrkey (0) & |%') para i = 1 a Ubound (arrkey) Strkey = strkey & o (clave como '% | & arrkey (i) & |%') próximo Strkey = strkey &) demás Strkey = (clave como '% | & strkey & |%') final si Sql = & id, título, autor, fecha, éxitos, l.layoutFileName del artículo un diseño de unión interna l en l.layoutid = Layoutid Where eliminado = falso y aprobado = true a nd & strkey & ed <> & id & orden Por ID DESC Establecer rs = const.execute (SQL) Si Titlelen <0 o Titlelen> 255 entonces TintLelen = 50 Si Rs.Bof y Rs.Eof entonces Respuesta. Write no tiene artículos relacionados demás haz mientras no rs.eof Response.write <a href = '& rs (LayoutFileName) &? Hora: & rs (fecha) y vbcrlf & clics: & rs (hits) & '> & gottópico (RS (título), Titlelen) y </a> Rs.Movenext bucle final si Rs. establecer RS = nada final %> |
Después de definir este proceso, luego reemplace la marca de plantilla en el archivo de la página estática
(Como: htmlmake.asp)
| El siguiente es el fragmento de código: Pencat = reemplazar (pencat, [xianghuanlist], showcorrelative (5,20)) |
¡Esto generará una página estática con una lista de artículos relacionados!
La parte roja es la declaración central que solo puede ser trasplantada.