<% 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%> 幸运快三计划