|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了. 关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用active|activex|交互|控件 龙卷风
关头字: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
然后在法式中失掉就能够天真处置了。
</p> Active Server Page技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。 |
|