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 product_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 product where dir_id="&rs_dir("dir_id")&" order by post_date desc")
while not rs.eof
Response.Write("
- "&rs("post_date")&""&vbcrlf)
rs.movenext
wend
set rs=nothing
Response.Write("
- "&vbcrlf)
set rs=conn.execute("select * from product where "&where_dir&" order by post_order")
while not rs.eof
product_intro=GetIntro(rs("post_text"))
%>
- <% rs.movenext wend set rs=nothing Response.Write("