ASP网页设计asp利用activex组件实例一

只看该作者 · 发表于 2015-1-16 23:17:12

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

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

x

ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。active|activextest.asp

以下内容为程序代码
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">

<html>
<head>
<title>activex组件使用例子一</title>
</head>

<body>
<%
---------------------------------------------------------
activex组件使用例子一
读取sqlserver7pubs数据库中authors表并分页显现
asp文件中卖力挪用并前台数据查验，这里次要指page参数
该例子完整利用activex组件来完乐成能，速率快，保密性好，但页面定制才能差
jjxby2000/4/15
----------------------------------------------------------------
dimblnError
ifnotisempty(request("page"))then
ifnotisnumeric(request("page"))then
response.write"参数毛病！"
blnError=true
endif
endif
ifnotblnErrorthen
dimobjLoop
SetobjLoop=Server.CreateObject("Performance.Loop")
objLoop.List()
SetobjLoop=Nothing
endif
%>

</body>
</html>

vbloopclassfile
创立一个performanceactivexdll项目，援用microsoftactiveserverpageslibrary和MicrosoftActiveXDatabaeObject。
填加一个class,定名为loop

以下内容为程序代码
OptionExplicit

DimMyScriptingContextAsScriptingContext
DimMyRequestAsRequest
DimMyResponseAsResponse

SubOnEndPage()
SetMyResponse=Nothing
SetMyRequest=Nothing
SetMyScriptingContext=Nothing

EndSub

SubOnStartPage(PassedScriptingContextAsScriptingContext)
SetMyScriptingContext=PassedScriptingContext
SetMyRequest=MyScriptingContext.Request
SetMyResponse=MyScriptingContext.Response

EndSub

FunctionList()

DimconAsNewADODB.Connection
DimrsAsNewADODB.Recordset

DimiAsInteger
DimjAsInteger
DimintPageAsInteger
DimintPageSizeAsInteger
DimintPageCountAsInteger
DimstrScriptNameAsString
DimintPosAsInteger
DimintFieldCountAsInteger
strScriptName=MyRequest.ServerVariables("Script_Name")
intPos=InStrRev(strScriptName,"/")
IfintPos0Then
strScriptName=Mid(strScriptName,intPos+1)
EndIf

IfIsEmpty(MyRequest("page"))Then
intPage=1
Else
intPage=CInt(MyRequest("page"))
EndIf

intPageSize=10

con.Open"Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=pubs;DataSource=(local)"
rs.Open"select*fromauthors",con,adOpenStatic
intFieldCount=rs.Fields.Count
WithMyResponse
.Write"<tableborder=1>"
IfNot(rs.EOFAndrs.BOF)Then
rs.PageSize=10
rs.AbsolutePage=intPage
intPageCount=rs.PageCount
IfintPage>intPageCountThen
intPage=intPageCount
&</p>大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧

只看该作者 · 发表于 2015-1-20 09:05:13

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-1-26 16:41:04

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

只看该作者 · 发表于 2015-2-1 18:13:08

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-2-21 21:59:50

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

只看该作者 · 发表于 2015-3-6 21:59:36

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

只看该作者 · 发表于 2015-3-13 22:07:25

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

只看该作者 · 发表于 2015-3-20 20:06:03

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

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

[学习教程] ASP网页设计asp利用activex组件实例一

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

相关帖子