繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 使用组件封装数据库操作(二)
- ASP
- ASP 3.0高级编程（二十七）
- ASP 3.0高级编程（二十八）
- ASP 3.0高级编程（二十九）
- ASP 3.0高级编程（三十）
- ASP中时间函数的使用(一)
- ASP中时间函数的使用(二)
- ASP中时间函数的使用(三)
- .NET之ASP WebApplication快速入门(1)
- .NET之ASP WebApplication快速入门(2)
- .NET之ASP WebApplication快速入门(3)
- .NET之ASP WebApplication快速入门(4)
- .NET之ASP WebApplication快速入门(5)
- asp.NET特写
- ASP 3.0高级编程（七）
- ASP 3.0高级编程（八）
- ASP.NET 入门的五个步骤
- ASP 组件指南
- XML 数据的编码方式
- ASP 3.0高级编程（九）
- ASP 3.0高级编程（十）
ASP 中的 使用组件封装数据库操作(二)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 34 ::
收藏到网摘: n/a
前段日子发表的文章，数据库的连接代码可以直接在ASP文件中显示出来。这次又进行了一次封装。
打开vb，新建Activex控件，工程名称为WebDb，类模块名称为GetInfomation
引用”Microsoft Activex Data Object 2.6 Library ”
Private Conn As ADODB.Connection
Private Rs As ADODB.Recordset
‘作用:判断数据库是否正确连结
'自己可以更改连接串
Public Function GetConn()
Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=yang"
If Err.Number <> 0 Then
GetConn = False
Else
GetConn = True
End If
End Function
‘根据输入的雇员ID,得到雇员的名称
Public Function GetEmployeeName(strEmployeeID As Integer) As String
Dim strSql As String
Set rs = New ADODB.Recordset
strSql = "select LastName+firstname from employees where EmployeeID=" & strEmployeeID
rs.Open strSql, Conn, adOpenStatic, adLockOptimistic
If rs.EOF Then
GetEmployeeName = ""
Else
GetEmployeeName = rs.Fields(0)
End If
rs.Close
End Function
‘返回所有的雇员列表
Public Function GetEmployeeList() As ADODB.Recordset
Dim strSql As String
Set rs = New ADODB.Recordset
strSql = "select EmployeeID,LastName,FirstName,Title,TitleOfCourtesy,BirthDate,HireDate,Address,City from employees"
rs.CursorLocation = adUseClient
rs.Open strSql, Conn, adOpenStatic
Set GetEmployeeList = rs
'rs.Close
End Function
我们进行测试
新建ASP页面，”TestWebDb1.asp”。主要用来测试GetEmployeeList()方法
<HEAD>
<!- 测试页 ->
<!- 功能：测试组件 ->
<!- 作者：龙卷风.NET ->
<%
Dim strTopic
Dim strTitle
Dim strContents
Dim DataQuery
Dim Rs
Dim Myself
Myself=Request.ServerVariables("script_name")
Set DataQuery=Server.CreateObject("WebDb.GetInfomation")
Set Rs=Server.CreateObject("adodb.recordset")
%>
<TITLE>
数据组件测试页
</TITLE>
<H1><CENTER>欢迎使用数据组件(www.knowsky.com)</CENTER></H1>
<%
Dim Flag
Flag=DataQuery.GetConn()
If Flag=false then
ResPonse.Write "数据库没有连结,请检查"
ResPonse.End
End if
Set Rs=DataQuery.GetEmployeeList()
if rs.eof then
Response.write "没有数据,请查询"
Response.end
end if
Rs.PageSize =3
Page= CLng(Request.QueryString ("Page"))
评论 (0) All
