Home > <%=title%>
<%
if id<=0 then
call ShowAll
else
call ShowOne(id,ShowOne_num)
end if
Sub ShowAll
dim rs_dir,rs
set rs_dir=conn.execute("select dir_id,dir_name,path_name from news_dir order by dir_id")
while not rs_dir.eof
Response.Write("
"&rs_dir("dir_name")&"
"&vbcrlf) Response.Write("- "&vbcrlf)
set rs=conn.execute("select top "&ShowAll_num&" file_name,post_title,post_date from news where dir_id="&rs_dir("dir_id")&" order by post_date desc")
while not rs.eof
if len(rs("post_title"))>75 then
title=left(rs("post_title"),75)
else
title=rs("post_title")
end if
Response.Write("
- "&rs("post_date")&""&vbcrlf)
rs.movenext
wend
set rs=nothing
Response.Write("
- "&vbcrlf) Response.Write("
"&dir_name&"
"&vbcrlf) Response.Write("- "&vbcrlf)
set rs=conn.execute("select * from (select top "&num_now&" * from news where (post_id >= (select min(post_id) from (select top "&NumPerPage*Page&" post_id from news where "&where_dir&" order by post_date desc) as temp)) and "&where_dir&" order by post_date) order by post_date desc")
while not rs.eof
if len(rs("post_title"))>75 then
title=left(rs("post_title"),75)
else
title=rs("post_title")
end if
Response.Write("
- "&rs("post_date")&""&vbcrlf)
rs.movenext
wend
set rs=nothing
Response.Write("