自動刪除檔案

'自動刪除檔案

'天數
daysAgo = 365

'路徑
dirPath = "C:\\inetpub\\logs\\LogFiles\\W3SVC6"

'副檔名
extName = ".log"

'---------程式開始------------

Set fs = CreateObject("Scripting.FileSystemObject")
Set w = WScript.CreateObject("WScript.Shell")

Set f = fs.GetFolder(dirPath)
Set fc = f.Files

dateBefore = Now() - daysAgo

For Each ff in fc
fileName = ff.Name
fileDate = ff.DateLastModified

If Right(fileName, Len(extName)) = extName And fileDate < dateBefore Then
fs.DeleteFile(dirPath & "\\" & fileName)
End If
Next

匯出EXCLE檔案

<？php
$file="output".date("YmdHis").".xls";
header("Content-type: application/vnd.ms-excel");
header("Content-Disposition: attachment; filename=$file;");
//將PHP轉成下載的檔案指定名稱與副檔名.xls

echo ''."\n";
echo ''."\n";
echo '';

echo '';

？>

facebook API 取得項目

if( $userId == 0 ) {
      // Generate a login url
      $url = $facebook->getLoginUrl( array( 'scope' => 'email, user_status' ) );
      ... Your Login button ...
} else {
      // Get user's info
      $userdata = $facebook->api( '/me' );
      $data = array(
            'first_name'    => $userdata['first_name'],
            'last_name'     => $userdata['last_name'],
            'username'      => $userdata['username'],
            'email'         => $userdata['email'],
            'languages'     => $userdata['languages'],
            'locale'        => $userdata['locale'],
            'timezone'      => $userdata['timezone'],
            'gender'        => $userdata['gender'],
            'location'      => $userdata['location'],
            'hometown'      => $userdata['hometown'],
      );
      print_r( $data );
}

獲取遠端圖片並把它保存到本地

<？php 
// Function: 獲取遠端圖片並把它保存到本地 
// $url 是遠端圖片的完整URL位址，不能為空。 
// $filename 是可選變數: 如果為空，本地檔案名將基於時間和日期自動生成. 
function GrabImage($url,$filename="") {  
    if($url==""){ 
        return false; 
    } 
    if($filename=="") {  
        $ext=strrchr($url,".");  
        $temext = strrchr(strtolower($url),".");  
        if($temext!=".jpg"&$temext!=".jpeg"){ 
            return false; 
        } 
        $filename=date("dMYHis").$ext; 
        $filepath=dirname(__FILE__)."/pictures/".$filename;  
    }  
   
    ob_start();  
    readfile($url);  
    $img = ob_get_contents();  
    ob_end_clean();  
    $size = strlen($img);  
   
    $fp2=fopen($filepath, "a");  
    fwrite($fp2,$img);  
    fclose($fp2);  
   
    return $filename;  
}  
？> 

php使用gmail smtp 寄信

