<% table=Request("table") Set DbCon=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.RecordSet") DbCon.Open("DSN=ch71;UID=sa;PWD=pages30") RS.Open("Select * from "&table&" Order By ref Desc, step"),Dbcon,1,1 if(rs.bof=true and rs.eof=true) then r=1 else RS.PageSize=10 page=Request("page") if page<>"" then cpage=page if cpage<1 then cpage=1 end if else cpage=1 end if RS.AbsolutePage=cpage end if %> Áß¾Ó°íµîÇб³ 71ȸ µ¿Ã¢È¸
<% if table="board02" then %> <% elseif table="board03" then %> <% end if %>

<% ss="select count(*) as tc from "&table Set rr=dbcon.Execute(ss) if rr("tc")=0 then %>
 
ÀÚ·á°¡ ¾ø½À´Ï´Ù.  ±ÛÀ» ¿Ã·ÁÁÖ¼¼¿ä!
 
¡¡
<%else%> <% if r=1 then %> <% else %> <% RowCount=rs.PageSize Do While Not RS.EOF and RowCount >0 %> <% RowCount = RowCount-1 RS.MoveNext Loop end if %>
¹ø È£

±Û¾´ÀÌ

³¯Â¥ Á¶È¸¼ö Subject

<%if left(now,10) = left(Rs("regdate"),10) then%> <%=rs("numm")%> <%else%> <%=rs("numm")%> <%end if%> <%if rs("email")<>"" then%> " class="con"><%=rs("writer")%> <%else%> <%=rs("writer")%> <%end if%> <%=rs("regdate")%> <%=rs("visited")%> <% subject=rs("subject") subject=replace(subject,"
"," ") if Len(subject)>25 then subject=left(subject,25)&".." end if if rs("re_level") > 0 then wid = 4 * rs("re_level") %> <% end if %> "><%=subject%>
<% if (table="board01") then %> <% else %> <% end if %>

  <% if cpage>1 then %> <%else%> <%end if%>   <%if RowCount=0 then%> <%else%> <%end if%>
<%end if%>

Comments & Questions: banjang@choongang71.or.kr
© 2000 http://www.choongang71.or.kr All Rights Reserved.

<% DbCon.Close set rs=nothing set DbCon=nothing %>