欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

asp怎么实现像类接口的功能

更新时间: 2014-01-05 00:56:52 责任编辑: Author_N1

 

asp如何实现像类接口的功能
我想实现像类的接口功能。

<%
class dataGrid
  public function selector()
  end function

  function Init()
      dim result:result = selector
      response.write(result)
  end function  
end class
%>

dim table
set table = new dataGrid
    '我想这里能像JS那样把实现方法替换掉 table.selector = function(){这里编写新的方法}
    table.selector = ?-- 在asp中这里应该怎样编写呢--?
    table.Init()
set table nothing


--参考方法--
不能够这么写.....
--参考方法--
<script language='vbs'>
class delegate
 dim arr()
 dim arrTrue
 Private Sub Class_Initialize   
  arrTrue=false
 End Sub

 function add(funname,obj)
  if arrTrue=true then
   redim Preserve arr(ubound(arr)+1,1)
  else
   arrTrue=true
   redim Preserve arr(0,1)
  end if
  set arr(ubound(arr),0)=obj
  arr(ubound(arr),1)=funname
 End function

 Sub exec
  for i=0 to ubound(arr)
   execute "arr(" & i & ",0)." & arr(i,1)
  next
 End Sub
end class

class client
dim d 
Private Sub Class_Initialize 
set d= new delegate
end sub
public property set selector(p)
set d=p
end property
public property get selector
set selector=d
end property
end class

class test
sub test
alert 1
end sub

sub test1
alert 2
end sub
end class



set c = new client

set t = new test

c.selector.add "test", t
c.selector.exec

set c.selector= new delegate
c.selector.add "test1", t
c.selector.exec
</script>

client 类相当于你的调用类,可以随时转换调用其他的类
--参考方法--
委托类是
https://www.google.com.hk/search?q=vbs+%E5%A7%94%E6%89%98&oq=vbs+%E5%A7%94%E6%89%98&aqs=chrome..69i57j0l5.6840j0&sourceid=chrome&espvd=210&es_sm=93&ie=UTF-8

的第一篇文章 

--参考方法--
通过函数argument的个数不同 可以实现函数的重载
--参考方法--
ASP还是老老实实用过程吧。
--参考方法--
getref
--参考方法--
execute eval等等后期绑定的方式都是解决方案
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:52
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1713/
本文WWW.DOC100.NET DOC100.NET版权所有。