"
if lei=3 then
str=str+" "
end if
if lei<>3 then
str=str+"【"+rs2("sontype")+"】"
end if
str=str+""
if rs2("selectpic") = 1 then
str=str+"[图文]"
end if
str=str+""+rs2("title")+""
if datediff("h",rs2("dateandtime"),now())<=24 then
str=str+" "
end if
if rs2("gwh")<>"" then
str=str+" "+rs2("gwh")+" "
end if
if lei<>3 then
if rs2("addusername")<>"" then
str=str+" "+(rs2("addusername"))+"报送 "
end if
str=str+" ("+cstr(year(rs2("dateandtime")))+"-"+cstr(month(rs2("dateandtime")))+"-"+cstr(day(rs2("dateandtime")))+")[阅读:"+cstr(rs2("hits"))+"次]"
else
str=str+" ("+cstr(rs2("dateandtime"))+")"
end if
str=str+" |
"
shu=shu-1
if shu<1 then exit do
rs2.movenext
loop
rs2.close
set rs2=nothing
str=str+"
.gif){kind=spacer}
