|
 |
|
<%
Sql = "Select top 1 Unid,title,DefaultPic from article_info where flag = 0 and DefaultPic<>'' and Audit = 0 order by Intime desc,Unid desc"
Set Rs = Conn.Execute(Sql)
if Rs.eof then
Response.write("还没有图片文章 | ")
else
do while not Rs.eof
Response.write("")
Response.write("" & Rs(2) & "
")
Response.write(""& Rs(1) &"")
Response.write(" | ")
Rs.movenext
loop
end if
Rs.close
%>
|
|
|
<%
SqlStr = "Select top "& listNum &" Unid,title,classid,Nclassid,Intime,hits,pic from article_info where flag = 0 and Audit = 0 and classid =1 order by Intime desc,Unid desc"
Set RsStr = Conn.Execute(SqlStr)
if RsStr.eof and RsStr.bof then
Response.write(" 还没有添加文章。 ")
else
do while not RsStr.eof
%>
<%=bullet%><%=zhiyuan.GetString(RsStr(1),17)%>
<%
if DisPicico then
if RsStr("pic") = 1 then
Response.write "  "
end if
end if
call zhiyuan.smort()
%>
|
<%
if RsStr("intime")>=date then
Response.write("")
else
Response.write("")
end if
Response.write zhiyuan.FormatTime(RsStr("intime"))
Response.write("")
%>
|
<%
RsStr.movenext
loop
end if
RsStr.close
%>
 |
|
 |
 |
|
|
|
|
