<%=content_html_Top_default%>
<%'主體部分!%> <% if request("cateid")="" then%> <% Dim CateRS Dim Trd Set CateRS=Server.CreateObject("Adodb.RecordSet") SQL="Select * FROM blog_category where cate_outlink=0" CateRS.Open SQL,Conn,1,1 If CateRS.Eof And CateRS.Bof Then Response.Write("服务器数据读取失败!") Else Response.Write("
<%else%><%ContentList%> <%end if%>
<%=content_html_Bottom_default%> <%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_posttime desc" RS.Open SQL,Conn,1,1 SQLQueryNums=SQLQueryNums+1 If RS.Eof And RS.Bof Then Response.Write("None") Else Dim log_Weather,log_ID Do While Not RS.Eof log_ID=RS("log_ID") Response.Write(" "&HTMLEncode(cutStr(RS("log_Title"),42))&"") Response.Write(" ") RS.Movenext row=row+1 if row=10 then Exit do end if Loop End If RS.Close Set RS=Nothing%> | <% trd=trd+1 ' if trd=10 then ' Exit do 'end if CateRS.Movenext Loop End if CateRS.Close Set CateRS=Nothing %>