Recommandé: 20 exemples très utiles dans la programmation ASP (I) 1. Comment utiliser ASP pour déterminer le chemin physique virtuel de votre site Web Réponse: Utilisez la méthode Mappath: <% = server.mappath ()%> 2. Réponse: Utilisez la méthode de l'objet de demande:
Il y a quelque temps, afin d'ajouter une fonction d'abonnement RSS à mon site de film, j'ai écrit un code ASP qui génère dynamiquement le flux RSS. Comme le site de film l'obtiendra directement. L'alimentation RSS générée est codée par UTF-8, est vérifiée par FeedValidator.org et est compatible avec RSS 2.0 et l'atome.
Comment utiliser: Enregistrez le code suivant en tant que RSS.asp (n'oubliez pas de l'enregistrer au format UTF-8) et téléchargez-le dans le répertoire racine du site Web. Votre nom de domaine /rs.asp
Demo: http://www.366mv.cn
Le code est le suivant.
| <% @ Language = codepage VBScript = 65001%> <% Session.codepage = 65001 Réponse.Charset = UTF-8 '==============================================. ================== =============================================. «Copyright (c) 2005-2007, Sour Liu Liu Film and Television ([URL] www.366mv.cn [/ url]) Tous droits réservés. '==============================================. ================== =============================================. 'Nom: rss.asp «Description: Générez dynamiquement le flux RSS. '==============================================. ================== =============================================. %> <! - # Inclure File = Inc / Conn.asp -> <? XML Version = 1.0 Encoding = UTF-8?> <RSS Version = 2.0 XMLNS: atom = http: //www.w3.org/2005/atom> <% Titre = Souliao Liu Film and Television 'Changez-le à votre propre nom Response.Write <Channel> & Chr (13) Response.Write <atom: link href = http: //&maxz_2&/xml.asp rel = self type = application / rss xml /> & chr (13) Response.Write <Title> Dernières vidéos mises à jour - & Title & </Title> & Chr (13) réponse.write <ink> http: // & maxz_2 & </ link> & chr (13) Response.Write <Description> & Title & - Regardez dix mille vidéos en ligne. Films gratuits, films en ligne, TVB, drames japonais, drames coréens, animation, science-fiction, horreur, romance, séries télévisées, blockbusters, films du Nouvel An ... </cription> & chr (13) réponse.write get_left (15,0) 'Afficher les 15 premières vidéos, triées par date de mise à jour Response.Write </Channel> & Chr (13) Fonction re (str) Sinon ISNULL (STR) alors re = remplacer (str, &, &) re = remplacer (re, <, <) re = remplacer (re,>,>) re = remplacer (re, ', & apos;) re = remplacer (re ,,) Terminer si Fonction finale Fonction get_left (n, m) n = cint (n): m = cint (m) Si m = 1 alors mm = commande par zt_hits dec 'trié par clics Autre mm = commande par zt_date dec 'trié par date de mise à jour Terminer si SET RS1 = CONN.EXECUTE (SELECT TOP & N & ZT_ID, ZT_NAME, ZT_ZY, ZT_DY, ZT_TYPE, ZT_DATE, ZT_HITS, ZT_CONTENT DE ZT_DATA & MM) get_left_i = 0 Faire tout en pas Rs1.eof get_left_i = get_left_i 1 get_left = get_left & <teticle> & chr (13) get_left = get_left & <ititle> & re (rs1 (zt_name)) & </title> & chr (13) get_left = get_left & <enk> http: // & maxz_2 & / & get_classenname (rs1 (zt_type)) & / & rs1 (zt_id) & </kin> & chr (13) get_left = get_left & <escription> <! [cdata [<p> catégorie: <a href = http: // & maxz_2 & / & get_clasShenname (rs1 (zt_type)) &> & get_classname (rs1 (zt_type)) & </a> </ p > <p> mettant en vedette: & rs1 (zt_zy) & </p> <p> tracé: & re (rs1 (zt_content)) & </p>]]> </ description> & chr (13) get_left = get_left & <Guid> http: // & maxz_2 & / & get_classenname (rs1 (zt_type)) & / & rs1 (zt_id) & </guid> & chr (13) get_left = get_left & <catégories> <! [cdata [& get_classname (rs1 (zt_type)) &]]> </ catégorie> & chr (13) get_left = get_left & <bubdate> & datetorfc822 (rs1 (zt_date)) & </ubdate> & chr (13) get_left = get_left & </ item> & chr (13) Si get_left_i> = n alors sortez faire RS1.MoVeNext Boucle rs1.close Fonction finale Fonction datetorfc822 (byVal dtaval) Dim StrCurlocale: StrCurLocale = Getlocale () Setlocale (en-gb) dtaval = cdate (dtaval) DateTorfc822 = WeekdayName (Weekday (DTaval), True) &, & _ À droite (0 et jour (dtaval), 2) & & _ Name menson (Mois (dtaval), true) & & _ Année (dtaval) & & _ À droite (0 et hour (dtaval), 2) &: & _ À droite (0 et minute (dtaval), 2) &: & _ Right (0 & Second (dtaval), 2) & & _ 0800 Setlocale (strcurlocale) Fonction finale %> </rss> |
Partager: comment ASP peut-il obtenir la première adresse d'image dans le code 'Modifier le modèle à nouveau'code pour détecter le code'http: //www.knowsky.com/asp.asp'leixing html ou ubb'nopic code n'a pas de fonction d'image toppic (code, leixing, nopic) set regex = ne