Amigos que viram o TOP. Estes são enviados pela primeira vez. simples possível quando eu escrevo.
Adicione a função de agregação de RSS para o seu site, blog etc., e agora dê o código de polimerização de RSS.asp para ver como você responde, se é bom
É conveniente para você depurar e mostrar a aparência de http://www.nbpda.com/rss.asp
Após o teste, apoie a maioria dos leitores agregados
O código a seguir é salvo como rss.asp
A seguir, o fragmento de código:
| A seguir, o fragmento de código: <!-#incluir file = "Conn.asp"-> <% strurl = "http: //" & request.servervariables ("server_name") & _ Esquerda (request.servervariables ("script_name"), len (request.servervariables ("script_name"))-len ("/rss.asp") // é o seu nome para o seu nome de arquivo Sql = "Selecione o Top 100 * no [nome da tabela] Ordem por id des Desc" // De acordo com a modificação real, o Top 100 são os 100 mais recentes itens, modificam -o e, ao mesmo tempo, você pode adicionar condições de consulta, como onde xxx = 1 .... set rs = server.createObject ("adodb.oldset") Rs.ooopen SQL, Conn, 1,1 Response.ContentType = "Texto/XML" Response.Write "<? XML versão =" "1.0" "Encoding =" GB2312 ""?> "& vbcrlf Response.write "<rss versão =" "2.0" ""> "e vbcrlf Response.write "<nanal>" e vbcrf Response.Write "<title> xxx.com RSS Feed </ititle>" & vbcrlf Response.write "<ink>" & strurl & "</link>" & vbcript Response.write "<dium> zh-cn </dioma>" & vbcrlf Response.write "<pututright> Um feed RSS para xxx.comcopyright>" & vbcrlf Embora não seja Rs.eof Response.write "<em>" & vbcrlf Response.Write "<title> <! [" "" & Rs ("title") & "] >> </title>" & vbcrlf Response.write "<ink>" & strurl & "/xxxx.asp? Id =" & rs ("id") & "</ink>" & vBlockff Response.write "<cription> <! [" "" "" & Rs ("campo de tema") & "<r />" & rs ("campo de conteúdo") & "<r /> <r />]> < /description> "& vbcrf Response.Write "<Pubdate>" & return_rfc822_date (rs ("campo de tempo"), "gmt") & "</pubdate>" & vbcrlfff Response.write "</tem>" & vbcrf rs.movenext Wend Response.write "</annan>" & vbcrlf Response.Write "</rss>" & vbcrlf Rs.close Definir rs = nada Function return_rfc822_date (byval mydate, byval cimebone) Dim Myday, MyDays, Mymonth, MyYear Dim myhours, myMinutes, MySeconds mydate = cdate (mydate) MyDay = EnWeekdayName (mydate) MyDays = Right ("00" & Day (MyDate), 2) myMonth = Enmonthname (mydate) myYear = ano (mydate) myhours = certo ("00" & hour (mydate), 2) MyMinutes = Right ("00" & Minute (mydate), 2) MySeconds = Right ("00" & Second (MyDate), 2) Return_rfc822_date = myday & "," & _ MyDays & "" & _ MyMonth & "& _ MyYear & "" & _ minha casa & ":" & _ myMinutes & ":" & _ MySeconds & "" & _ "" "E fuso horário Função final Função enweekdayname (inputDate) Resultado escuro Selecione Case Weekday (InputDate, 1) Caso 1: Result = "Sun" Caso 2: Result = "Mon" Caso 3: resultado = "Ter" Caso 4: Result = "Wed" Caso 5: resultado = "qui" Caso 6: resultado = "sex" Caso 7: resultado = "SAT" Final Selecione ENWEEKDAYNAME = resultado Função final Função enmonthname (inputDate) Resultado escuro Selecione o mês do caso (InputDate) Caso 1: resultado = "Jan" Caso 2: resultado = "fev" Caso 3: resultado = "mar" Caso 4: resultado = "APR" Caso 5: resultado = "May" Caso 6: resultado = "Jun" Caso 7: resultado = "Jul" Caso 8: resultado = "Aug" Caso 9: resultado = "set" Caso 10: resultado = "Oct" Caso 11: resultado = "Nov" Caso 12: resultado = "DEC" Final Selecione Enmonthname = resultado Função final %> |