<%
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%>PJBlog2<%
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
%>
<%
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
%>
<%=SiteURL%>default.asp?id=<%=FeedRows(0,i)%>
<%
next
end if
%>