Asp類的數據庫領域

2024-05-04 10:59:02

字體：大中小

來源：轉載

供稿：網友

奶奶的，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常用功能集錦

發表評論

共有條評論