<%'******要到第幾頁***** SortList=request("SortList") if SortList=empty then SortList="visit" end if CurPage= 0 if Request.QueryString("Page")<>"" then CurPage = cint(Request.QueryString("Page")) if Request.QueryString("ToPage")<>"" then CurPage = cint(Request.QueryString("ToPage")) if CurPage <=0 then CurPage = 1 session("GoToPage")=CurPage '*****開啟資料庫hkelement.mdb***** set cn=Server.CreateObject("ADODB.Connection") cn.open strConnectionwwForum set rs=Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tblAuthor , tblGroup WHERE tblAuthor.Group_ID = tblGroup.Group_ID and tblAuthor.Group_ID=6 and tblauthor.Avatar_title='Model'" RS.Open strSQL, cn, 1, 3 Count=RS.RecordCount If Count/500 > (Count\500) then TotalPage=(Count\500)+1 else TotalPage=(Count\500) 'Finding 12 random numbers thumbNo=10 Dim aryRndCount(10) for i=0 to thumbNo-1 RndCount=fix( Count * (second(now())/60)) + i if RndCount>Count then aryRndCount(i)=RndCount-Count else aryRndCount(i)=RndCount end if next 'response.write Count 'for i=1 to thumbNo 'response.write " "& aryRndCount(i) &" " 'next 'response.end RS.MoveFirst if CurPage > TotalPage then CurPage = TotalPage RS.Move (CurPage-1) * 500 %> <%'begin of random best photo*********************************** set cn2=Server.CreateObject("ADODB.Connection") cn2.open strConnectionHkelement set rs2=Server.CreateObject("ADODB.Recordset") strSQL2 = "SELECT * FROM Best_Photo" RS2.Open strSQL2, cn2, 1, 3 Count=RS2.RecordCount 'Finding 3 random best photo thumbNo=4 Dim aryRndBPno(4) for i=0 to thumbNo-1 RndCount=fix( Count * (second(now())/60)) + i if RndCount>Count then aryRndBPno(i)=RndCount-Count else aryRndBPno(i)=RndCount end if next %> <% 'Top 2 activities set cn3=Server.CreateObject("ADODB.Connection") cn3.open strConnectionHkelement set rs3=Server.CreateObject("ADODB.Recordset") strSQL3 = "SELECT top 2 * FROM Event where TID > 0 order by eID desc" rs3.Open strSQL3, cn3, 1, 3 while not rs3.eof %> <% rs3.MoveNext wend rs3.Close cn3.Close %>

HKElement Model <% i=1 while (not(rs.eof) or (j>thumbNo)) for k=0 to thumbNo-1 if aryRndCount(k)=i then j=j+1 %> <% end if 'response.write "i=" & i & "k=" & k & "j=" & j&"
" next if (j=5 and not(displayed)) then response.write ("") displayed=true end if i=i+1 RS.MoveNext wend RS.Close CN.Close %>

" border=0 width=64 height=64>
','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><%=rs("userName")%>

click for detail

精選作品 <% i=1 while not(rs2.eof) for k=0 to thumbNo-1 if aryRndBPno(k)=i then j=j+1 if rs2("hv")="h" then response.write " <% end if next i=i+1 RS2.MoveNext wend RS2.Close CN2.Close %>

" else response.write "

" end if %>
','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><%=rs2("userName")%>

click for detail

<% response.write "" & " " & rs3("EventName") & " EF-" & rs3("eID") & "" %> <% =rs3("Model")%>

.jpg" height=<%=rs3("imgHeight")%> width=<%=rs3("imgWidth")%> border=0 align=right>

">詳情

買賣交易
歡迎所有會員發表買賣交易

click for detail