<% id=CheckStr(Trim(request("id"))) If ID="" then Response.write"" end if set rsclass=server.createobject("adodb.recordset") sql="select * from Yao_Class where id="&id rsclass.open sql,conn,1,1 if rsclass.eof and rsclass.bof then Call Alert("不正确的ID","index.html") else if rsclass("Link")=1 then Response.Status="301 Moved Permanently" Response.AddHeader "Location", laoy(rsclass("Url")) End if %> " /> " /> <%=rsclass("ClassName")%>-<%=SiteTitle%>
<%=Head%> <%=Menu%>
<%=search%>您现在的位置:首页 >> <%If rsclass("TopID")>0 then Response.Write(""&Classlist(rsclass("TopID"))&" >> ") End if%><%=rsclass("ClassName")%> >> 列表
<%If Mydb("Select Count([ID]) From [Yao_Class] Where TopID="&ID&"",1)(0)>0 then%>
<% Sqlpp ="select * from Yao_Class Where TopID="&ID&" order by num" Set Rspp=server.CreateObject("adodb.recordset") rspp.open sqlpp,conn,1,1 NoI=0 Do while not Rspp.Eof NoI=NoI+1 %>
>
">more..."><%=rspp("ClassName")%><%If rss=1 then%>.xml" target="_blank">(RSS 2.0)" style="margin:0 0 0 30px;"/><%End if%>
    <%Call ShowArticle(""&rspp("id")&"",10,5,"·",100,"no","DateAndTime desc,ID desc",0,0)%>
<% Rspp.Movenext Loop rspp.close set rspp=nothing %>
<%else%>
<%=rsclass("ClassName")%>
    <% Set mypage=new xdownpage mypage.getconn=conn mypage.getsql="select ID,Title,DateAndTime,Hits,IsTop,Images,TitleFontColor,Artdescription from Yao_Article Where ClassID="&rsclass("ID")&" and yn=0 order by IsTop desc,DateAndTime desc" mypage.pagesize=""&artlistnum&"" set rs=mypage.getrs() for i=1 to mypage.pagesize if not rs.eof then %>
  • ·<%If rs("IsTop")=1 then Response.Write("[顶]") end if%>" target="_blank"><%if rs("TitleFontColor")<>"" then Response.Write(""&rs("Title")&"") else Response.Write(""&rs("Title")&"") end if%> <%=FormatDate(rs("DateAndTime"),11)%>
  • <%If artlist=0 then%>
    "" then Response.Write(" style=""height:95px;""") end if%>><%if rs("Images")<>"" then%>
    " />
    <%end if%><%=left(LoseHtml(rs("Artdescription")),140)%>...[" target="_blank">查看全文]
    <%End if%> <% rs.movenext else exit for end if next %>
    <%=mypage.showpage()%>
<%end if%>
<%If ""&ad3&""=1 then%>
<%Call ShowAD(3)%>
<%End If%>
本类热门
    <%Call ShowArticle(ID,10,5,"·",100,"no","Hits desc,ID desc",0,0)%>
图片推荐
    <%Call ShowImgArticle(ID,4,20,"no","DateAndTime desc,ID desc")%>
<%Call ShowAD(18)%>
<%=Copy%> <% rsclass.close set rsclass=nothing end if%>
<%if request.QueryString("action")="search" then dim keyword keyword = Server.UrlEncode(trim(request.Form("keyword"))) response.Redirect("Search.asp?KeyWord="&keyword) end if%>