<%@language="vbscript" codepage="936"%>


<%
class newsclass
 private zzcn,conn,cnnstr
 private title_p,id_p   
 '對象初始化 
 private sub class_initialize()    
  'response.write "初始化
"
  call newsconnstart()    
 end sub 

 '析構(gòu)函數(shù)，在使用 set nothing 釋放對象時(shí)，自動執(zhí)行 
    private sub class_terminate() 

  'response.write "釋放對象 事件：class_terminate
"
  call newsconnend()
    end sub 

 '數(shù)據(jù)庫鏈接函數(shù)
 private sub newsconnstart() 

        set conn = server.createobject("adodb.connection")
  cnnstr="driver={microsoft access driver (*.mdb)}; "
  cnnstr=cnnstr & "dbq=" & server.mappath("admin/watavase/%29to-dream.mdb")
  conn.open cnnstr
  'response.write cnnstr & "
"
    end sub 

 private sub newsconnend() 
        conn.close
  set conn = nothing
    end sub 

 

 '=========================================
 '函數(shù)名 getrs（）
 '獲得 某個(gè)欄目 的 一條 記錄集 
 '欄目名 lanmu 
 '每頁幾條記錄 k
 '第幾頁 page
 '第幾條記錄 n
 '日期 riqi  1 為按日期逆序 0 為升序
 '=========================================
 public function getrs(byval lanmu,byval k,byval page,byval n,byval riqi) 

  sql = "select * from articleclass where classname = '"&lanmu&"' order by classid desc"  
  'response.write sql&"
"
  set rs=server.createobject("adodb.recordset") 
  rs.open sql, conn, 1, 1

   if not rs.eof then
    classid_p = rs("classid")
   end if

  rs.close
  set rs = nothing

  

  
   if riqi = 1 then
    riqi_p = " order by updatetime desc"
   else
    riqi_p = ""
   end if

   
  sql = "select * from article where classid = "&classid_p&""&riqi_p
  set rs=server.createobject("adodb.recordset") 
  rs.open sql, conn, 1, 1
  rs.pagesize = k

   if not rs.eof then  
       rs.absolutepage = page
     end if
  i = 0 
  do while not rs.eof and i < n
  i = i + 1
  rs.movenext
  loop

  
  'response.write "rs
"
  if n = i then
   title_p = rs("title")
   id_p = rs("articleid")
   'response.write title_p
   'response.write id_p
  else
   title_p = null
   id_p = null
  end if

    
  rs.close
  set rs = nothing
    end function 

 

 '----------------------------------------
 '
 '屬性寫 標(biāo)題
    public property let title(byval v) 
        title_p = v 
    end property 
    '屬性讀  標(biāo)題
    public property get title() 
        title = title_p 
    end property

 '屬性寫 標(biāo)題id
    public property let id(byval v) 
        id_p = v 
    end property 
    '屬性讀  標(biāo)題id
    public property get id() 
        id = id_p 
    end property

end class 

 


%>