ASP网页编程之利用组件封装数据库操纵(二)
缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全封装|数据|数据库|组件封装利用组件封装数据库操纵(二)前段日子宣布的文章，数据库的毗连代码能够间接在ASP文件中显现出来。此次又举行了一次封装。
翻开vb，新建Activex控件，工程称号为WebDb，类模块称号为GetInfomation
援用”MicrosoftActivexDataObject2.6Library”
PrivateConnAsADODB.Connection
PrivateRsAsADODB.Recordset
‘感化:判别数据库是不是准确保持
本人能够变动毗连串
PublicFunctionGetConn()
Conn.Open"Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=Northwind;DataSource=yang"
IfErr.Number0Then
GetConn=False
Else
GetConn=True
EndIf
EndFunction
‘依据输出的雇员ID,失掉雇员的称号
PublicFunctionGetEmployeeName(strEmployeeIDAsInteger)AsString
DimstrSqlAsString
Setrs=NewADODB.Recordset
strSql="selectLastName+firstnamefromemployeeswhereEmployeeID="&strEmployeeID
rs.OpenstrSql,Conn,adOpenStatic,adLockOptimistic
Ifrs.EOFThen
GetEmployeeName=""
Else
GetEmployeeName=rs.Fields(0)
EndIf
rs.Close
EndFunction
‘前往一切的雇员列表
PublicFunctionGetEmployeeList()AsADODB.Recordset
DimstrSqlAsString
Setrs=NewADODB.Recordset
strSql="selectEmployeeID,LastName,FirstName,Title,TitleOfCourtesy,BirthDate,HireDate,Address,Cityfromemployees"
rs.CursorLocation=adUseClient
rs.OpenstrSql,Conn,adOpenStatic
SetGetEmployeeList=rs
rs.Close
EndFunction
我们举行测试
新建ASP页面，”TestWebDb1.asp”。次要用来测试GetEmployeeList()办法
<HEAD>
<!-测试页->
<!-功效：测试组件->
<!-龙卷风.NET->
<%
DimstrTopic
DimstrTitle
DimstrContents
DimDataQuery
DimRs
DimMyself
Myself=Request.ServerVariables("script_name")
SetDataQuery=Server.CreateObject("WebDb.GetInfomation")
SetRs=Server.CreateObject("adodb.recordset")
%>
<TITLE>
数据组件测试页
</TITLE>
<H1><CENTER>接待利用数据组件(www.ourfly.com)</CENTER></H1>
<%
DimFlag
Flag=DataQuery.GetConn()
IfFlag=falsethen
ResPonse.Write"数据库没有保持,请反省"
ResPonse.End
Endif
SetRs=DataQuery.GetEmployeeList()
ifrs.eofthen
Response.write"没无数据,请查询"
Response.end
endif
Rs.PageSize=3
Page=CLng(Request.QueryString("Page"))
IfPage<1ThenPage=1
IfPage>Rs.PageCountThenPage=Rs.PageCount
Response.Write"<CENTER><TABLEBORDER=1cellspacing=0cellpadding=2>"
Response.Write"<trBGCOLOR=silveralign=center>"
Response.Write"<td>EmployeeID</TD>"
Response.Write"<td>LastName</td>"
Response.Write"<td>FirstName</td>"
Response.Write"<td>Title</a></td>"
Response.Write"<td>TitleOfCourtesy</a></td>"
Response.Write"<td>BirthDate</td>"
Response.Write"<td>HireDate</td>"
Response.Write"<td>Address</td>"
Response.Write"<td>City</td>"
Response.Write"</tr>"
Rs.AbsolutePage=Page
ForiPage=1ToRs.Pag</p>在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。
ASP网页编程之利用组件封装数据库操纵(二)
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。
页:
[1]