天枫常用的ASP函数封装如下(12)

 '函数名：GetFileSize
 '作  用：计算某个文件的大小
 '参  数：FileName ----文件路径及文件名
 '返回值：数值
 '****************************************************
 Public Function GetFileSize(FileName)
  Dim fso,drvpath,d,size,showsize
  set fso=server.createobject("scripting.filesystemobject")
  filepath=server.mappath(FileName)
  if fso.FileExists(filepath) then
   set d=fso.getfile(filepath) 
   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")
  if err then
   SendMail= "没有安装JMail组件"
   err.clear
   exit function
  end if
  JMail.Logging=True
  JMail.Charset="gb2312"
  JMail.ContentType = "text/html"