<% '============================================================ '插件名稱：RSS 'Website：http://www.yhwz.com 'Author：yhwz 'Date：2008-2-25 '============================================================ Response.Clear Response.ContentType="text/xml" Id=Requestint(ID,0) Set rs_class=Conn.Execute("select allclassid from yhwz_class where id="&id&"") IF rs_class.Eof Then Echo Get_allrss Else Echo Get_rss(ID,rs_class(0)) End IF Function Get_rss(t0,t1) t2="" t2=t2&""& vbcrlf t2=t2&""& vbcrlf t2=t2&""& vbcrlf Set rs=Conn.Execute("select title,classdir,class_desc from yhwz_class where id="&id&"") IF Not Rs.Eof Then t2=t2&""& vbcrlf t2=t2&""& vbcrlf t2=t2&""& vbcrlf t2=t2&"zh-cn"& vbcrlf t2=t2&"Rss Generator By "&yhwz_new_version&""& vbcrlf End IF Set Rs=Conn.Execute("select top 100 title,classid,jj,lastupdate,author,htmlname from yhwz_info where classid in("&t1&") order by lastupdate desc") While Not rs.Eof t2=t2&""& vbcrlf t2=t2&" "& vbcrlf t2=t2&" "& vbcrlf t2=t2&" "& vbcrlf t2=t2&" "& vbcrlf t2=t2&" "& vbcrlf t2=t2&" "& vbcrlf t2=t2&""& vbcrlf rs.Movenext Wend t2=t2&""& vbcrlf t2=t2&""& vbcrlf Get_rss=t2 End Function Function Get_allrss t1="" t1=t1&""& vbcrlf t1=t1&""& vbcrlf t1=t1&""& vbcrlf t1=t1&""& vbcrlf t1=t1&""& vbcrlf t1=t1&""& vbcrlf t1=t1&"zh-cn"& vbcrlf t1=t1&"Rss Generator By yhwz.COM"& vbcrlf Set rs=Conn.Execute("select title,classdir,class_desc,id from yhwz_class order by id desc") While Not rs.Eof t1=t1&""& vbcrlf t1=t1&" "& vbcrlf t1=t1&" "& vbcrlf t1=t1&" "& vbcrlf t1=t1&""& vbcrlf rs.Movenext wend t1=t1&""& vbcrlf t1=t1&""& vbcrlf Get_allrss=t1 End Function %>