<%
if xwid=0 then
sql = "select * from dzxinwen where (yaowen=1) order by shijian desc"
else
sql = "select * from dzxinwen where (leibie like '%"& xwname &"%') and (yaowen<>1) order by shijian desc"
end if
rs.Open sql, Conn, 0, 2
if not rs.eof or not rs.bof then
datenow=now
' ynow=year(now)
inum=0
do while not rs.eof
inum=inum+1
btc=rs("namecolor")
xinwenname=rs("name")
if btc=true then xinwenname=""& xinwenname &""
xinwenid=rs("id")
havepic=rs("nrpic")
xinwensj=rs("shijian")
iflink=""
iflink=rs("iflink")
linkname=rs("linkname")
xinwensj=FormatDateTime(xinwensj,2)
xyear=year(xinwensj)
dayinterval=datediff("d",xinwensj,datenow)
if dayinterval>2 then
newstr=""
else
newstr="new"
end if
pstr=""
if ( havepic<>null or havepic<>"") then pstr=""
if iflink=true then
strxinwen="·"&inum&" "
else
strxinwen="·"&inum&" "
end if
strxinwen=strxinwen+xinwenname & " "& pstr &"("&xinwensj&")"& newstr &""
if xyear<>ynow then
%>
| <%=xyear%> |
<%
ynow=xyear
end if
%>
|
<% response.write " "& strxinwen%> |
<%
rs.movenext
loop
else
ss="no"
response.write ss
end if%>
| |
|
|
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
