<% Response.Expires=0 if request("db") <> "" then session("db")=Request("db") else session("db") = "bbs3" end if db=Session("db") 'sort¡Æ¨£(¡ÆO¨öA©ö¡Æ¨¬¨¢¡¤u)AI ¨ú©ªA¢¬¢¬e AUA?¡ÆO¨öA¨¡CA¢¬¡¤I.... If request("sort") <> "" then Session("sort") = trim(request("sort")) Else Session("sort") = "free" End If sort = Session("sort") if Request("PageNo")="" then CurrentPage=1 else CurrentPage=CInt(Request("PageNo")) end if if Request("StartPage")="" then StartPage=1 else StartPage=CInt(Request("StartPage")) end if Set Session("objConn") = Server.createObject("ADODB.Connection") Session("objConn").open "dsn=seoulart;uid=seoulart;pwd=seoulart0217;" Set ObjRec=Server.CreateObject("ADODB.Recordset") ObjRec.Open "SELECT * FROM " & db & " WHERE bbsSort = '" & sort & "' ORDER BY bbsWgroup DESC,bbsStep", Session("ObjConn"), 1 If Not objRec.EOF and Not objRec.BOF then MaxPage=10 ObjRec.PageSize=10 PS = ObjRec.PageSize Recordcount=ObjRec.Recordcount PageCount = ObjRec.PageCount objRec.AbsolutePage = CurrentPage Else RecZero = 1 End If %> +:+ Welcome to Seoul Art Fair - Board +:+
[admin]  PAGE: <%=CurrentPage%>/<%=objRec.PageCount%>  
  <% if RecZero <> 1 then if ObjRec.PageCount = CurrentPage then PS = Recordcount Mod objRec.PageSize PC = PageCount MOd objRec.PageSize if PS = 0 then PS = objRec.PageSize end if Else PC = PS End if For i = 1 to PS bbsWgroup = objRec("bbsWgroup") bbsStep = objRec("bbsStep") bbsLocation = objRec("bbsLocation") Symbol = "" if( bbsLocation > 0 ) Then Symbol = "" Length_Count = 0 while ( Length_Count < bbsLocation ) Symbol = "    " & Symbol Length_Count = Length_Count + 1 Wend End if%> <% ObjRec.MoveNext Next end if %>
Á¦¸ñ ÀÛ¼ºÀÚ ³¯Â¥ Á¶È¸¼ö
  <%=Symbol%>&PageNo=<%=CurrentPage%>&StartPage=<%=StartPage%>"><%=ObjRec("bbsSubject")%> "><%=ObjRec("bbsWriter")%> <%tmpDate = left(ObjRec("bbsDate"),10) ' tmpYear = left(tmpDate,4) 'IF tmpYear = "1999" Then ' tmpYear = "1999" 'Else ' tmpYear = "2000" 'End IF realDate = left(tmpDate,4) & "/" & mid(tmpDate,6,2) & "/" & mid(tmpDate,9,2) %> <%=realdate%> <%=ObjRec("bbsVisited")%>

 
<%If PC = 0 Then PC = 1 End IF%> PAGE: <%If CurrentPage/PC > 1 and StartPage <> 1 then%> [ÀÌÀü<%=objRec.pagesize%>Page] <%End IF%> <%IF PageCount - StartPage+1 >= PC Then%> <%For i = StartPage to StartPage + PC-1 %> [<%=i%>] <%Next%> <%Else%> <%For i = StartPage to PageCount%> [<%=i%>] <%Next%> <%End IF%> <%If (PageCount - StartPage+1) > PC Then%> <%IF (PageCount - (StartPage + PC))/PC < 1 Then%> [´ÙÀ½<%=(PageCount - (StartPage + PC-1)) Mod PC%>Page] <%Else%> [´ÙÀ½<%=PC%>Page] <%End IF%> <%End IF%>
<% if CurrentPage > 1 then if(CurrentPage Mod MaxPage) = 1 And StartPage <> 1 then %> <%=back1_button%>  <% else %> <%=back1_button%>  <% end if %> <%else%><%=back2_button%>  <%end if%><% if CurrentPage >= objRec.PageCount then%><%=next2_button%>  <%else if (CurrentPage Mod MaxPage)=0 then%> <%=next1_button%>  <%else%> <%=next1_button%>   <%end if end if%> <%=write1_button%> 

Copyright ©2001 by AuctionArts All right reserved.