Function re(str) If Not IsNull(str) then re=Replace(str,"&","&") re=Replace(re,"<","<") re=Replace(re,">",">") re=Replace(re,"'","'") re=Replace(re,"""",""") End if End Function
Function get_left(n,m) n=CInt(n):m=CInt(m) If m=1 Then mm=" order by zt_hits desc" '按點擊量排序 Else mm=" order by zt_date desc" '按更新日期排序 End If set rs1=conn.execute("select top "&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 Do while not 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><![CDATA[<p>類別：<a href=""http://"&maxz_2&"/"&get_classenname(rs1("zt_type"))&""">"&get_classname(rs1("zt_type"))&"</a></p><p>主演："&rs1("zt_zy")&"</p><p>劇情："&re(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&" <category><![CDATA["&get_classname(rs1("zt_type"))&"]]></category>"&Chr(13) get_left=get_left&" <pubDate>"&DateToRFC822(rs1("zt_date"))&"</pubDate>"&Chr(13) get_left=get_left&" </item>"&Chr(13) If get_left_i>=n Then Exit Do rs1.movenext Loop rs1.close End Function
