仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2386|回复: 20
打印 上一主题 下一主题

[学习教程] ASP教程之Asp组件低级入门与精晓系列之五

[复制链接]
再现理想 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:37:38 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式

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

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

x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧   常常咱们可以看到在毗连数据库,翻开纪录集的时分,以下:

rs.Open strsql, conn,adOpenDynamic ,adLockPessimistic

在键入”,”的时分,前面会呈现一个游标类型或锁类型列表可以供选择。

有时分咱们为了简化,直接rs.open strsql,conn,1,3

第一种办法是否是加倍专业一些,咱们来看看asp中若何完成



翻开vb6,新建Activex Dll工程。工程名修正为fCom,类名修正为fC5

Option Explicit

‘界说列举类型

Public Enum Interfacedig

icfirst = 1

icsecond = 2

icthree = 3

icfour = 4

icfive = 5

icsix = 6

icserven = 7

iceight = 8

End Enum



'界说函数

Public Function CallDat(ByVal idig As Integer, ByVal ics As Interfacedig) As Variant

CallDat = idig * ics

End Function



Ok,一个组件就写好了,点击菜单->文件->生成fCom.dll文件

肯定,在目次下就会有fCom.dll文件



测试

翻开visual interdev6.0,生成一个asp文件



<%@ Language=VBScript %>

<HTML>

<BODY>

<%

‘界说,还可以把这一局部放到一个文件中,就像ado的纪录集<!--#include file="adovbs.inc"-->

const icfirst = 1

const icsecond = 2

const icthree = 3

const icfour = 4

const icfive = 5

const icsix = 6

const icserven = 7

const iceight = 8



set obj=server.CreateObject("fCom.fc5")

‘这里可使用iceight或8,然而前者使代码具有更好的可读性

a= obj.CallDat(4,iceight)

Response.Write a

Response.Write "<br>"

a= obj.CallDat(4,8)

Response.Write a

%>

<P> </P>



</BODY>

</HTML>



设置装备摆设好虚拟目次,在ie中履行此asp文件,失掉了局以下:

32
32

</p>  asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。
再现理想 该用户已被删除
沙发
 楼主| 发表于 2015-6-5 23:08:53 | 显示全部楼层
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-5-13 05:18

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表