代码封装以及调用问题

[cc10258]

Set ShowObj = GetObject("AAAA")
For Each obj in objs
Response.Write obj.name
next
Set ShowObj = Nothing

这样的代码该怎么封装，以及封装后怎么调用？

请大家帮帮忙

[cc10258]

汗，不会

VB都不精通呢，更别说JAVA

[dh20156]

你那程序不对吧？objs没定义啊。

[cc10258]

大哥，我只是打个比方

程序里我已经定义了

ASP运行没问题，现在我想封装成DLL

不知道怎么封装已经封装后的调用

[dh20156]

你可以写个函数用返回值来存储obj.name
或者你可以在DLL里引用ASP对象，那样好象是在DLL里也可以直接写Response.write

[cc10258]

是可以直接Response.write，但那样就不能修改页面了


函数用返回值来存储obj.name

能具体教教我吗？我很菜，理解能力也差

[dh20156]

参考：
Public Function GetObjName()
Dim tempstr As String
Set ShowObj = GetObject("AAAA")
For Each obj In objs
tempstr = tempstr + "," + obj.Name
Next
Set ShowObj = Nothing
GetObjName = tempstr
End Function

调用：
Set obj = Server.CreateObject(工程名.类名)
dim tempstr
tempstr = obj.GetObjName
Response.write tempstr

[HAVENT]

封装？想封装到dll里面去？

需要使用VB6建立ActiveX动态链接库dll

我看你想实现这个功能要多看看资料了

[HAVENT]

用VB6+ASP比较过时了

不妨学习VB.NET+ASP.NET吧

你更能体会到什么是封装了

其实只要有点程序开发基础就是很简单的事情了，就是一个函数过程的调用

[biao1]

建议用JAVA语句封装一下！UP！

[cc10258]

感谢 dh20156(风之石)

我先测试一下

成功的话，一定给分，不行只能再询问你了

真的谢谢

[cc10258]

显示类型不匹配啊

[dh20156]

我那只是参考，具体的你就要去检查你的代码了，好运！

[cc10258]

感谢了，分已送出

具体我自己研究，谢谢

[www_31365_com]

期待中。。。。。。。。。。。。。。。

[cc10258]

没人知道吗？