ASP与ActiveX控件交互实战

最新推荐文章于 2022-05-05 12:26:16 发布
最新推荐文章于 2022-05-05 12:26:16 发布
阅读量1.7k 收藏
点赞数
文章标签： asp button javascript string microsoft function
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/leonpard/article/details/274812
版权
ASP与ActiveX控件交互实战(二)

龙卷风

关键字:ASP,ActiveX控件,数字签名,安全

 

我们来看看如何从服务端获取数据，传递到ActiveX控件中。

1）  初始化时使用参数绑定

2）  运行时得到数据

 

打开vb6,新建ActiveX控件工程。

工程名:fOcx，用户控件名:UC2

为了方便，我们使用ActiveX控件接口向导…,菜单->外接程序->外接程序管理器->VB 6 ActiveX控件接口向导。确定即可。

 

打开ActiveX控件接口向导，下一步，对于可用名称和选定名称我们默认下一步，新建自定义成员，GetInfo类型:属性，下一步，共有方法中选择我们刚才添加的GetInfo,映射到控件选择TxtInfo,成员选择Text,下一步直到完成。代码窗口中会生成一些我们不需要的，删除，

 

'注意！不要删除或修改下列被注释的行！

'MappingInfo=txtinfo,txtinfo,-1,Text

Public Property Get GetInfo() As String

    GetInfo = txtinfo.Text

End Property

 

Public Property Let GetInfo(ByVal New_GetInfo As String)

    txtinfo.Text() = New_GetInfo

    PropertyChanged "GetInfo"

End Property

 

Private Sub Command1_Click()

Label2.Caption = GetInfo()

End Sub

 

'从存贮器中加载属性值

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

 

    txtinfo.Text = PropBag.ReadProperty("GetInfo", "Text1")

End Sub

 

'将属性值写到存储器

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

 

    Call PropBag.WriteProperty("GetInfo", txtinfo.Text, "Text1")

End Sub

 

编译成OCX控件.运行生成的测试页.Text中默认的是Text1

如何将服务器端的数据传递给OCX呢?

 

使用Microsoft ActiveX Control Pad这个工具,可以很容易找到.

直接用这个工具把测试页打开.

菜单->Edit->Edit Activex Control,呵呵,打开了一个可视化的界面.

看到了吧,有一个属性框,我们可以进行设置，设置完成以后的代码如下：

<HTML>

<HEAD>

<TITLE>New Page</TITLE>

</HEAD>

<BODY>

<OBJECT ID="GetClient" WIDTH=507 HEIGHT=440

 CLASSID="CLSID:890D1028-298B-45CF-9A64-6ED5A5BACBC9"

 CODEBASE="http://localhost/xml/fOcx.ocx">

    <PARAM NAME="_ExtentX" VALUE="13414">

    <PARAM NAME="_ExtentY" VALUE="11642">

    <PARAM NAME="GetInfo" VALUE="这是ocx得到的客户端读卡器的信息">

</OBJECT>

</BODY>

</HTML>

增加了ID,ID就是我们用来访问的标志.还有我们的属性GetInfo,我们也设定初始值了

好了,运行.

Text中就出现了我们设定的值”这是ocx得到的客户端读卡器的信息”

 

我们把上边的页面改成asp的,看代码:

<HTML>

<HEAD>

<TITLE>龙卷风测试页</TITLE>

</HEAD>

<BODY>

<%

dim sValue

sValue="这是ocx得到的客户端读卡器的信息"

%>

<OBJECT ID="GetClient" WIDTH=507 HEIGHT=440

 CLASSID="CLSID:56DFCA88-F5B8-4879-853B-97FE504423FD"

 CODEBASE="http://localhost/xml/fOcx.ocx">

    <PARAM NAME="_ExtentX" VALUE="13414">

    <PARAM NAME="_ExtentY" VALUE="11642">

    <PARAM NAME="GetInfo" VALUE="<%=sValue%>">

