Exporting XLS files
Public Function Datatoxls ($filename, $fields, $data, $datasum =array ()) {
Header ("CONTENT-TYPE:APPLICATION/VND.MS-EXCEL;CHARSET=GBK");
Header ("content-disposition:attachment; Filename= ". $filename.". XLS ");
Header ("cache-control:max-age=0");
foreach ($fields as $v) {
$v = Iconv (' utf-8 ', ' GBK ', $v);
echo $v. " \ t ";
}
Print ("\ n");
$sep = "\ t";
foreach ($data as $value) {
$schema _insert = ";
foreach ($fields as $k = = $v) {
$value [$k] = iconv (' utf-8 ', ' GBK ', $value [$k]);
if (!isset ($value [$k])) {
$schema _insert. = "NULL". $sep;
}elseif ($value [$k]! = ") {
$schema _insert. = $value [$k]. $sep;
}else{
$schema _insert. = "". $sep;
}
}
$schema _insert = Str_replace ($sep. " $ "," ", $schema _insert);
$schema _insert. = "\ T";
Print (Trim ($schema _insert));
print "\ n";
}
foreach ($fields as $k = = $v) {
$datasum [$k] = iconv (' utf-8 ', ' GBK ', $datasum [$k]);
echo $datasum [$k]. $sep;
}
Exit