javastr="" javastr=javastr+"" <% owen=request("owen") owen1=request("owen1") owen2=request("owen2") n=request("n") if n="" then n=100 end if%> <% if owen1<>"" and owen2<>"" then sql="select * from NEWS where BigClassName='"& owen1 &"' and SmallClassName='"& owen2 &"' order by id desc" set rs=conn.execute(sql) do while not rs.eof %> javastr=javastr+"" <%n=n-1 if n<1 then exit do rs.movenext loop %> javastr=javastr+"
" javastr=javastr+"◎ <% if rs("imagenum")<>"0" then response.write "图片新闻" end if %>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=left(rs("title"),12)%> [<%=rs("infotime")%>] (阅读<%=rs("hits")%>次)" javastr=javastr+"
" <% rs.close set rs=nothing %> document.write (javastr) <% ElseIf owen2<> "" then sql="select * from NEWS where SmallClassName='"& owen2 &"' order by id desc" set rs=conn.execute(sql) do while not rs.eof %> javastr=javastr+"" javastr=javastr+"◎ <% if rs("imagenum")<>"0" then response.write "图片新闻" end if %>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=left(rs("title"),12)%> [<%=rs("infotime")%>] (阅读<%=rs("hits")%>次)" javastr=javastr+"" <%n=n-1 if n<1 then exit do rs.movenext loop %> javastr=javastr+"" <% rs.close set rs=nothing %> document.write (javastr) <% ElseIf owen1<>"" then sql="select * from NEWS where BigClassName='"& owen1 &"' order by id " set rs=conn.execute(sql) do while not rs.eof %> <% dim title1 if len(trim(rs("title")))>13 then title1=left(trim(rs("title")),20) else title1=trim(rs("title")) end if%> javastr=javastr+"" javastr=javastr+"     <% if rs("imagenum")<>"0" then response.write "带有图片资料" end if %>\" title=\"<%=rs("title")%>\"><%=title1%>" javastr=javastr+"" <%n=n-1 if n<1 then exit do rs.movenext loop %> javastr=javastr+"" <% rs.close set rs=nothing %> document.write (javastr) <% End If %> <% if owen1= "" and owen2= "" then sql="select * from NEWS order by id desc" set rs=conn.execute(sql) do while not rs.eof %> javastr=javastr+"" javastr=javastr+"◎ <% if rs("imagenum")<>"0" then response.write "图片新闻" end if %>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=left(rs("title"),12)%> [<%=rs("infotime")%>] (阅读<%=rs("hits")%>次)" javastr=javastr+"" <%n=n-1 if n<1 then exit do rs.movenext loop %> javastr=javastr+"" <%rs.close set rs=nothing conn.close set conn=nothing%> document.write (javastr) <%end if%>