</OBJECT>

</BODY>

</HTML>

OK,运行即可

 

我们看看第二种情况

运行时得到数据

<HTML>

<HEAD>

<TITLE>龙卷风测试页</TITLE>

 

<%

dim sValue

sValue="这是ocx得到的客户端读卡器的信息"

%>

<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>

<!--

 

function button1_onclick()

{

GetClient.GetInfo='<%=sValue%>';

}

 

//-->

</SCRIPT>

</HEAD>

<BODY>

<OBJECT ID="GetClient" WIDTH=507 HEIGHT=440

 CLASSID="CLSID:56DFCA88-F5B8-4879-853B-97FE504423FD"

 CODEBASE="http://localhost/xml/fOcx.ocx">

            <PARAM NAME="_ExtentX" VALUE="13414">

            <PARAM NAME="_ExtentY" VALUE="11642">

        </OBJECT>

<INPUT id=button1 type=button value=Button name=button1 LANGUAGE=javascript οnclick="return button1_onclick()">

</BODY>

</HTML>

 

运行后,点击按钮即可看到效果.

 

问题提出:

ActiveX控件得到客户端的信息，如何传递到服务端???

一种方法就是得到值后,使用Get,Post方式提交,这可能也是最常用的.

有没有更好一些的方法呢?

能不能在控件中直接向服务器发出请求而得到数据呢?

 

打开vb6,新建ActiveX控件工程。

工程名:fOcx，用户控件名:UC3

添加1个按钮，2个文本框

代码如下：

 

Option Explicit

 

Private Sub Command1_Click()

'注意字符串和数字的写法有些区别

'使用AsyncRead通过HTTP发送你的请求

UserControl.AsyncRead "http://yang/xml/activex.asp?s1=" & Text1.Text & "", vbAsyncTypeByteArray

UserControl.AsyncRead "http://yang/xml/activex.asp?s1=" & Text1.Text, vbAsyncTypeByteArray

End Sub

 

'AsyncReadComplete 事件用来从asp页面接受和分析。

'当容器刚完成一个异步读取请求时 , 发生该事件?

'AsyncProp 中的数值指定了已完成的某个异步数据读取请求,

'它与前一个 AsyncRead 方法调用中的数据匹配。

'AsyncReadComplete 事件过程中应包含错误处理代码，因为错误状态会终止下载。

'如果发生了这种情况，当访问 AsyncProperty 对象的 Value 属性时将会发生错误。

Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)

On Error GoTo errhandle

Text2.Text = ByteArrayToString(AsyncProp.Value)

errhandle:

Err.Raise 601, "异步读取发生了错误", Err.Description

End Sub

'将字节数组转换成字符串

Public Function ByteArrayToString(bytArray() As Byte) As String

    Dim sAns As String

    sAns = StrConv(bytArray, vbUnicode)

    ByteArrayToString = sAns

End Function

 

我们来看看http://yang/xml/activex.asp这个文件

<%

dim str

str=request("s1")

if str="name" then

response.write ("龙卷风")

elseif str="age" then

response.write ("26")

else

response.write ("没有可用信息返回")

end if

%>

很简单，使用request接受参数,response返回。

 

这个例子可以进一步处理，将服务器名以属性的方式传递给控件。

比如：<PARAM NAME="ServerName" VALUE="192.168.0.1 ">

然后在程序中得到，就可以使用了，如：

UserControl.AsyncRead "http://192.168.0.1/xml/activex.asp?s1=" & Text1.Text & "", vbAsyncTypeByteArray

 

