繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 使用组件封装数据库操作(二)
- ASP
- 制作我们自己的Ebay(拍卖系统)(3)
- 制作我们自己的Ebay(拍卖系统)(4)
- 制作我们自己的Ebay(拍卖系统)(5)
- 制作我们自己的Ebay(拍卖系统)(6)
- 制作我们自己的Ebay(拍卖系统)(8)
- 制作我们自己的Ebay(拍卖系统)(9)
- 制作我们自己的Ebay(拍卖系统)(7)
- 作一个可以直接和浏览器进行交互的组件
- 用ASP+实现一个简单的计算器(适合入门者)
- 用多种方法制作WEB页面的计数器
- asp+的论坛列表程序---代码部分
- asp+的论坛列表程序---页面部分
- asp+版本简单的留言板的制作(一)
- asp+版本简单的留言板的制作(二)
- asp+版本简单的留言板的制作(三)
- 一个功能完善的专栏管理的程序->这是asp.net的第二个应用(一)
- 一个功能完善的专栏管理的程序->这是asp.net的第二个应用(二)
- 一个功能完善的专栏管理的程序->这是asp.net的第二个应用(三)
- 一个功能完善的专栏管理的程序->这是asp.net的第二个应用(四)
- 一个功能完善的专栏管理的程序->这是asp.net的第二个应用(五)
ASP 中的 使用组件封装数据库操作(二)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 218 ::
收藏到网摘: 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
