<%'主體部分!%> <% 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("") Do While Not CateRS.Eof If int(trd/2)=trd/2 and trd<>0 then Response.Write("") %> <% trd=trd+1 ' if trd=10 then ' Exit do 'end if CateRS.Movenext Loop End if CateRS.Close Set CateRS=Nothing %>

"><%=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_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%>

<%else%><%ContentList%> <%end if%>