开始数据库操作。(XMW)

常见的组件封装

1．  把数据库的连接信息封装起来。(XMW)

1>     直接返回数据库连接串，如，组件中

Public  Function  datasource()  As  Variant

datasource  =  "driver={sql  server};server=yang;uid=sa;pwd=;  database=northwind"

End  Function

asp调用

set obj=server.CreateObject("webdb.getinfo")  

oconn=obj.datasource()

这样的缺点是很明显的，在asp文件中，直接response.write oconn即可显示出数据库连接串，并没有起到预期的作用。(XMW)

2>     返回adodb.connection对象

Public Function GetConn() As ADODB.Connection

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=Northwind;Data Source=yang"

conn.Open

Set GetConn = conn

End Function

Asp调用

Dim DataQuery

Set DataQuery=Server.CreateObject("WebDbtest.GetInfomation")

set rs=server.createobject("adodb.recordset")

sql="select * from employees"

Rs.open sql,DataQuery.getconn,1,3   

response.Write Rs("LastName")

Response.write DataQuery.getconn.ConnectionString

set Rs=nothing

这样看起来不错，只是Response.write DataQuery.getconn.ConnectionString还是会显示出数据库连接串，大家可以测试。(XMW)

2．  将组件封装到记录集

可以看一下前段时间写的/Article/jiaocheng/asp/200604/4065.html

这段代码不好的一点就是数据库的连接放到了页面中判断，连接成功后，才开始访问数据，看

个人认为，最好的做法是：

封装到记录集，组件方法中连接数据库，操作完后，及时关闭

尽量在组件中生成HTML代码，做到全部封装。如下面的这种方式

而不是部分的封装。(XMW)

上一页  [1] [2] [3] [4] [5]  下一页