<%
''test
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,C.cate_ID 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,C.cate_ID 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%>PJBlog3<%
If UBound(FeedRows, 1)<>0 Then
response.Write DateToStr(FeedRows(3, 0), "y-m-dTH:I:S")
Else
response.Write DateToStr("2005-10-23 12:00:00", "y-m-dTH:I:S")
End If
%>
<%
dim url
If UBound(FeedRows, 1)<>0 Then
For i = 0 To UBound(FeedRows, 2)
%>
<![CDATA[<%=FeedRows(1,i)%>]]><%=FeedRows(2,i)%><%=SiteURL%><%=blog_email%><%=DateToStr(FeedRows(3,i),"y-m-dTH:I:S")%><%=DateToStr(FeedRows(3,i),"y-m-dTH:I:S")%>
<%
If FeedRows(5, i) = 0 Then
Response.Write("")
Else
Response.Write("")
End If
If blog_postFile = 2 Then
url = SiteURL&"article/"&FeedRows(0, i)&".htm"
else
url = SiteURL&"article.asp?id="&FeedRows(0, i)
end if
%>
<%=SiteURL%>default.asp?id=<%=FeedRows(0,i)%>
<%
Next
End If
%>