|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|