代码如下:<% Dim Domain Set Domain = New Cls_DomainFunctionClass Cls_DomainFunction Private vListURL Private Thief_ Private vDomainArr, vDomainName Private vLoopI Private vDomainsName, vDomainMainBody Private TLDCode Private Rs, Sql Private ExtraDataArr Private