然后在程序中得到就可以灵活处理了。
leonpard
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Office ActiveX 控件
10-10
利用它你可以与 Word，Excel，PowerPoint，Visio，Project 等 Office 应用程序交互。支持 Office 自动化，并提供大量的实例源代码。支持 Http/FTP 上传下载功能，轻松实现在线 Word 功能。该控件可以集成到 VC，VB，...
C# OPC类库 升级版本 OPCAutomation.dll
fanwenhu的专栏
06-06 1494
C# 调用OPC 类库 调用OPCAutomation.dll
OPC客户程序（VB篇——异步）
物联网网关
01-06 2911
建立如下窗体：详见相册OPC技术。引用如下：详见相册OPC技术。代码如下：Option ExplicitOption Base 1             Const WRITEASYNC_ID = 1Const READASYNC_ID = 2Const REFRESHASYNC_ID = 3---------------------------------------------
ASP与ActiveX控件交互实战(三)
weixin_30261095的博客
03-28 34
龙卷风 关键字:ASP,ActiveX控件,数字签名,安全 问题提出: ActiveX控件得到客户端的信息，如何传递到服务端??? 一种方法就是得到值后,使用Get,Post方式提交,这可能也是最常用的. 有没有更好一些的方法呢? 能不能在控件中直接向服务器发出请求而得到数据呢? 打开vb6,新建ActiveX控件工程。 工程名:fOcx，用户控件名:UC3 添加1个按...
关于OPC自动化接口编程(OPCDAAuto.dll)几点注意问题
SXF的专栏
04-23 4664
  为了能够在工作中方便的应用OPC和充分的理解OPC的开发流程、内部机制，这两天正在研究开发OPC客户端程序，一般我们开发OPC客户端程序有以下几种方式：（1）       使用OPCNetAPI，需要用到OPCNetAPI.dll，OPCNetAPI.Com.dll（2）       使用自动化接口，需要用到OPCDAAuto.dll（3）       使用自定义接口，需要
