<%
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 +:+
<%
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%>
<%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%>
"
Length_Count = 0
while ( Length_Count < bbsLocation )
Symbol = " " & Symbol
Length_Count = Length_Count + 1
Wend
End if%>