 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
要害字:ASP,ActiveX控件,数字签名,安全 问题提出: 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 然后在程序中得到就可以灵活处理了。 返回类别: 教程 上一教程: ASP访问SQL SERVER内置对象 下一教程: ASP中连接数据库的5种方式 您可以阅读与"ASP与ACTIVEX控件交互实战(三)"相关的教程: · ASP与ACTIVEX控件交互实战(一) · ASP与ACTIVEX控件交互实战(二) · ASP中ACTIVEX控件的内嵌及调用 · XMLHTTP ACTIVEX对象的访问ASP区段变量的其他方式 · ASP页面内VBSCRIPT和JSCRIPT的交互 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
