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 "初始化<br>"
  call newsconnstart()
End Sub

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

  'response.Write "释放对象事件：Class_Terminate<br>"
  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 & "<br>"
    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&"<br>"
  set rs=Server.CreateObject("adodb.recordset")
  rs.open sql, conn, 1, 1

上一篇：不用模板，只用ASP+FSO生成静态HTML页的一个方法

下一篇：Oracle常用功能集锦

发表评论

共有条评论