<% '測試svn Function AddSiteURL(ByVal Str) If IsNull(Str) Then AddSiteURL = "" Exit Function End If Dim re Set re = New RegExp With re .IgnoreCase = True .Global = True .Pattern = "") Dim cate_ID, FeedCate, FeedTitle, memName, FeedRows cate_ID = CheckStr(Request.QueryString("cateID")) FeedCate = False FeedTitle = UnCheckStr(SiteName) If IsInteger(cate_ID) = False Then SQL = "SELECT TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false ORDER BY log_PostTime DESC" Else SQL = "SELECT TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE log_cateID="&cate_ID&" AND C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false ORDER BY log_PostTime DESC" FeedCate = True End If Dim RS, DisIMG, i Set RS = Conn.Execute(SQL) If RS.EOF Or RS.BOF Then ReDim FeedRows(0, 0) Else If FeedCate Then FeedTitle = UnCheckStr(SiteName & " - " & RS("cate_Name")) FeedRows = RS.getrows() End If RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> <![CDATA[<%=FeedTitle%>]]> <%=SiteURL%> ]]> zh (<%=blog_master%>)]]> PBlog2 v2.4 <%=SiteName%> <%=SiteURL%>images/logos.gif <%=SiteURL%> <%=SiteName%> <% If UBound(FeedRows, 1) = 0 Then Response.Write("") Else dim url For i = 0 To UBound(FeedRows, 2) If blog_postFile = 2 Then url = SiteURL&caload(FeedRows(0, i)) else url = SiteURL&"article.asp?id="&FeedRows(0, i) end if %> <%=url%> <![CDATA[<%=FeedRows(1,i)%>]]> <%=blog_email%>(<%=FeedRows(2,i)%>) ]]> <%=DateToStr(FeedRows(3,i),"w,d m y H:I:S")%> <%=SiteURL&"default.asp?id="&FeedRows(0,i)%> <% 'IF RS("log_IsShow")=False Then ' Response.Write("") 'Else If FeedRows(5, i) = 0 Then Response.Write("") Else Response.Write("") End If 'End IF %> <% Next End If %>