<%'=content_html_Top_default%>
<%'主體部分!%>
<%if request("cateid")="" and request("tag")="" then%>
<%
Dim CateRS,j
Set CateRS=Server.CreateObject("Adodb.RecordSet")
if stat_Admin = true then
SQL="Select * FROM blog_category where cate_outlink=0"
else
SQL="Select * FROM blog_category where cate_outlink=0 And cate_Secret = 0 And cate_ID not in (78)"
end if
CateRS.Open SQL,Conn,1,1
If CateRS.Eof And CateRS.Bof Then
Response.Write("伺服器資料讀取失敗!")
Else
'Response.Write("
<%if Session("sFlag") <> "MMH" then%>
<%end if%>
<%else%>
<%ContentList%>
<%end if%>
<%=content_html_Bottom_default%>
" style="margin:0px 2px -5px 0px" alt=""/>" title="查看所有<%=CateRS("cate_name")%>的資訊"><%=CateRS("cate_name")%>
<%
Dim RS,Row
Row=0
Set RS=Server.CreateObject("Adodb.RecordSet")
SQL="Select * FROM blog_Content where log_cateId="&CateRS("cate_id")&" ORDER BY log_IsTop,log_ID DESC"
RS.Open SQL,Conn,1,1
If RS.Eof And RS.Bof Then
Response.Write("None")
Else
Dim log_Weather,log_ID,log_PostTime,log_isTop, i
Do While Not RS.Eof
Row=Row+1
log_PostTime=DateToStr(rs("log_PostTime"),"Y-m-d")
log_ID=RS("log_ID")
log_isTop=rs("log_IsTop")
Response.write (" ")
' Response.write (""&log_PostTime&"")
if log_IsTop = true then
Response.write ("[置頂]")
else
Response.write ("")
end if
dim urllink
if blog_postFile = 2 then
urlLink = caload(log_ID)
else
urlLink = "default.asp?id="&RS("log_ID")
end if
dim img
if DateDiff("h",RS("log_PostTime"),Now)<48 Then
img = ("")
else
img = ""
end if
Response.write (""&CCEncode(cutStr(RS("log_Title"),50))&""&img&" ")
RS.Movenext
if Row=5 then
Exit do
end if
Loop
End If
RS.Close
Set RS=Nothing
%>
<%if Row>4 then%> <%end if%> |
<%
j=j+1
CateRS.Movenext
Loop
End if
CateRS.Close
Set CateRS=Nothing
%>
發表留言最新留言
<%
Dim RsMeg,MegNums,book_PostTime,book_Content,book_Messager
Set RsMeg=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT top 10 * FROM blog_book order by book_PostTime Desc"
RsMeg.Open SQL,Conn,1,1
If RsMeg.Eof And RsMeg.Bof Then
Response.Write("None")
Else
Do While Not RsMeg.Eof
book_Messager=CCEncode(cutStr(RsMeg("book_Messager"),6))
book_Content=CCEncode(cutStr(RsMeg("book_Content"),27))
book_PostTime=DateToStr(RsMeg("book_PostTime"),"Y-m-d h:i:s")
MegNums=MegNums+1
Response.write ("
<%if MegNums>10 then%> <%end if%>
")
Response.write (""&book_PostTime&"")
Response.write (""&book_Messager&":"&UBBCode(book_Content,1,1,1,1,1)&"
")
RsMeg.Movenext
if MegNums=10 then
Exit do
end if
loop
end if
RsMeg.Close
Set RsMeg=Nothing
%><%if MegNums>10 then%> <%end if%>