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

同上。

解决方案 »

  1.   

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

  2.   

    '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
    %>