asp文件怎么用VB封装成DLL文件？

同上。 问题点数：30、回复次数：3Top

1 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2005-09-26 21:12:21 得分 15

http://blog.csdn.net/online/category/9939.aspxTop

2 楼yestou（呆子）回复于 2005-09-26 22:33:51 得分 0

顶下啊。~~~~~~~~~~~~~~Top

3 楼zhouhj0746（與你相逢）回复于 2005-09-27 09:01:44 得分 15

'IsLeapYear是vb中的函數  
  'CheckYear是工程名  
  'LeapYear是類名  
  '編譯成CheckYear.dll  
  '引用如下  
  <%    
  mYear   =   trim(request("Years"))  
  if   isnumeric(mYear)   and   mYear<>""   then  
  set   oCheckYear=createobject("CheckYear.LeapYear")   '建立自定義組件的引用,vb寫的CheckYear.dll  
  IsLeapYear=oCheckYear.IsLeapYear(mYear)   '調用組件中的函數並報存結果  
  set   oCheckYear=nothing  
  If   IsLeapYear   =   True   Then  
  response.Write(""&   mYear   &"年是閏年")  
  else  
  response.Write(""&   mYear   &"年不是閏年")  
  end   if  
  else  
  response.Write(""&   mYear&"不是日期")  
  end   if  
  %>  
  Top

相关问题

• 文件
• vb
• dll
• checkyear
• ocheckyear
• myear
• isleapyear
• leapyear
• 引用
• 組件

• 帖主：yestou
• online
• zhouhj0746

• Visual Basic类图书
• Visual Basic类源码下载