| 网站首页 | 资讯 | 影音 | 图片 | 论坛 | 模拟驾考 | 免费取名算命 | 瓷都工具 | 留言本 | 域名 | 瓷都商城 | 汇款 | 
您现在的位置: 瓷都热线|诚信中国:“一就是一”(1941.CN) >> 资讯 >> 教程技巧0 >> 网络编程 >> 正文 登录 注册
专 题 栏 目
最 新 热 门
最 新 推 荐
相 关 文 章
如何制作无状态的ASP组件
利用OWC服务器端组件动态
利用MSCHART画图的一段代
利用OWC画图的例子
ASP生成Word文档的又一方
如何准确定时运行ASP文件
在ASP处理程序时显示进度
ASP进度条
将人民币的数字表示转化
ASP导出Excel数据的四种
ASP与ActiveX控件交互实战         ★★★
ASP与ActiveX控件交互实战
作者:龙卷风.NET 文章来源:csdn.net 更新时间:2006-4-22 23:05:20
【声明:转载此信息在于传递更多信息,其内容表达的观点并不代表本站立场,由这些信息所产生的一切后果本站不负任何责任。如果您对本信息有什么意见,欢迎和本站联系,谢谢!】http://CiDu.Net


关键字: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>
 
运行后,点击按钮即可看到效果.
 

上一页  [1] [2] [3] 下一页


声明:以上信息资料大都是网上搜集而来,版权归作者,如有版权问题请留言告知我将马上改正。
文中所提到的各种观点只是原文观点,各种说法未经一一确认。并不代表本站认可此观点!!
资讯录入:admin    责任编辑:admin 
  • 上一篇资讯:

  • 下一篇资讯:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    点击数:
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)