您现在的位置是：网站首页> 编程资料编程资料

Asp类的数据库领域_ASP CLASS类_

2023-05-25 157人已围观

简介 Asp类的数据库领域_ASP CLASS类_

奶奶的，Asp类是真不好学啊，看着简单，可真到用的时候，网上的代码是都报错啊！！
郁闷了恩久！！ 3天了，终于调试出来了，一个简单的数据库类模型，不敢独享，拿出来大家分享吧！
本作品归站长中国 www.zzcn.net 彭彭所有，你们拷贝的时候不许去掉版权，否则拷贝的人全家死光光！！！！呵呵。。：）

复制代码代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<% 
' 彭彭制作的一个新闻类 敬请笑纳 【站长中国】 http://www.zzcn.net QQ：76526211 
class NewsClass 
 Private zzcn,conn,cnnstr 
 private title_p,id_p   
 '对象初始化  
 Private Sub Class_Initialize()    
  'response.write "初始化
" 
  call newsconnstart()    
 End Sub  

 '析构函数，在使用 set nothing 释放对象时，自动执行  
    Private Sub Class_Terminate()  

  'response.Write "释放对象 事件：Class_Terminate
" 
  call newsconnend() 
    end sub  

 '数据库链接函数 
 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  

  

 '========================================= 
 '函数名 getrs（） 
 '获得 某个栏目 的 一条 记录集  
 '栏目名 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  

  

 '---------------------------------------- 
 ' 
 '属性写 标题 
    Public Property Let title(byval v)  
        title_p = v  
    End Property  
    '属性读  标题 
    Public Property Get title()  
        title = title_p  
    End Property 

 '属性写 标题ID 
    Public Property Let id(byval v)  
        id_p = v  
    End Property  
    '属性读  标题ID 
    Public Property Get id()  
        id = id_p  
    End Property 

end class  

  


%>


Asp 数据库 类 彭彭制作 QQ：76526211




<% 
dim news 
set news = new NewsClass 
call news.getrs("网站收藏",1,1,1,1) 
response.write news.id & " " & news.title 
set news = nothing 
%>

上一篇：文章内页类_ASP CLASS类_

下一篇：ASP ACCESS 日期操作语句小结 By Stabx_应用技巧_

您现在的位置是：网站首页> 编程资料编程资料

Asp类的数据库领域_ASP CLASS类_

相关内容

点击排行

本栏推荐

猜你喜欢

您现在的位置是：网站首页> 编程资料编程资料

Asp类 的数据库领域_ASP CLASS类_

相关内容

点击排行

本栏推荐

猜你喜欢

Asp类的数据库领域_ASP CLASS类_