<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#Include File="Inc/Main.asp"-->
<%
Call Check_url()
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
keys        = Replace_Text(Request("keys"))
keyn        = Replace_Text(Request("keyn"))
lastid      = Replace_Text(Request("lastid"))
lastnum     = Replace_Text(Request("lastnum"))
'----------------------------------------------------------
if keyn="" then keyn=0
if lastid="" then lastid=0
if lastnum="" then lastnum=0
'----------------------------------------------------------
Set Rs = Server.Createobject("ADODB.recordset")
'===============================
if Clng(lastid)>0 then
sqltext  = "select * from OUCCS_NewsList where n_pid=9 and n_distinction=1 and www='"&Clsm_Domaine&"' "



sqltext  = sqltext&" and n_id not in (select top "&lastnum&" n_id from OUCCS_NewsList where n_pid=9 and n_distinction=1 and www='"&Clsm_Domaine&"' "

'分类
if Clng(keyn)>0 then
sqltext  = sqltext&" and n="&keyn&" "
end if

'标题
if keys<>"" then
sqltext  = sqltext&" and n_title like '%"&keys&"%' "
end if

sqltext  = sqltext&" order by n_time desc"


sqltext  = sqltext&" ) "





'分类
if Clng(keyn)>0 then
sqltext  = sqltext&" and n="&keyn&" "
end if

'标题
if keys<>"" then
sqltext  = sqltext&" and n_title like '%"&keys&"%' "
end if

sqltext  = sqltext&" order by n_time desc"

Rs.open sqltext,wConn,1,1
if not(Rs.bof and Rs.eof) then

For i=1 to 20
If Rs.Eof Then Exit For
lastnum      = lastnum+1
N0           = Rs("n_id")
Ntitle       = Rs("n_title")
Npic1        = Rs("pic1")
Ncontent     = Rs("n_content")
Ntime        = Rs("n_time")
Nhit         = Rs("n_hit")
%>




<div style="width:1178px; display:table; padding:10px 0; border-bottom:1px solid #E8E8E8;">
<%if Npic1<>"" then%>
<div style="float:left; display:inline-block; width:120px; height:90px; overflow:hidden; border-radius:3px; background:url(<%=Npic1%>) center center no-repeat; background-size:100% 100%;"></div>
<div style="float:left; display:inline-block; width:918px; height:90px; margin:0 20px; overflow:hidden;">
<div style="width:100%; height:30px; font-size:18px;"><a href="News.S.asp?ID=<%=N0%>" target="_blank" class="newsLinka"><%=Ntitle%></a></div>
<div style="width:100%; height:60px; line-height:20px; color:#666666; font-size:12px;"><%=Removehtml(Ncontent)%></div>
</div>
<%else%>
<div style="float:left; display:inline-block; width:1048px; height:90px; margin:0 20px 0 10px; overflow:hidden;">
<div style="width:100%; height:30px; font-size:18px;"><a href="News.S.asp?ID=<%=N0%>" target="_blank" class="newsLinka"><%=Ntitle%></a></div>
<div style="width:100%; height:60px; line-height:20px; color:#666666; font-size:12px;"><%=Removehtml(Ncontent)%></div>
</div>
<%end if%>
<div style="float:left; display:inline-block; width:100px; height:50px; margin:20px 0; overflow:hidden; color:#999999;">
浏览：<%=Nhit%><br>
时间: <%=Ntime%>
</div>

</div>





<%
Rs.Movenext
Next
end if
Rs.close
set Rs=nothing
end if
'===============================
'===============================
Response.Write "$$$"&N0&"$$$"&lastnum
Response.End()
Call wCloseDB()
%>