How to use: Save the following code as rss.asp (remember to save it in UTF-8 format) and upload it to the website root directory. The rest is to find the Rss submission portal to submit your feed address http://your domain name/rss.asp
Demo: http://www.366mv.cn
The code is as follows. Please modify the corresponding information according to the comments. I hope you can retain the copyright information ^_^
The code copy is as follows:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
<%
Session.CodePage=65001
Response.Charset="UTF-8"
'=====================================================================================================
'Copyright(c)2005-2007,Soy Liuyu Film and Television ([url]www.366mv.cn[/url]) Allrights reserved.
'=====================================================================================================
'Name:rss.asp
'Description: Dynamically generate RssFeed.
'=====================================================================================================
%>
<!--#includefile=inc/conn.asp--><?xmlversion="1.0"encoding="utf-8"?>
<rssversion="2.0"xmlns:atom="http://www.w3.org/2005/Atom">
<%
title="生杯典"' changed to your own name
response.write"<channel>"&chr(13)
response.write"<atom:linkhref=""http://"&maxz_2&"/xml.asp""rel=""self""type=""application/rss+xml""/>"&Chr(13)
response.write"<title>Latest updated video-"&title&"</title>"&chr(13)
response.write"<link>http://"&maxz_2&"</link>"&Chr(13)
response.write"<description>"&title&"-Watch ten thousand movies online. Free movies, online movies, TVB, Japanese dramas, Korean dramas, animation, science fiction, horror, romance, TV series, blockbusters, New Year's films...</description>"&Chr(13)
response.writeget_left(15,0)'Show the first 15 videos, sorted by update date
response.write"</channel>"&chr(13)
Functionre(str)
IfNotIsNull(str)then
re=Replace(str,"&","&")
re=Replace(re,"<","<")
re=Replace(re,">",">")
re=Replace(re,"'","'")
re=Replace(re,"""",""")
Endif
EndFunction
Functionget_left(n,m)
n=CInt(n):m=CInt(m)
Ifm=1Then
mm="orderbyzt_hitsdesc"'Sorted by clicks
Else
mm="orderbyzt_datedesc"'Sorted by update date
EndIf
setrs1=conn.execute("selecttop"&n&"zt_id,zt_name,zt_zy,zt_dy,zt_type,zt_date,zt_hits,zt_contentfromzt_data"&mm)
get_left_i=0
Dowhilenotrs1.eof