<% '================================== ' 首頁調用V1.2 ' 更新時間: 2009-01-20 ' http://www.hibug.com.cn/ '================================== %>
<%'=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("") Do While Not CateRS.Eof If int(j/1)=j/1 and j<>0 then Response.Write("") %> <% j=j+1 CateRS.Movenext Loop End if CateRS.Close Set CateRS=Nothing %>
<% 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%>
<%if Session("sFlag") <> "MMH" then%>
發表留言最新留言
<% 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 ("
") 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%>
<%end if%> <%else%> <%ContentList%> <%end if%>
<%=content_html_Bottom_default%>
<%Side_Module_Replace '處理系統側欄模組資訊%>