-
<%
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql="select ID,Title,DateAndTime,Hits,IsTop,Images,TitleFontColor,Artdescription from Yao_Article Where ClassID="&rsclass("ID")&" and yn=0 order by IsTop desc,DateAndTime desc"
mypage.pagesize=""&artlistnum&""
set rs=mypage.getrs()
for i=1 to mypage.pagesize
if not rs.eof then
%>
- ·<%If rs("IsTop")=1 then Response.Write("[顶]") end if%>" target="_blank"><%if rs("TitleFontColor")<>"" then Response.Write(""&rs("Title")&"") else Response.Write(""&rs("Title")&"") end if%> <%=FormatDate(rs("DateAndTime"),11)%> <%If artlist=0 then%>
"" then Response.Write(" style=""height:95px;""") end if%>><%if rs("Images")<>"" then%>
<%End if%>
<%
rs.movenext
else
exit for
end if
next
%>
" />
<%end if%><%=left(LoseHtml(rs("Artdescription")),140)%>...[" target="_blank">查看全文]