opc da client c#的opcda 数据读取
qq_41666269的博客
03-06 6139
c#读取opcda中的数据，c#写opcclient 注意事项 确认windows系统使用的是32位系统还是64位，因为使用的动态链接库 OPCautomation.dll 是32位的，如果是使用的64位的系统则需要先进行一下动态链接库的注册，具体操作可以百度 添加引用动态链接库 using OPCAutomation; 定义变量 定义变量，分别是opc 服务器、组列表、组、点位组、点位、opc浏览器，opcbrowser 用来枚举已连接的服务器中的点位列表 OPCServer kepserver;
优道PDF控件 ASP代码示例
04-25
功能齐全 附带有换页、查找、放大、缩小、旋转、颜色定制等文档浏览器常用功能，支持通过Javaｓｃｒｉｐｔ与网页进行交互,支持动态水印功能；各种语言支持 服务器端支持Windows及Linux的服务器，支持各种编程语言，...
VB命令行管道控件(与CMD交互，风格类似WinSock)
11-02
本控件与cmd控制台和其他命令行程序交互的ocx控件，效果很像Winsock或MSCOMCTL。TestForm是测试该控件用的窗体。在VB6/IE10(asp-VBS)/Excel2003下测试成功。完美兼容单换行符(chr10)和vbcrlf两种换行格式。本控件...
TeeChart2012ActiveX
04-27
TeeChart Pro ActiveX是一个图表控件，适用于可识别ActiveX的编程环境——如：...TeeChart Pro ActiveX控件能够在多种的编程环境中提供大量的返回信息，总之，在图表领域，本产品是前数以千计同类产品中的佼佼者。
【工控老马】OPC函数及方法详解
ksthen的博客
05-05 1778
OPC函数及方法详解 开发OPC客户端程序时，首先应该生成OPC服务器支持的OPC对象，然后就可以使用OPC对象支持的属性和方法，对其进行各种操作。这样使得客户程序可以像使用自己支持的数据和功能一样，去使用服务器对象支持的数据和功能。在VisualBasic6.0里,是以对象为单位对OPC服务器进行访问的。通过OPC自动化服务器的对象模型，可以得知OPC自动化接口由以下四种对象所定义。 1　OPCServer服务器对象OPCServer的一个实例，OPC服务器自动含有一个OPC组集合对象，并可在其基础上生成
asp activex 读取服务器上的文件,webshell中上传asp文件调用服务器ActiveX控件溢出获取shell...
weixin_29405191的博客
08-06 261
Team: http://www.ph4nt0m.orgAuthor: 云舒(http://www.icylife.net)Date: 2008-02-19做windows系统渗透测试的时候有webshell了，但是拿不到shell，用来提升权限，也是个很郁闷的事情。一般来说，使用mdb jet引擎的溢出比较常见，但是有时候根据服务器上安装的第三方软件，使用一些新的方法，或许能有一...
FSO属性
tx2ah的专栏
12-12 714
FSO可用的属性与函数方法或者属性 描述 BuildPath() 生成一个文件路径 CopyFile() 复制文件 CopyFolder() 复制目录 CreateFolder() 创建新目录 CreateTextFile() 生成一个文件 DeleteFile() 删除一个文件 DeleteFolder() 删除一个目录 DriveExists() 检验盘符是否存在 Drives 返回盘符的集合
asp问题之"ActiveX部件不能创建对象 "(2006.7.28)
clubsondy的专栏
07-28 1845
运行 ASP ，出现"ActiveX部件不能创建对象 "解决：FSO没有开启，在运行输入regsvr32 scrrun.dll开启， 关闭FSO：regsvr32 /u scrrun.dll //*解决ActiveX部件不能创建对象的有效方法.bat(删此行)echo 正在修复，这个过程可能需要几分钟，请稍候…… rundll32.exe advpack.dll /DelNodeR
关于OPC
热门推荐
delphicui的专栏
11-18 1万+
开发OPC客户端程序时，首先应该生成OPC服务器支持的OPC对象，然后就可以使用OPC对象支持的属性和方法，对其进行各种操作。这样使得客户程序可以像使用自己支持的数据和功能一样，去使用服务器对象支持的数据和功能。在VisualBasic6.0里,是以对象为单位对OPC服务器进行访问的。通过OPC自动化服务器的对象模型，可以得知OPC自动化接口由以下四种对象所定义。1　OPCServer服务器对
报错：OPC读完成报错 索引超出数组界限
qq_44507542的博客
11-11 1224
C# opc客户端访问opc服务器 ,OPC读数据时报错 这些错误是我经历过的报错，记录一下 环境 PLC:S7-200 PC Access SMART DLL:注册并引用 OPCDAAuto.dll 语言：C# 实现功能：通过OPC,实现对PLC进行读写 系统报错 索引超出数组界限 出现原因 //报错代码 private void AsyncReadComplete(int TransactionID, int NumItems, ref Array ClientHandles, ref Array I
OPC client学习 2017.5.18
qq_36734390的博客
05-18 1373
1.Websocket的使用 使用WebSocketSharp.dll文件 String url = "ws://127.0.0.1:9991/api/v1/devices/rfid"; var ws = new WebSocket(url); ws.onMessage += (sender, e) =>  Console.WriteLine("received message:"
(VB)FTP异步下载
那叫啥啥啥的，你过来......
11-19 2871
 该方法不需要使用API及第三方控件这里使用的是VB的UserControl控件的AsyncRead方法 步骤如下:1、添加一个用户控件，设置InvisibleAtRuntime属性为true，目的是运行时该控件不显示用户界面，就象Timer控件一样。2、到自定义控件的代码窗口，添加如下代码Option Explicit下载结果枚举Public Enum Down
ASP.NET Core技术内幕与项目实战
最新发布
05-24
ASP.NET Core 技术内幕与项目实战是一本介绍 ASP.NET Core 的技术书籍，本书重点介绍了 ASP.NET Core 的核心概念、体系结构以及如何使用 ASP.NET Core 构建 Web 应用程序。 本书分为两个部分，第一部分深入介绍了 ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值