<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim MaxPerPage MaxPerPage=24 dim totalPut,CurrentPage,TotalPages Dim ClassID ClassID=trim(request("ClassID")) if ClassID<>"" then ClassID=CLng(ClassID) else ClassID=0 end If Dim strFileName strFileName="gallery.asp?ClassID=" & ClassID & "&Item=" & Request("Item") if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end If Dim arrClassID arrClassID = ClassID response.write "" %> Sheraton
Thirty-Nine Scotts Road · Singapore 228230
Phone: (65) 6737 6888 · Facsimile: (65) 6737 1072
<% Dim ShowRs,ShowSql Dim strClassName Set ShowRs = Server.CreateObject("ADODB.RecordSet") ShowSql = "Select ClassName from AC_PhotoClass where child=0 and ClassID="& ClassID &" order by RootID,OrderID" ShowRs.open ShowSql,conn,1,1 If ClassID = 0 Then strClassName = "" Else If Not ShowRs.Eof Then strClassName = ShowRs("ClassName") End If End If ShowRs.Close Set ShowRs = nothing %>
 
All <% Dim Cnt Cnt = 0 Dim TitleSQL,TitleRS,Title TitleSQL = "Select ClassID,ClassName from AC_PhotoClass where child=0 order by RootID,OrderID" Set TitleRS = Server.CreateObject("ADODB.RecordSet") TitleRS.Open TitleSQL,Conn,1,3 Do While Not TitleRS.Eof %> | &Item=<%=Cnt%>" target="_self" class="subsubmenu"><%=TitleRS("ClassName")%> <% Cnt = Cnt + 1 TitleRS.movenext Loop TitleRS.Close Set TitleRS = nothing %>
<%=IIf(ClassID="0","All",strClassName)%>
<% Dim FirstUrl,FirstPhotoIntro Dim FirstRs,FirstSql Set FirstRs = Server.CreateObject("ADODB.RecordSet") If ClassID = "0" Then If currentPage = 1 Then FirstSql = "select Top 1 P.PhotoID,P.ClassID,C.ClassName,P.PhotoName,P.PhotoUrl,P.Keyword,P.UpdateTime,P.Hits,P.PhotoLevel,P.PhotoIntro from AC_Photo P,AC_PhotoClass C where P.ClassID=C.ClassID and P.Deleted=False order by P.PhotoID asc" Else Topm = MaxPerPage*currentpage Topn = MaxPerPage*(currentpage-1)+1 TopCount = 1 TopLocation = Topn -1 FirstSql = "SELECT TOP "&TopCount&" P.PhotoID,P.ClassID,C.ClassName,P.PhotoName,P.PhotoUrl,P.Keyword,P.UpdateTime,P.Hits,P.PhotoLevel,P.PhotoIntro from AC_Photo P,AC_PhotoClass C where P.ClassID=C.ClassID and P.Deleted=False and (P.PhotoID NOT IN (SELECT TOP "&TopLocation&" P.PhotoID from AC_Photo P,AC_PhotoClass C where P.ClassID=C.ClassID and P.Deleted=False)) order by P.PhotoID asc" End If Else If currentPage = 1 Then FirstSql = "select Top 1 P.PhotoID,P.ClassID,C.ClassName,P.PhotoName,P.PhotoUrl,P.Keyword,P.UpdateTime,P.Hits,P.PhotoLevel,P.PhotoIntro from AC_Photo P,AC_PhotoClass C where P.ClassID=C.ClassID and P.Deleted=False and P.ClassID="& ClassID &" order by P.ClassID,P.RootID asc" Else Topm = MaxPerPage*currentpage Topn = MaxPerPage*(currentpage-1)+1 TopCount = 1 TopLocation = Topn -1 FirstSql = "SELECT TOP "&TopCount&" P.PhotoID,P.ClassID,C.ClassName,P.PhotoName,P.PhotoUrl,P.Keyword,P.UpdateTime,P.Hits,P.PhotoLevel,P.PhotoIntro from AC_Photo P,AC_PhotoClass C where P.ClassID=C.ClassID and P.Deleted=False and P.ClassID="& ClassID &" and (P.PhotoID NOT IN (SELECT TOP "&TopLocation&" P.PhotoID from AC_Photo P,AC_PhotoClass C where P.ClassID=C.ClassID and P.Deleted=False and P.ClassID="& ClassID &")) order by P.ClassID,P.RootID asc" End If End If FirstRs.Open FirstSql,Conn,1,3 If Not FirstRs.Eof Then FirstUrl = FirstRs("PhotoUrl") FirstPhotoIntro = FirstRs("PhotoIntro") End If FirstRs.Close Set FirstRs = nothing %>
<%=FirstPhotoIntro%>
<% Dim strPrevious Dim strNext Dim strPreviousOther Dim strNextOther Dim TotalNumber Dim TotalPage Dim strUrl Dim strtotalput if totalput>0 Then TotalNumber = totalput If TotalNumber Mod MaxPerPage = 0 Then TotalPage = TotalNumber \ MaxPerPage Else TotalPage = TotalNumber \ MaxPerPage + 1 End If If CurrentPage > TotalPage Then CurrentPage = TotalPage strUrl = JoinChar(strFileName) If CurrentPage = 1 Then strPrevious = strPrevious & "<<" Else strPrevious = strPrevious & "<<" End If If CurrentPage < TotalPage Then strNext = strNext & ">>" Else strNext = strNext & ">>" End If end if Dim m,strPage If totalput > 0 Then If TotalPage>5 Then strtotalput = 5 Else strtotalput = TotalPage End If strPage = "Page " strPage = strPage & strPrevious For m = 1 To strtotalput strPage = strPage &" " & m & " " Next strPage = strPage & strNext End If %>
<%=strPage%>

<% Call CloseConn() %>