RSS 및 XML 집계를 생성하는 것은 주로 구독을 촉진하고 사용자가 웹 사이트의 업데이트를 빠르게 알 수 있도록 하기 위한 것입니다. RSS.asp 형식
다음 코드는 rss.asp로 저장됩니다.
다음과 같이 코드 코드를 복사합니다.
<!--#포함 파일=conn.asp-->
<%
strURL = http:// & request.servervariables(서버_이름) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp는 파일 이름입니다.
sql=select top 100 * from [table name] order by id desc //실제 수정하신 내용에 따르면 상위 100이 최신 100이므로 직접 수정하시고, where xxx=1... 등의 쿼리 조건을 추가하시면 됩니다. .
rs=server.createobject(adodb.recordset) 설정
rs.open SQL,콘,1,1
response.contenttype=text/xml
response.write <?xml 버전=1.0 인코딩=gb2312 ?> & vbcrlf
response.write <rss 버전=2.0> & vbcrlf
response.write <채널> & vbcrlf
response.write <title>xxx.com RSS 피드</title> & vbcrlf
response.write <link> & strURL & </link> & vbcrlf
response.write <언어>zh-cn</언어> 및 vbcrlf
response.write <copyright>xxx.comcopyright> 및 vbcrlf에 대한 RSS 피드
rs.eof가 아닌 동안
response.write <항목> & vbcrlf
response.write <제목><![CDATA[ & rs(제목) & ]]></title> & vbcrlf
response.write <link>&strURL/xxxx.asp?Id=&rs(id)</link> & vbcrlf
response.write <설명><![CDATA[ & rs(제목 필드) & <br /> & rs(콘텐츠 필드) & <br /><br />]]></description> & vbcrlf
response.write <pubDate> & return_RFC822_Date(rs(시간 필드),GMT) & </pubDate> & vbcrlf
response.write </item> & vbcrlf
rs.movenext
향하게 하다
response.write </channel> & vbcrlf
response.write </rss> & vbcrlf
RS.닫기
rs=아무것도 설정하지 않음
함수 return_RFC822_Date(byVal myDate, byVal TimeZone)
myDay, myDays, myMonth, myYear 어둡게 하기
myHours, myMinutes, mySeconds 흐리게 표시
myDate = CDate(myDate)
myDay = EnWeekDayName(myDate)
myDays = 오른쪽(00 & Day(myDate),2)
myMonth = EnMonthName(myDate)
myYear = 연도(myDate)
myHours = Right(00 & Hour(myDate),2)
myMinutes = 오른쪽(00 & 분(myDate),2)
mySeconds = 오른쪽(00 & 초(myDate),2)
return_RFC822_Date = myDay, & _
마이데이즈 & _
내달&_
내연도&_
myHours:& _
내분:& _
마이초 & _
& 시간대
기능 종료
함수 EnWeekDayName(입력 날짜)
희미한 결과
사례 선택 WeekDay(InputDate,1)
사례 1:결과=일
사례 2:결과=월
사례 3:결과=화요일
사례 4:결과=수요일
사례 5:결과=목
사례 6:결과=금요일
사례 7:결과=토요일
선택 종료
EnWeekDayName = 결과
기능 종료
함수 EnMonthName(입력 날짜)
희미한 결과
사례월 선택(InputDate)
사례 1:결과=Jan
사례 2:결과=2월
사례 3:결과=3월
사례 4:결과=4월
사례 5:결과=5월
사례 6:결과=Jun
사례 7:결과=7월
사례 8:결과=8월
사례 9:결과=9월
사례 10:결과=10월
사례 11:결과=11월
사례 12:결과=12월
선택 종료
EnMonthName = 결과
기능 종료
%>
RSS.xml 형식
다음과 같이 코드 코드를 복사합니다.
<!--#포함 파일=conn.asp-->
<%
strURL = http:// & request.servervariables(SERVER_NAME) & _
왼쪽(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp))
멍청한 바보, JS
js = server.CreateObject(ADODB.RecordSet) 설정
sql = [테이블 이름]에서 *를 선택하고 ID를 오름차순으로 정렬
js = conn.execute 설정(sql)
Foolcat = Foolcat + <?xml 버전=1.0 인코딩=UTF-8 ?>
바보고양이 = 바보고양이 + <rss 버전=2.0>
바보 = 바보 고양이 + <채널>
Foolcat = Foolcat + <title>xxx.com XML 피드</title>
바보 = 바보 고양이 + <link> & strURL & </link>
바보 = 바보 고양이 + <언어>zh-cn</언어>
Foolcat = Foolcat + <copyright>xxx.com에 대한 XML 피드</copyright>
js.eof까지 하세요
바보 = 바보 고양이 + <항목>
Foolcat = Foolcat + <제목><![CDATA[ & rs(제목 필드) & ]]></title>
Foolcat = Foolcat + <설명><![CDATA[ & rs(제목 필드) & <br /> & rs(콘텐츠 필드) & <br /><br />]]></description>
Foolcat = Foolcat + <link> & strURL & /xxx.asp?Id=&rs(id 필드)</link>
Foolcat = Foolcat + <pubDate> & rs(시간 필드) & </pubDate>
바보 = 바보 고양이 + </item>
js.movenext
고리
js.닫기
js = 아무것도 설정하지 않음
바보 = 바보 고양이 + </channel>
바보 = 바보 고양이 + </rss>
바보 = + 바보 +
바보 = & 바보 &
FolderPath = Server.MapPath(/)
fso = Server.CreateObject(Scripting.FileSystemObject) 설정
fout = fso.CreateTextFile(FolderPath/rss.xml) 설정
fout.writeLine 바보
fout.close
fout 설정 = 아무것도 없음
연결 닫기
conn = 아무것도 설정하지 않음
%>