<？php
   include("PHPMailer/class.phpmailer.php"); //匯入PHPMailer類別     
  
   $mail= new PHPMailer();          //建立新物件
   $mail->IsSMTP();                 //設定使用SMTP方式寄信
   $mail->SMTPAuth = true;          //設定SMTP需要驗證
   $mail->SMTPSecure = "ssl";       // Gmail的SMTP主機需要使用SSL連線
   $mail->Host = "smtp.gmail.com";  //Gamil的SMTP主機
   $mail->Port = 465;               //Gamil的SMTP主機的SMTP埠位為465埠。
   $mail->CharSet = "big5";         //設定郵件編碼      
  
   $mail->Username = "*********";  //Gmail帳號
   $mail->Password = "*********";  //Gmail密碼      
  
   $mail->From = "xxx@gmail.com"; //設定寄件者信箱
   $mail->FromName = "xxx";                 //設定寄件者姓名
   $mail->Subject = "PHPMailer 測試信件";    //設定郵件標題
   $mail->Body = "大家好,這是一封測試信件! ";  //設定郵件內容
   $mail->IsHTML(true);                     //設定郵件內容為HTML
   $mail->AltBody = $altbody;               //這個設定主要是預防收件者無法顯示HTML信件時的替代文字
   $mail->WordWrap = 50;                    //設定一行最多為50個字元，即每50個字自動斷行
   $mail->AddReplyTo("info@iii.org.tw", "Info"); //設定回函
   $mail->AddBCC("zzz@iii.org.tw", "zzz"); //使用密件副本
   $mail->AddAttachment("/var/tmp/file.tar.gz"); //新增附件檔案
   $mail->AddAttachment("/tmp/image.jpg", "new.jpg"); //附件也可以更改名稱
   $mail->AddAddress("xxxxx@gmail.com", "xxx"); //設定第一位收件者郵件及名稱
   $mail->AddAddress("xxxxx@gmail.com", "xxx"); //設定第二位收件者郵件及名稱      
  
   if(!$mail->Send()) {
       echo "Mailer Error: " . $mail->ErrorInfo;
   }
   else {
       echo "Message sent!";
   }
？>

*注意事項 php.ini 中設定ssl 要開 否則會錯誤 設定方式 搜尋"php_openssl.dll"，然後將前方的";"拿掉，若搜尋不到就自己把"extension=php_openssl.dll"這一句加上去，然後存檔重開web server

抓取RSS分析

抓取網頁函數

private string GetWebresourceFile(string url)
{
    WebRequest request = WebRequest.Create(url);
    request.Timeout = 10000;
    WebResponse response = request.GetResponse();
    Stream resStream = response.GetResponseStream();
    StreamReader sr = new StreamReader(resStream, System.Text.Encoding.UTF8);
    string SourceCode = sr.ReadToEnd();
    resStream.Close();
    sr.Close();
    return SourceCode;
} 

file download

<？php
function dl_file($file){

   //First, see if the file exists
   if (!is_file($file)) { die("404 File not found!"); }

   //Gather relevent info about file
   $len = filesize($file);
   $filename = basename($file);
   $file_extension = strtolower(substr(strrchr($filename,"."),1));

   //This will set the Content-Type to the appropriate setting for the file
  switch( $file_extension ) {
     case "pdf": $ctype="application/pdf"; break;
     case "exe": $ctype="application/octet-stream"; break;
     case "zip": $ctype="application/zip"; break;
     case "doc": $ctype="application/msword"; break;
     case "xls": $ctype="application/vnd.ms-excel"; break;
     case "ppt": $ctype="application/vnd.ms-powerpoint"; break;
     case "gif": $ctype="image/gif"; break;
     case "png": $ctype="image/png"; break;
     case "jpeg":
     case "jpg": $ctype="image/jpg"; break;
     case "mp3": $ctype="audio/mpeg"; break;
     case "wav": $ctype="audio/x-wav"; break;
     case "mpeg":
     case "mpg":
     case "mpe": $ctype="video/mpeg"; break;
     case "mov": $ctype="video/quicktime"; break;
     case "avi": $ctype="video/x-msvideo"; break;

     //The following are for extensions that shouldn't be downloaded (sensitive stuff, like php files)
     case "php":
     case "htm":
     case "html":
     case "txt": die("Cannot be used for ". $file_extension ." files!"); break;

     default: $ctype="application/force-download";
   }

   //Begin writing headers
   header("Pragma: public");
   header("Expires: 0");
   header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
   header("Cache-Control: public"); 
   header("Content-Description: File Transfer");
   
   //Use the switch-generated Content-Type
   header("Content-Type: $ctype");

   //Force the download
   $header="Content-Disposition: attachment; filename=".$filename.";";
   header($header );
   header("Content-Transfer-Encoding: binary");
   header("Content-Length: ".$len);
   @readfile($file);
   exit;
}
？>