ASP网页编程之利用组件封装数据库操纵(二)

只看该作者 · 发表于 2015-1-16 23:08:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用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做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

只看该作者 · 发表于 2015-1-16 23:51:55

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

只看该作者 · 发表于 2015-1-20 12:30:19

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

只看该作者 · 发表于 2015-1-29 07:07:49

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

只看该作者 · 发表于 2015-1-29 19:23:21

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

只看该作者 · 发表于 2015-2-6 03:30:20

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

只看该作者 · 发表于 2015-2-15 09:55:11

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

只看该作者 · 发表于 2015-3-4 11:25:08

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

只看该作者 · 发表于 2015-3-11 18:56:12

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

只看该作者 · 发表于 2015-3-19 08:10:32

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之利用组件封装数据库操纵(二)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

ASP网页编程之利用组件封装数据库操纵(二)