亚洲AV无码乱码在线观看不卡|最新大伊香蕉精品视频在线|亚洲不卡av一区二区|国产美女无遮挡免费

登錄論壇 | 注冊會員 設(shè)為首頁 | 收藏本站
當(dāng)前位置 : 首頁>軟件學(xué)院>程序開發(fā)>ASP教程>正文
 
ASP教程:自己寫的數(shù)據(jù)庫操作類

http://www.yibo1263.com 2010-3-16 8:26:13  來源:東北IT網(wǎng)  編輯:葉子
 

        set conn=server.CreateObject("adodb.connection")
        conn.open connstr
        errMsg "連接數(shù)據(jù)庫"
    End Sub
    '類結(jié)束
    Private Sub Class_terminate()
        conn.close
        set conn=nothing
    End Sub
'-------------------------------------------------------------------------
'給類的變量設(shè)置值
'-------------------------------------------------------------------------   
    '設(shè)置sql語句
    Public Property Let sqlStr(Byval Values)
    strsql=Values
    End Property
    '設(shè)置查詢分頁的表名
    public property let tbName(Byval Values)
    vTbName=Values
    end property
    '--------------------------------------------------------
    '設(shè)置查詢分頁的表的主鍵
    public property let pKey(ByVal Values)
    vPKey=Values
    end property
    '--------------------------------------------------------
    '設(shè)置顯示的字段
    public property let pgFields(ByVal Values)
    vPgFields=Values
    end property
    '--------------------------------------------------------
    '設(shè)置每頁顯示的記錄數(shù)
    public property let pgSize(ByVal Values)
    vPgSize=Values
    end property
    '---------------------------------------------------------
    '設(shè)置當(dāng)前顯示的頁數(shù)
    public property let currPg(ByVal Values)
    vCurrPg=Values
    end property
    '--------------------------------------------------------
    '設(shè)置查詢的條件
    public property let conditions(ByVal Values)
    if Len(Values)>0 then
    vConditions=" where "&Values
    else
    vConditions=" where 1=1 "
    end if
    end property
    '-------------------------------------------------------
    '設(shè)置查詢的排序
    public property let orderBy(ByVal Values)
    if Len(Values)>0 then
    vOrderBy=" order by "&Values
    else
    vOrderBy=Values
    end if
    end property   
    '-------------------------------------------------------------
    '得到記錄總數(shù)
    public property get vRsCount()
    if vCurrPg=1 then
    sqlc="select count("&vPKey&") as Idcount from "&vTbName&" "&vConditions
    set rsc=server.CreateObject("adodb.recordset")

本新聞共5頁,當(dāng)前在第2頁  1  2  3  4  5  

 
收藏】【打印】【進(jìn)入論壇
  相關(guān)文章:

·解決頁面延遲的兩個方法
·ASP教程:ASP簡介 

 
 
 
 
最新文章

中關(guān)村艷照門女主角詳記錄高清組圖 
大連護(hù)士門大尺度艷照高清組圖
iPhone女孩微博爆紅 最寶貴東西換iPhon
反恐精英之父內(nèi)維爾:改變電腦游戲銷售
團(tuán)購網(wǎng)站黎明之前:中國市場慘烈廝殺不
團(tuán)購鼻祖Groupon中國揭秘:快與慢的商業(yè)
Spil Games發(fā)布新的品牌形象
1800配置一臺主機(jī) 不要顯示器
聯(lián)想V360筆記本模特寫真
愛國者第四代移動硬盤將面市、低電壓保

 
推薦文章
1
2
3
4
5
6
7
8
9
10
iPhone女孩微博爆紅 最寶貴東西換
大連護(hù)士門大尺度艷照高清組圖
中關(guān)村艷照門女主角詳記錄高清組
蘋果員工中毒門
宮如敏不雅照瘋傳 看張馨予韓一菲
深耕市場 永續(xù)經(jīng)營——專訪百腦匯
優(yōu)派專業(yè)電子書 讓您回家旅途多姿
揭曉百萬大獎三星bada魅力綻放中
大明龍權(quán)“江湖英雄會”全國PK大
永恒之塔校園達(dá)人挑戰(zhàn)賽完美落幕
八卦圖解 More>>
iPhone女孩微博爆紅 最寶貴東西換 大連護(hù)士門大尺度艷照高清組圖
中關(guān)村艷照門女主角詳記錄高清組 宮如敏不雅照瘋傳 看張馨予韓一菲
新建县| 舞钢市| 芒康县| 青神县| 沈阳市| 吕梁市| 隆德县| 重庆市| 巧家县| 丽江市| 西平县| 嘉善县| 乌拉特中旗| 赫章县| 四子王旗| 孝义市| 习水县| 瑞金市| 奉新县| 望奎县| 博兴县| 长乐市| 岫岩| 谢通门县| 襄垣县| 射阳县| 敦煌市| 宿迁市| 东乡县| 灵宝市| 武宣县| 衡阳县| 兴文县| 余干县| 郓城县| 涿州市| 凤城市| 苏尼特左旗| 米林县| 黑水县| 江永县|