<%'================================================================================================= Set Rs = Conn.Execute("Select * From newsClass Where NumberID = '"& ClassID &"'") IF Not Rs.Bof Then IF Rs("LagID") = 1 Then Set Rs1 = Conn.Execute("Select * From newsClass Where NumberID = '"& Rs("PartID") &"'") IF Not Rs1.Bof Then ClassArr = Rs1("Class") &" > "& rs("Class") End IF Rs1.Close Set Rs1 = Nothing Else ClassArr = Rs("Class") End IF Else ClassArr = "全部" End IF Rs.Close Set Rs = Nothing '============================================================ %> <% classid=request("classid") if ClassID="" then sql="select * from news order by DateTime desc" else if len(classid)=3 then sql="select * from news where left(Class,3) = '"&ClassID&"' order by DateTime desc" else sql="select * from news where Class = '"&ClassID&"' order by DateTime desc" end if end if set rec= Server.CreateObject("adodb.recordset") rec.open sql,conn,1,1 if not rec.eof then rec.pagesize=10 iCount=rec.RecordCount '记录总数' iPageSize=rec.PageSize maxpage=rec.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rec.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if else response.Write("暂无相关新闻") end if%> <%i=1 while not rec.eof and i<=10%>

<%if not rec.eof then%>

<%=rec("datetime")%>.html" title="<%=rec("title")%>">•　<%=pronamestr(rec("title"),150)%>

<%rec.movenext end if%>

<% i=i+1 wend%>