<%if request("bigclassid")<>"" then set rssmallsort = server.CreateObject ("adodb.recordset") sqlsmall="select * from bigclass_new where bigclassid="&request("bigclassid")&"" rssmallsort.open sqlsmall,conn,1,1 if not(rssmallsort.eof) then %> <%=rssmallsort("bigclassname")%> <% end if %> <%end if%> <%if request("smallclassid")<>"" then set rssmallsort = server.CreateObject ("adodb.recordset") sqlsmall="select * from smallclass_new where smallclassid="&request("smallclassid")&"" rssmallsort.open sqlsmall,conn,1,1 if not(rssmallsort.eof) then %> - <%=rssmallsort("smallclassname")%> <% end if %> <%end if%>
<% if request("page")<>"" then page=clng(request("page")) else page=1 end if word=th(request("keywords")) owen1=th(request("bigclassid")) owen2=th(request("SmallClassID")) Set rs=Server.CreateObject("ADODB.RecordSet") if owen2<>"" then sql="select * from newscj where SmallClassID="&owen2&" order by paixu asc,id aSC" else if owen1<>"" then sql="select * from newscj where bigClassID="&owen1&" order by paixu asc,id aSC" else if owen2="" and word ="" then sql="select * from newscj where (bigclassid=77) order by paixu asc,id asc" else sql="select * from newscj where title like '%"&word&"%' order by paixu asc,id asc" end if end if end if rs.Open sql,conn,1,1 %> <% if (request("sort")=4 or request("sort")=3) then %>-
<%
elseif request("sort")=2 then
%>
-
<%if rs("xqimgname")<>"自动生成" then%>
"><%end if%>
<%=cutstr(rs("title"),10)%>
<%end if%>
<%
if (j mod 4)=0 then
response.write ""
end if
j=j+1
rs.moveNext
if j>12 then exit do
loop
'end if
%>
<%
rs.movenext
if rs.eof then exit for
next
%>
<%
if (request("sort")=4 or request("sort")=3) or request("sort")=2 then
%>
-
<%end if%>
<%
if rs.eof then
response.Write("NO DATA")
else
%>
<%
rs.PageSize=12
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<%
j=1
do while not (rs.eof or err)
if (j mod 1)=1 then
response.write " "
end if
%>
<%if request("sort")=1 then%>
<%=rs("content")%>
<%else%>
&smallclassid=<%=rs("smallclassid")%>&id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank">