Recomendado: 20 ejemplos muy útiles en programación ASP (i) 1. Cómo usar ASP para determinar la ruta física virtual de su sitio web Respuesta: Use el método Mappath: < % = Server.Mappath () %> 2. Respuesta: use el método de objeto de solicitud:
Hace algún tiempo, para agregar la función de suscripción RSS al sitio de la película, escribí un código ASP que genera dinámicamente RSS Feed. Como el sitio de la película lo obtendrá directamente. La alimentación RSS generada está codificada por UTF-8, está verificada por FeedValidator.org y es compatible con RSS 2.0 y Atom.
Cómo usar: Guarde el siguiente código como RSS.asp (recuerde guardarlo en formato UTF-8) y cargarlo en el directorio de la raíz del sitio web. Tu nombre de dominio /rss.asp
Demostración: http://www.366mv.cn
El código es el siguiente.
| <%@Lenguaje = VBScript CodePage = 65001%> <% Session.Codepage = 65001 Respuesta.Charset = UTF-8 '=================================================== ================== ================================== 'Copyright (c) 2005-2007, Sour Liu Liu Film and Television ([URL] www.366mv.cn [/url]) Todos los derechos reservados. '=================================================== ================== ================================== 'Nombre: rss.asp 'Descripción: Genere dinámicamente la alimentación RSS. '=================================================== ================== ================================== %> <!-#include file = inc/conn.asp-> <? Xml versión = 1.0 encoding = utf-8?> <versión rss = 2.0 xmlns: atom = http: //www.w3.org/2005/atom> <% title = Souliao Liu Film and Television 'Cambia a tu propio nombre Response.Write <Nenel> & Chr (13) Response.Write <Atom: Link href = http: //&maxz_2&/xml.asp rel = self type = application/rss xml/> & chr (13) Response.Write <title> Últimos videos actualizados - & Title & </title> & chr (13) Response.Write <Nink> http: // & maxz_2 & </link> & chr (13) Response.Write <Scuion> & Title & - Vea diez mil videos en línea. Películas gratuitas, películas en línea, TVB, dramas japoneses, dramas coreanos, animación, ciencia ficción, horror, romance, series de televisión, éxitos de taquilla, películas de Año Nuevo ... </scription> y chr (13) Response.write get_left (15,0) 'Mostrar los primeros 15 videos, ordenados por fecha de actualización Response.Write </Channel> & Chr (13) Función re (str) Si no es isnull (str) entonces re = reemplazar (str, &, y) re = reemplazar (re, <, <) re = reemplazar (re,>,>) re = reemplazar (re, ', & apos;) re = reemplazar (re ,,) Final si Función final Función get_left (n, m) n = cint (n): m = cint (m) Si m = 1 entonces mm = orden por zt_hits descr 'ordenado por clics Demás mm = pedido por zt_date descr 'ordenado por fecha de actualización Final si Establecer rs1 = conn.execute (seleccione Top & N & ZT_ID, ZT_NAME, ZT_ZY, ZT_DY, ZT_TYPE, ZT_DATE, ZT_HITS, ZT_CONTENT DE ZT_DATA Y MM) get_left_i = 0 Haz mientras no rs1.eof get_left_i = get_left_i 1 get_left = get_left & <emem> & chr (13) get_left = get_left & <title> & re (rs1 (zt_name)) & </title> & chr (13) get_left = get_left & <link> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) &/& rs1 (zt_id) & </link> & chr (13) get_left = get_left & <Scuidion> <! [CDATA [<P> Categoría: <a href = http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) &> & get_classname (rs1 (zt_type)) & </a> </p > <p> protagonizando: & rs1 (zt_zy) & </p> <p> trama: & re (rs1 (zt_content)) y </p>]]> </scuidt> & chr (13) get_left = get_left & <ugud> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) &/& rs1 (zt_id) & </guía> & chr (13) get_left = get_left & <category> <! [CDATA [& get_classname (RS1 (ZT_TYPE)) &]]> </Categoría> & Chr (13) get_left = get_left & <bubdate> & datetorfc822 (rs1 (zt_date)) & </pubdate> & chr (13) get_left = get_left & </elemento> & chr (13) Si get_left_i> = n entonces salga rs1.movenext Bucle rs1.lose Función final Function dataTorFC822 (BYVAL DTAVAL) Dim strcurlocale: strcurlocale = getLocale () SetLocale (en-gb) dtaval = cdate (dtaval) DatToRFC822 = WeekDayName (WeekDAY (DTAVAL), True) &, & _ Derecho (0 y día (Dtaval), 2) & & _ MonthName (mes (dtaval), verdadero) & & _ Año (dtaval) & & _ Derecho (0 y hora (Dtaval), 2) y: & _ Derecho (0 y minuto (dtaval), 2) y: & _ Derecho (0 y segundo (Dtaval), 2) & & _ 0800 SetLocale (Strcurlocale) Función final %> </rss> |
Compartir: ¿Cómo puede ASP obtener la primera dirección de imagen en el código? 'Modifique el patrón de nuevo'code para detectar el código'http: //www.knowsky.com/asp.asp'leixing html o el código ubb'nópico no tiene función de imagen toppic (código, leixing, nopic) set regex = ne