标题: ASP网站制作之asp对象化之:数据库操作类 [打印本页] 作者: 精灵巫婆 时间: 2015-2-3 23:40 标题: ASP网站制作之asp对象化之:数据库操作类 大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧对象|数据|数据库 <%
’────────────────────────────────
’功效申明：db类是完成数据库毗连的类，外面留无数据库毗连字符串接口
’包含模块：无，普通都是被其他模块包含
’挪用办法：1、假如利用原无数据库毗连，则不必更改数据库毗连字符串ConnStr
’ 详细操作为：Set DBC=New DataBaseClass
’ DBC.ConnStr="其他毗连字符串"
’ 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