:::::::::::::::::::::::::::: KOCC - Korea Cat Club ::: TICA Korea branch :::::::::::::::::::::::::::: <% gubun = request("gubun") gubun2=request("gubun2") if gubun="" then gubun="news" end if if gubun="news" or gubun2=1 then title_img = "title_news.gif" table="news_TBL" elseif gubun="event" or gubun2=2 then title_img = "title_event.gif" table="event_TBL" end if Dim intNowPage, intTotalCount, intTotalPage, intBlockPage, intPageSize Dim intTemp, intLoop intNowPage = Request.QueryString("page") intPageSize = 10 intBlockPage = 10 If Len(intNowPage) = 0 Then intNowPage = 1 End If strSQL = "Select Count(*)" strSQL = strSQL & ",CEILING(CAST(Count(*) AS FLOAT)/" & intPageSize & ")" strSQL = strSQL & " from " & table & WhereQuery Set objRs = Server.CreateObject("ADODB.RecordSet") objRs.Open strSQL, objCon,1 intTotalCount = objRs(0) intTotalPage = objRs(1) objRs.Close strSQL="Select Top " & intNowPage * intPageSize strSQL=strSQL & " * from " & table & WhereQuery & " order by idx DESC" objRs.Open strSQL, objCon %>
 
   
 
align="absmiddle"  
align="absmiddle"  
 
 
 
 
   
   
   
   
   
       

723  비밀글입니다 도메스틱 캣이란 무엇을 말하는것 인가요 ?  [1] 윤성환 2012/08/28 2
722  비밀글입니다 타이틀 등록 문의 드립니다.   [1] 신대준 2012/08/16 6
721    비밀글입니다 [re] 타이틀 등록 문의 드립니다.    신대준 2012/08/20 2
720  비밀글입니다 혈통서 재발급에 대해서....  [1] 김다정 2012/08/12 4
719  비밀글입니다 혈통서 문의입니다  [1] 이정희 2012/06/18 2
718  비밀글입니다 문의입니다.  [1] 박성수 2012/05/23 7
717  비밀글입니다 ,,,   고성운 2012/04/10 6
716  비밀글입니다 ,,,  [1] 고성운 2012/04/06 9
715  비밀글입니다 1대 등록 관련 추가 질문입니다    윤성환 2012/04/05 3
714    비밀글입니다 [re] 1대 등록 관련 추가 질문입니다    kocc 2012/04/09 2
   이전 [1][2][3][4][5][6][7][8][9] 10 ..[82] 다음
Copyright 1999-2018 Zeroboard / skin by jabusim