查看完整版本: asp对象化之:数据库操作类

asp对象化之:数据库操作类

<%  
’────────────────────────────────   
’功能说明：db类是实现数据库连接的类，里面留有数据库连接字符串接口  
’包括模块：无，一般都是被其他模块包括  
’调用方法：1、如果使用原有数据库连接，则不用更改数据库连接字符串ConnStr  
’             具体操作为：Set DBC=New DataBaseClass  
’                         DBC.C  
’          2、方法使用：Set Conn=DBC.OpenConnection()得到一个连接对象  
’────────────────────────────────   
Class dbclass  
’────────────────────────────────   
’定义变量   
Private IConnStr   
’────────────────────────────────   
’ ConnStr属性  
Public Property Let ConnStr(Val)  
    IConnStr = Val  
End Property  
’────────────────────────────────   
’ ConnStr属性   
Public Property Get ConnStr()  
    ConnStr = IConnStr  
End Property  
’────────────────────────────────   
’ 类初始化   
Private Sub Class_initialize()   
End Sub   
’────────────────────────────────   
’ 类注销   
Private Sub Class_Terminate()   
    ConnStr = Null   
End Sub   
’────────────────────────────────   
’ 建立一个连接   
Public Function OpenConnection()   
    Dim TempConn  
    ’On Error Resume Next  
    Set TempConn = Server.CreateObject("ADODB.Connection")  
    TempConn.Open ConnStr   
    Set OpenConnection = TempConn   
    Set TempConn = Nothing   
    if Err.Number <> 0 then  
        Response.Write("<script>alert(’[系统错误]\n\n数据库连接错误！请检查系统参数设置>>站点常量设置,或者/inc/const.asp文件!’);</script>")   
        Response.End  
    end if  
End Function   
End Class  

%>

手机卡密码破解 手机密码破解软件 移动手机密码破解

*** 作者被禁止或删除 内容自动屏蔽 ***

快国庆了大家怎么安排

说说看都打算怎么过，我要和三鹿牛奶，喝一箱的说。





[img]http://recv.cn/upload/65539/2008-8/12008822062825782.gif[/img]
如何优雅的解决你面临的网站推广问题？[url=http://www.tgxzs%2ecom/]网站推广[/url]、[url=http://www.tgxzs%2ecom/]网络推广[/url]、[url=http://www.tgxzs.com/]群发软件[/url]、[url=http://www.tgxzs.com/]论坛群发[/url]、[url=http://www%2etgxzs.com/]竞价排名[/url]又将何去何从？