Max Movie Station은 RSS Feed Code_asp 자습서를 생성합니다

<%

세션 .codepage = 65001

응답. charset = utf-8

'================================================= ==================================================

'Copyright (C) 2005-2007, Sour Liu Liu 영화 및 텔레비전 ([URL] www.366mv.cn [/url]) 모든 권리 보유.

'================================================= ==================================================

'이름 : rss.asp

'설명 : RSS 피드를 동적으로 생성합니다.

'================================================= ==================================================

%>

<!-#include file = inc/conn.asp-> <? xml 버전 = 1.0 인코딩 = utf-8?>

<rss 버전 = 2.0 xmlns : atom = http : //www.w3.org/2005/atom>

<%

title = souliao liu 영화 및 텔레비전 '자신의 이름으로 변경

응답

response.write <atom : 링크 href = http : //&/maxz_2&/xml.asp rel = self type = application/rss xml/> & chr (13)

Response.write <title> 최신 업데이트 된 비디오 - & Title & </title> & chr (13)

response.write <link> http : // & maxz_2 & </link> & chr (13)

response.write <description> & title & - 온라인으로 만 비디오를 시청하십시오. 무료 영화, 온라인 영화, TVB, 일본 드라마, 한국 드라마, 애니메이션, 공상 과학, 공포, 로맨스, TV 시리즈, 블록버스터, 새해 영화 ... </description> & chr (13)

response.write get_left (15,0) '업데이트 날짜별로 정렬 된 첫 15 개의 비디오 표시

응답 </채널> & chr (13)

함수 Re (str)

그렇지 않다면 (str)

re = replace (str, &, &)

re = replace (re, <, <)

re = replace (re,>,>)

re = replace (re, ', & apos;)

re = 교체 (re ,,)

끝 If

엔드 기능

함수 get_left (n, m)

n = cint (n) : m = cint (m)

M = 1 인 경우

mm = zt_hits desc '의 주문 클릭으로 정렬됩니다

또 다른

MM = ZT_DATE DESC '의 주문 업데이트 날짜별로 정렬했습니다

끝 If

SET RS1 = CONN.Execute (SELECT & N & ZT_ID, ZT_NAME, ZT_ZY, ZT_DY, ZT_TYPE, ZT_DATE, ZT_HITS, ZT_CONTENT FROM ZT_DATA & MM)

get_left_i = 0

Rs1.eof가 아닌 상태에서하십시오

get_left_i = get_left_i 1

get_left = get_left & <item> & 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 & <description> <! > <p> 주연 : & rs1 (zt_zy) & </p> <p> 플롯 : & Re (rs1 (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 & <카테고리> <!

get_left = get_left & <pubdate> & datetorfc822 (rs1 (zt_date)) & </pubdate> & chr (13)

get_left = get_left & </item> & chr (13)

get_left_i> = n이면 종료하십시오

rs1.movenext

고리

rs1.close

엔드 기능

함수 DateTorfc822 (Byval dtaval)

Dim Strcurlocale : strcurlocale = getLocale ()

setlocale (en-gb)

dtaval = cdate (dtaval)

DateTorfc822 = WeekdayName (주간 (dtaval), true) &, & _

오른쪽 (0 & day (dtaval), 2) & & _

Monthname (Month (Dtaval), True) & & _

연도 (dtaval) & & _

오른쪽 (0 & Hour (dtaval), 2) & : & _

오른쪽 (0 & minute (dtaval), 2) & : & _

오른쪽 (0 & Second (dtaval), 2) & & _

0800

setlocale (strcurlocale)

엔드 기능

%> </rss>