推荐下天枫常用ASP函数封装，推荐大家使用(18)

            size=d.size
            GetFileSize=FormatSize(size)
        Else
            GetFileSize=FileName&"文件不存在"
        End If
        set fso=nothing
    End Function

    '****************************************************
    '函数名：IsObjInstalled
    '作  用：检查组件是否安装
    '参  数：strClassString ----组件名称
    '返回值：false不存在，true存在
    '****************************************************
    Public Function IsObjInstalled(strClassString)
        On Error Resume Next
        IsObjInstalled=False
        Err=0
        Dim xTestObj
        Set xTestObj=Server.CreateObject(strClassString)
        If 0=Err Then IsObjInstalled=True
        Set xTestObj=Nothing
        Err=0
    End Function

    '****************************************************
    '函数名：SendMail
    '作  用：用Jmail组件发送邮件
    '参  数：ServerAddress ----服务器地址
    '       AddRecipient  ----收信人地址
    '       Subject       ----主题
    '       Body          ----信件内容
    '       Sender        ----发信人地址
    '****************************************************
    Public function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
        on error resume next
        Dim JMail
        Set JMail=Server.CreateObject("JMail.SMTPMail")