Recomendado: 20 exemplos muito úteis na programação ASP (i) 1. Como usar o ASP para determinar o caminho físico virtual do seu site Resposta: Use o método Mappath: < % = server.mappath () %> 2. Resposta: Use o método do objeto de solicitação:
Algum tempo atrás, para adicionar a função de assinatura RSS ao meu site de filmes, eu escrevi um código ASP que gera dinamicamente o feed RSS. Como o site do filme o obtém diretamente. O feed RSS gerado é codificado pelo UTF-8, é verificado pelo feedValidator.org e é compatível com RSS 2.0 e átomo.
Como usar: Salvar o seguinte código como RS.asp (lembre-se de salvá-lo no formato UTF-8) e envie-o no diretório raiz do site. seu nome de domínio /rss.asp
Demo: http://www.366mv.cn
O código é o seguinte.
| <%@Idioma = vbscript codePage = 65001%> <% Session.codePage = 65001 Response.CharSet = UTF-8 '================================================== ================== ================================= 'Copyright (c) 2005-2007, Filme e televisão azeda Liu Liu ([URL] www.366mv.cn [/url]) Todos os direitos reservados. '================================================== ================== ================================= 'Nome: rss.asp 'Descrição: Gere dinamicamente o feed RSS. '================================================== ================== ================================= %> <!-#incluir arquivo = inc/conn.asp-> <? xml versão = 1.0 coding = utf-8?> <versão RSS = 2.0 xmlns: Atom = http: //www.w3.org/2005/atom> <% title = Souliao Liu Film and Television'Change It To Your Own Nome Response.write <nanal> & ch (13) Response.write <atom: link href = http: //&maxz_2&/xml.asp rel = auto -tipo = aplicativo/rss xml/> & ch (13) Response.write <title> Vídeos atualizados mais recentes - & Título & </title> & Chr (13) Response.Write <Link> http: // & maxz_2 & </link> & ch (13) Response.write <cription> & título & - Assista a dez mil vídeos online. Filmes grátis, filmes on -line, TVB, dramas japoneses, dramas coreanos, animação, ficção científica, horror, romance, série de TV, blockbusters, filmes de ano novo ... </cription> & Ch (13) Response.write get_left (15,0) 'mostre os 15 primeiros vídeos, classificados por data de atualização Response.write </anal> & ch (13) Função re (str) Se não é Isnull (str) então re = substituir (str, & &) re = substituir (re, <, <) re = substitua (re,>,>) re = substituir (re, ', & apo;) re = substitua (re ,,) Final se Função final Função get_left (n, m) n = cint (n): m = cint (m) Se m = 1 então mm = Ordem por zt_hits desc 'classificados por cliques Outro mm = Ordem por zt_date desc 'classificado por data de atualização Final se set rs1 = conn.execute (selecione 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 Faça enquanto não é rs1.eof get_left_i = get_left_i 1 get_left = get_left & <tem> & ch (13) get_left = get_left & <title> & re (rs1 (zt_name)) & </title> & ch (13) get_left = get_left & <link> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) &/& rs1 (zt_id) & </link> & ch (13) get_left = get_left & <cription> <! [cdata [<p> categoria: <a href = http: // & maxz_2 &/& get_clasname (rs1 (zt_type)) &> & get_classname (rs1 (zt_type) & </aa> > <p> Estrelando: & rs1 (zt_zy) & </p> <p> plot: & re (rs1 (zt_content)) & </p>]]> </cription> & ch (13) get_left = get_left & <idring> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) &/& rs1 (zt_id) & </orientador> & ch (13) get_left = get_left & <category> <! [CDATA [& get_className (rs1 (zt_type)) &]]> </category> & ch (13) get_left = get_left & <dubdate> & datetorfc822 (rs1 (zt_date)) & </pubdate> & ch (13) get_left = get_left & </tem> & ch (13) Se get_left_i> = n então saia rs1.movenext Laço rs1.close Função final Função DATETORFC822 (BYVAL DTAVAL) Dim strcurlocale: strcurlocale = getLocale () Setlocale (EN-GB) dtaval = cdate (dtaval) DATETORFC822 = WeekdayName (dia da semana (DTaval), True) &, & _ À direita (0 e dia (dtaval), 2) & & _ MonthName (mês (dtaval), verdadeiro) & & _ Ano (dtaval) & & _ À direita (0 & Hour (dtaval), 2) &: & _ À direita (0 e minuto (dtaval), 2) &: & _ À direita (0 & Second (dtaval), 2) & & _ 0800 Setlocale (Strcurlocale) Função final %> </rss> |
Compartilhar: como o ASP pode obter o primeiro endereço de imagem no código 'Modifique o padrão novamente para detectar o code'http: //www.knowsky.com/asp.asp'leixing html ou o código ubb'nopic não tem função de imagem toppic (código, leixing, nopic) definido regex = ne não