常用ASP函数集【经验才是最重要的】(14)

  vibo_mail.Body = mail_Body                              '正文
  vibo_mail.HTMLBody = mail_htmlBody                      'HTML正文
  vibo_mail.ReturnReceipt = True
  vibo_mail.Send("smtp.263xmail.com")                     '执行邮件发送（通过邮件服务器地址）
  vibo_mail.Close()
  set vibo_mail=nothing
End Function

'---------------------------------------程序执行时间检测↓----------------------------------------------
EndTime=Timer()
If EndTime<StartTime Then
    EndTime=EndTime+24*3600
End if
runTime=(EndTime-StartTime)*1000
Response.Write("------------程序执行时间检测------------"&"<br>")
Response.Write("程序执行时间"&runTime&"毫秒")


'-----------------------------------------系统检测使用函数↓------------------------------------------
'---------------------检测网页是否有效-----------------------
Function IsValidUrl(url)
        Set xl = Server.CreateObject("Microsoft.XMLHTTP")
        xl.Open "HEAD",url,False
        xl.Send
        IsValidUrl = (xl.status=200)
End Function
'If IsValidUrl(""&fileurl&"") Then
'    response.redirect fileurl
'Else
'    Response.Write "由于下载用户过多,程序检测到文件暂时无法下载,请更换其他下载地址!感谢您对本软件网站的支持哦^_^"
'End If
'------------------检查某一目录是否存在-------------------

Function getHTMLPage(filename) '获取文件内容
    Dim fso,file
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set File=fso.OpenTextFile(server.mappath(filename))
    showHtml=File.ReadAll
    File.close
    Set File=nothing
    Set fso=nothing
    getHTMLPage=showHtml '输出
End function

Function CheckDir(FolderPath)
    dim fso
    folderpath=Server.MapPath(".")&"\"&folderpath
    Set fso = Server.CreateObject("Scripting.FileSystemObject")