<%
if id<=0 then
call ShowAll
else
call ShowOne(id,ShowOne_num)
end if
Sub ShowOne(the_dir_id,the_num)
dim where_dir,rs,rs_dir
where_dir="dir_id="&the_dir_id
num=conn.execute("select count(post_id) from news where "&where_dir)(0)
pagenum=(num-1)\NumPerPage+1
if pagenum<1 then pagenum=1
page=Request.QueryString("page")
if page-1<=0 then page=1
if page-pagenum>0 then page=pagenum
set rs_dir=conn.execute("select dir_name,path_name,dir_description from news_dir where dir_id="&the_dir_id)
if not rs_dir.eof then
path_name=rs_dir("path_name")
dir_name=rs_dir("dir_name")
dir_description=rs_dir("dir_description")
end if
set rs_dir=nothing
%>
<%
If num>0 then
Response.Write("
<%=dir_name%>
- "&vbcrlf)
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where "&where_dir&" order by post_date desc"
rs.open sql,conn,1,1
rs.pagesize=NumPerPage
rs.absolutepage=page
while not rs.eof
post_title=rs("post_title")
post_title=replace(post_title, """", "")
Response.Write("
·"&GetIntro(rs("post_title"),65)&"
"&rs("post_date")&""&vbcrlf)
rs.movenext
wend
set rs=nothing
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("