易截截图软件、单文件、免安装、纯绿色、仅160KB

ASP与ActiveX控件交互实战(一)

ASP与ActiveX控件交互实战(一)  
   
  关键字:ASP,ActiveX控件,数字签名,安全    
   
  ActiveX控件运行在客户端。我们可以获得客户端的一些信息,如IC卡的信息,客户端的验证等等。但是ActiveX控件也有许多缺点:客户端的部署很困难,如客户端不能正确下载,下载了以后不能正确执行,下载的时候需要设置IE的安全级别等等。    
   
  更多的时候,我都在使用COM组件来扩展ASP的功能。准确地说,是服务端运行的Activex   Dll组件。使用Server.CreateObject(“工程名.类名”)即可完成对组件的调用。这种方式问题很少,只要组件中以PUBLIC对外暴露方法既可。但是,有时候我们必须使用ACTIVEX   控件(*.OCX)嵌入到网页中执行来获取客户端的信息。这就有了许许多多的一些问题。    
   
  这是我们需要解决的N个问题(从简单到难)    
   
  1.   如何从服务端获取数据,传递到ActiveX控件中。    
   
  1)   初始化时使用参数绑定    
   
  2)   运行时得到数据    
   
  2.   ActiveX控件得到客户端的信息,如何传递到服务端。    
   
  3.   安全性    
   
  1)   数字签名    
   
  2)   使用IOBJSAFE接口    
   
  好了,我们开始实例学习。    
   
  这个功能演示了如何制作一个简单的控件,并嵌入网页中执行。    
   
  工作环境:WINXP+VB6+IE6    
   
  我的IE安全设置为安全级别-中。所有的Activex选项设为启用。    
   
   
   
  打开vb6,新建ActiveX控件工程。    
   
  工程名:fOcx,用户控件名:UC1    
   
  为了方便,我们使用ActiveX控件接口向导…,菜单->外接程序->外接程序管理器->VB   6   ActiveX控件接口向导。确定即可。    
 


相关文档:

asp replace函数的使用

如id="a/b/c/asdf.html" 参数为动态
怎么把后面的asdf.html过滤?使id="a/b/c/"?
如果id的格式一定为 "????/????/??????/xxxx.xxx"
即最后所要过滤掉的一定是最后一个"/"之后的内容
可以用如下方法:
<%
URL="a/b/c/asdf.html"
PartOfURL=split(URL,"/")     '将字符串以"/"分割
UnNeed=spli ......

ASP将查询数据导出EXCEL

一、用OWC
什么是OWC?
  OWC是Office Web Compent的缩写,即Microsoft的Office Web组件,它为在Web中绘制图形提供
了灵活的同时也是最基本的机制。在一个intranet环境中,如果可以假设客户机上存在特定的浏览器和一
些功能强大的软件(如IE5和Office 2000),那么就有能力利用Office Web组件提供一个交互式图形开
......

asp操作XML

Dim xmlDoc
NewsConfigFile=server.MapPath("/test.xml")
Set xmlDoc=Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0")
If Not xmlDoc.load(NewsConfigFile) Then
 'XmlDoc.loadxml "<?xml version=""1.0"" encoding=""gb2312""?><NewscodeInfo/>"
 response.Write("不存在数据")
& ......

ASP中MD5加密代码

<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)

Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBi ......

ASP最基本的加解密函数

<%
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
en ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号