怎样在vb组件里定义一个asp函数，然后在asp页面中调用这个函数？能实现不？要怎么做？

[shuangren]

我做了个vb组件，在组件里尝试通过
server.execute("function test()...略... end function")
定义函数以及变量，但是在asp页面中提示找不到这个函数及变量，我上网查了一下，据说通过server.execute执行的代码和别的asp代码是隔离的。

又尝试在vb组件中使用execute，但vb中没有这个功能

又上网查，尝试在vb组件中通过vba60来实现execute，但这个好像是用来运行可执行程序的

又在VB组件中尝试使用scriptcontrol来模似execute，用run方法来执行asp函数，但跟server.execute一样，是隔离的，asp页面无法使用它的函数和变量

好了问题就是这样，我知道挺怪的，不知道大家看懂了没有

怎样在vb组件里定义一个asp函数，然后在asp页面中调用这个函数？

[shuangren]

再补充一下我的目的 我原来的是把数据库操作的程序全写在函数里，现在我想加密这些函数程序，在vb组件中进行解密，但不能返回明文交给asp页面来execute，返回明文的话别人就看见了，只能在组件中解密并execute，然后在asp页面中进行调用。 我想通过这样的方法对程序进行加密

[slwsss]

参考 http://bbs.csdn.net/topics/10302354#post-10504506 http://blog.csdn.net/pazll/article/details/155951 http://www.cnblogs.com/cnliou/articles/201059.html

[shuangren]

可能有朋友会说为什么不把重要程序全写在dll里，我是怕麻烦，改动的话工作量有点多，而且我对vb不熟

[shuangren]

引用 2 楼 slwsss 的回复:

参考 http://bbs.csdn.net/topics/10302354#post-10504506 http://blog.csdn.net/pazll/article/details/155951 http://www.cnblogs.com/cnliou/articles/201059.html

你没明白我的意图，不是把asp函数写成dll，而是在vb组件中execute这些asp函数

[三楼の郎]

楼主还是洗洗睡吧，你这个要求是不可能实现的

[shuangren]

引用 5 楼 CityBird 的回复:

楼主还是洗洗睡吧，你这个要求是不可能实现的

谢谢，不管行不行，总算是个答复，我也估计可能做不到。 再等等，没有人回答的话就是你了。

[斯洛文尼亚旅游]

dll里面直接实现你逻辑代码就好了吧。。asp里面调用dll的方法，不就是和adodb.connection，adodb.recordset这种组件一样

[三楼の郎]

VB写的组件是封装过的，他只能调用其它也经过封装的东西，你ASP里面写的某段函数没有经过封装是不可能给他调用的，除非你把这个函数也封装到某个DLL里面，你能做到的最多也就是传递一段VBScript脚本进去让他执行。