一个关于IIS的类[13]

    end property 

    'public property logextfilebytesrecv() as boolean

    '    get

    '        return cbool(site.properties("logextfilebytesrecv")(0))

    '    end get

    '    set(byval value as boolean)

    '        dim showinlog as int32 = 0

    '        if value then

    '            showinlog = 1

    '        end if

    '        site.invoke("put", "logextfilebytesrecv", showinlog)

    '    end set

    'end property