<% Dim ID ID=Angel_aspRequest(request("id")) If ID="" then Call Alert("不正确的ID","Index.asp") end if set rsclass=server.createobject("adodb.recordset") sql="select * from "&tbname&"_Class where id="&id rsclass.open sql,conn,1,1 if rsclass.eof and rsclass.bof then Call Alert("不正确的ID","Index.asp") else if rsclass("Link")=1 then Response.Redirect ""&Angel_asp(rsclass("Url"))&"" End if %> " /> " /> <%=rsclass("ClassName")%><%=IIF(rsclass("ClassName2")<>"","-"&rsclass("ClassName2")&"-","-")%><%=SiteTitle%>
<%=Head%> <%=Menu%>
<%=search%>您现在的位置:首页 >> <%If rsclass("TopID")>0 then%>"><%=Classlist(rsclass("TopID"))%> >> <%End if%>"><%=rsclass("ClassName")%> >> 列表
<%If Mydb("Select Count([ID]) From ["&tbname&"_Class] Where TopID="&ID&"",1)(0)>0 then%>
<% Sqlpp ="select [ID],[ClassName] from "&tbname&"_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 "&tbname&"_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)%> 点击:<%=rs("Hits")%> 评论:<%=Mydb("Select Count([ID]) From ["&tbname&"_Pl] Where yn=0 And ArticleID="&ID&"",1)(0)%>
  • <%If artlist=0 then%>
    "" then Response.Write(" style=""height:65px;""") end if%>><%=left(LoseHtml(rs("Artdescription")),90)%>...
    <%End if%> <% rs.movenext else exit for end if next %>
    <%=mypage.showpage()%>
<% rs.close set rs=nothing end if %>
<%Call ShowAD(3)%>
本类热门
    <%Call ShowArticle(ID,10,5,"·",100,"no","Hits desc,ID desc",0,0)%>
图片推荐
    <%Call ShowImgArticle(ID,4,10,"no","DateAndTime desc,ID desc")%>
<%=Copy%> <% rsclass.close set rsclass=nothing end if%>