快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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 onclick="return button1_onclick()">

</BODY>

</HTML>
返回类别: 教程
上一教程: ASP 生成 XBM 图可用作验证码
下一教程: ASP程序和PHP程序转变要注重的问题

您可以阅读与"ASP与ACTIVEX控件交互实战(二)"相关的教程:
· ASP与ACTIVEX控件交互实战(三)
· ASP与ACTIVEX控件交互实战(一)
· ASP中ACTIVEX控件的内嵌及调用
· 使用ASP中的VB ACTIVEX.DLL文件
· XMLHTTP ACTIVEX对象的访问ASP区段变量的其他方式
    微笑服务 优质保证 索取样品