Asp组件中级入门与精通系列之七

类别:.NET开发 点击:0 评论:0 推荐:

开始数据库操作。

常见的组件封装

1.? 把数据库的连接信息封装起来。

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即可显示出数据库连接串,并没有起到预期的作用。

?

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还是会显示出数据库连接串,大家可以测试。

?

?

?

2.? 将组件封装到记录集

可以看一下前段时间写的http://blog.csdn.net/online/archive/2003/12/11/7764.aspx

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

<%

Flag=DataQuery.GetConn()

If Flag=false then

? ResPonse.Write "数据库没有连结,请检查"

? ResPonse.End

End if

Set Rs=DataQuery.GetEmployeeList()

……

%>

?

?

个人认为,最好的做法是:

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

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

<%

‘List方法中包含了页面的生成,连接的处理,分页处理等等

??? dim objLoop

??? Set objLoop=Server.CreateObject("WebDbtest.GetInfomation ")

??? objLoop.List()

??? Set objLoop=Nothing

%>

而不是部分的封装。

本文地址:http://com.8s8s.com/it/it44120.htm