新潮留网－活动－活动相片

新潮留网站欢迎你！

    →最新动态

    →活动相片

     →展览

<% dim T if request("Class")=Empty then %> <% else dim sql, i,j,f,s,page,temp T=request("Class") if request("page")=empty then page=1 else page=CInt(request("page")) end if sql="select * from Class where Type='" & T & "'" rs.open sql,conn,1,1 f=rs(3) s=rs("Size") i=1 response.write "" i=8*page-7 temp=i+8 while i~~" for j=1 to 4 response.write "" i=i+1 if i>s then response.write "" exit for end if next response.write "" wend rs.close CloseDatabase end if %>~~


成立庆典	迎接新生	烧烤会

Party	聚餐会
"&rs("Type") & "	回目录

<% temp=s/8 if (s mod 8)<>0 then temp=temp+1 response.Write "第 " for i=1 to temp if i=page then response.write "" & i &"　" else response.write ""&i& "　" end if next response.write "页"%>