<%
SQLstr=" Select * from News "
SQLstr=SQLstr+" Where ID >0 and NewsType='F' "
SQLstr=SQLstr+" Order by ID Desc "
'Response.Write SQLstr
rs.open SQLstr,Application("SysconnStr"),3,1
for i=1 to NewsListNum
if rs.eof then
exit for
end if
response.write " "
Response.Write "" & FormatStr(rs("Title")) & ""
response.write ""
' response.write " " & rs("Author")
response.write " ("
response.write " " & rs("WriteTime")& ") "
response.write " 人气：" & rs("Counter")
response.write " "
rs.MoveNext
Next
if not rs.eof then
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write "更多 ... "
end if
rs.close
%>
"
Response.Write "