Asp类的数据库领域

奶奶的，Asp类是真不好学啊，看着简单，可真到用的时候，网上的代码是都报错啊！！郁闷了恩久！！ 3天了，终于调试出来了，一个简单的数据库类模型，不敢独享，拿出来大家分享吧！本作品归站长中国 www.zzcn.net 彭彭所有，你们拷贝的时候不许去掉版权，否则拷贝的人全家死光光！！！！呵呵。。：）复制代码代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <% ' 彭彭制作的一个新闻类敬请笑纳【站长中国】 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 %> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>Asp 数据库类彭彭制作 QQ：76526211</title> </head> <body> <% dim news set news = new NewsClass call news.getrs("网站收藏",1,1,1,1) response.write news.id & " " & news.title set news = nothing %> </body> </html>

　　推荐阅读

　　ASP实现URL编码

URL编码是指为了将信息通过URL进行传输，所以必须将某些含有特殊意义的字符进行替换的一种编码方式，在asp中我们都知道有一个Server.URLEncode的函数可以完成这个功能。即：　　如果有空格就用%20代替，如果有其>>>详细阅读

本文标题：Asp类的数据库领域

地址：http://www.17bianji.com/kaifa2/ASP/33012.html

1/2 1

Asp类 的数据库领域

Asp类的数据库领域