<%
set rs=server.createobject("adodb.recordset")
sql="SELECT top 3 * FROM Article where IncludePic=true order by updatetime desc"
rs.Open sql,conn,1,3
str1=trim(right(rs("DefaultPicUrl") , len(rs("DefaultPicUrl"))-3))
ArticleID1=rs("ArticleID")
if len(rs("title"))>17 then
title1=left(rs("title"),17)&".."
else
title1=rs("title")
end if
rs.movenext
dim str2
str2=right(rs("DefaultPicUrl") , len(rs("DefaultPicUrl"))-3)
ArticleID2=rs("ArticleID")
if len(rs("title"))>17 then
title2=left(rs("title"),17)&".."
else
title2=rs("title")
end if
rs.movenext
str3=trim(right(rs("DefaultPicUrl") , len(rs("DefaultPicUrl"))-3))
ArticleID3=rs("ArticleID")
if len(rs("title"))>17 then
title3=left(rs("title"),17)&".."
else
title3=rs("title")
end if
%>
<%
set rst=server.createobject("adodb.recordset")
sql="SELECT top 1 * FROM Article where classid=1 order by updatetime desc"
rst.Open sql,conn,1,3
title=trim(rst("title"))
title=replace(title," "," ")
%>
<%
i=0
MaxList=10
set rs=server.createobject("adodb.recordset")
sql="SELECT top 10 * FROM Article where classid=3 order by updatetime desc"
rs.Open sql,conn,1,3
do while not rs.eof
title=trim(rs("title"))
title=replace(title," "," ")
i=i+1
%>
<%
i=0
MaxList=10
set rs=server.createobject("adodb.recordset")
sql="SELECT top 8 * FROM Article where classid=1 order by updatetime desc"
rs.Open sql,conn,1,3
do while not rs.eof
title=trim(rs("title"))
title=replace(title," "," ")
i=i+1
%>
<% if i>=MaxList then exit do
rs.movenext
loop
rs.close
%>
<%
i=0
MaxList=10
set rs=server.createobject("adodb.recordset")
sql="SELECT top 10 * FROM Article where classid=4 order by updatetime desc"
rs.Open sql,conn,1,3
do while not rs.eof
i=i+1
title=trim(rs("title"))
title=replace(title," "," ")
%>
<%end if%>