王新阳

转自：https://www.php.cn/php-ask-454686.html

一般我们要查看网上的一个网页，那么当您第一次访问这个网页的时候，系统首先要将这个网页下载到您的本地计算机的一个临时文件夹中进行缓存，当在一定的时间内，您第二次、第三次来访问这个网页的时候，浏览器就直接从您的本地计算机的临时文件夹中读取这个文件显示，这样做的好处就是避免每次都要重新下载而占用大量的时间和网络资源，不得不说页面的缓存加快了网页的显示，当然也有它的坏处，例如当服务器上的网页己经更新，而本地显示的还是没有更新的网页，这样就不能及时的显示更新后的内容，在某些情况下，我们需要禁止浏览器缓存，以使我们每次看到的页面都是最新的页面（例如后台操作、大型网站的实时新闻页面），这时我们就要禁用浏览器缓存，下面分别说明了在四种不同的页面环境下来禁止网页缓存：

一、对于静态页（就是通过meta标签来设置）：

<!--expires用于设定网页的过期时间,一旦过期就必须从服务器上重新加载.时间必须使用GMT格式-->
<meta http-equiv="expires" content="Sunday 26 October 2008 01:00 GMT" />

或者通过pragma no-cache来设置，pragma出现在http-equiv属性中，使用content属性的no-cache值表示是否缓存网页(为了提高速度一些浏览器会缓存浏览者浏览过的页面,通过下面的定义,浏览器一般不会缓存页面,而且浏览器无法脱机浏览)。

二、对于ASP页面：

<%
Response.Buffer=true
Response.CacheControl="no-cache" '禁止代理服务器缓存本页面
Response.Expires=-1000 '让页面立即过期(这儿最好设置一个绝对值较大的负数)
%>

三、对于JSP页面：

<%
if(request.getProtocol().compareTo("HTTP/1.0")==0){
	response.setHeader("Pragma","no-cache");
}
if(request.getProtocol().compareTo("HTTP/1.1")==0){
	response.setHeader("Cache-Control","no-cache");
}
response.setDateHeader("Expires",0);
%>

四、对于PHP页面：

<?php
header('Cache-Control:no-cache,must-revalidate');
header('Pragma:no-cache');
?>

强调说明：对于动态页面，缓存的代码必须放在任何HTML标签输出之前，否则将会出错。

网站被上传木马，导致页面被植入恶意链接，如果找不到漏洞，可以用 .htaccess 或 web.config 屏蔽木马程序的运行，确保网站的"相对"安全。

.htaccess

RewriteEngine on
RewriteRule (uploadfile.+\.(php|asp|aspx|jsp))$ /rec.php?uri=$1 [R,NC,L]

web.config

<?xml version="1.0" encoding="UTF-8"?>
<configuration>
    <system.webServer>
        <rewrite>
            <rules>
                <rule name="规则 1" stopProcessing="true">
                    <match url="(uploadfile.+\.(php|asp|aspx|jsp))$" />
                    <action type="Redirect" url="/rec.php?uri={R:1}" appendQueryString="false" redirectType="Found" />
                </rule>
            </rules>
        </rewrite>
    </system.webServer>
</configuration>

上面规则是阻止上传文件目录 uploadfile 中 php/asp/aspx/jsp 等类型文件的运行，并跳转到 /rec.php 进行记录（也可以重定向到百度……）。虽然没有解决漏洞，至少确保了木马文件不能运行。

以下为CodeIgniter中导出csv的完整示例

知识点：输出缓冲控制 http://php.net/manual/zh/book.outcontrol.php

//导出数据
public function export(){
	/*
	 * 不使用PHPExcel生成excel文件，因为太占内存
	 * 生成csv基本规则
	 * 1、列内容用逗号分隔
	 * 2、\r\n换行
	 * 3、如果当前字段内容中有回车、换行、逗号等任意内容时，字段两头要加双引号
	 * 4、如果当前字段内容中有双引号，但不包含回车、换行、逗号等任意内容时，直接输出不用处理；否则字段中的双引号要进行转义（两个双引号代替1个），且字段两头加又引号
	 * 5、超过11位的整数要写成 ="123456789012" 形式，防止因excel自动采用科学计数法而导致内容失真（如身份证）
	 */
	
	//获取表字段并删除无用项
	$arr_table_fields = array_diff_key($this->tableinfo(), array('id'=>0, 'sn'=>0, 'updatetime'=>0, 'createtime'=>0));
	//重置要查询的字段
	$select_fields = implode(',', array_keys($arr_table_fields));
	
	//清空缓冲区
	if (ob_get_level() !== 0 && @ob_end_clean() === FALSE)@ob_clean();
	//输出headers
	header('Content-Type: application/octet-stream');
	header('Content-Disposition: attachment; filename="观众数据-'. date('YmdHis') .'.csv"');
	header('Expires: 0');
	header('Content-Transfer-Encoding: binary');
	//header('Content-Length: '.$filesize);
	header('Cache-Control: private, no-transform, no-store, must-revalidate');
	
	$str = '';
	//输出表头
	foreach($arr_table_fields as $row){
		$str .= $row['comment'].',';
	}
	$str .= "\n";
	echo utf82gbk($str);
	
	//获取记录总数
	$num = $this->db->count_all('my_guanzhong');
	if(! $num)return;
	//每次获取1000条
	$pagesize = 1000;
	//循环获取数据并输入
	//如果数据记录很多而直接全部读取到内存会导致内存溢出
	ob_start();
	for($i=0; $idb->select($select_fields)->order_by('id DESC')->limit($pagesize, $i*$pagesize)->get('my_guanzhong');
		while($row=$res->unbuffered_row()){
			foreach($row as $item){
				if(is_numeric($item)){ //数值型
					if(preg_match("/^-?\d{1,11}$/", (string)$item)){ //不超过11位的整数
						echo $item, ',';
					}else{
						echo '="', $item, '",';
					}
				}else{
					if(strpos($item, ',') !== FALSE || strpos($item, "\r") !== FALSE || strpos($item, "\n") !== FALSE){ //逗号、回车、换行
						if(strpos($item, '"') !== FALSE){ //有双引号
							echo '"', str_replace('"', '""', $item), '",';
						}else{
							echo '"', $item, '",';
						}
					}else{
						echo $item, ',';
					}
				}
			}
			echo "\n";
		}
		//echo format_bytes(memory_get_peak_usage()), ', ', microtime(1)-NOW_TIME, "\n";
		//获取缓冲区内容并转为gbk编码
		$str = utf82gbk(ob_get_contents());
		//清空缓冲区
		ob_clean();
		//重新输出转码后的内容
		echo $str;
		//发送至浏览器
		ob_flush();
	}
	flush();
}

ASP:

<%
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", new_url
%>

PHP:

<?php
header("HTTP/1.1 301 Moved Permanently");
header("Location: http://abc.com".$_SERVER['REQUEST_URI']);
?>

注意：不管是rs.open sql,conn还是conn.execute(sql) [这里的SQL是delete,update,insert]执行以后都会返回一个关闭的记录集，也就是说如果sql是插入、更新、删除语句，那么set rs=conn.execute(sql)中的RS就没什么意义。

http://blog.sina.com.cn/s/blog_5140c6740100gnci.html

Microsoft JET Database Engine 错误 '80040e14'
内存溢出

主要原因：

1、字段或表名使用了保留字，如：select、insert、date等，不要使用保留字，或在sql中相应字段加方括号，如 [select]

2、要查询的字段包含特殊字符，常见的有bom标记等不可见字符，可以在数据保存时使用正则过滤掉，我的做法：regReplace(str, "[\ufeff\u2028\u2029\xa0]+", "")

3、包含日文字符，并不是所有的日文字符都有问题，而是只有26个有问题，这个是access的bug，只能在保存数据时进行转换成自定义的字符，查询和显示时再转换回去。如果不需要日文查询，可以在保存时，把相应日文转义。如你转义为你
我的做法：

Function jpEncode(ByVal s)
	Dim jpArr, i
	'26个日文字符的unicode代码
	jpArr=array(12468, 12460, 12462, 12464, 12466, 12470, 12472, 12474,_
			12485, 12487, 12489, 12509, 12505, 12503, 12499, 12497,_
			12532, 12508, 12506, 12502, 12500, 12496, 12482, 12480,_
			12478, 12476)
	For i=0 To Ubound(jpArr)
		s=Replace(s, ChrW(jpArr(i)), "&#"&jpArr(i)&";")
	Next
	jpEncode=s
End Function

直接调用fso.OpenTextFile方法生成的文本文件为ANSI编码，要生成utf-8编码的文本文件需要用到Adodb.Stream组件（主要用于生成utf-8编码的html文件）

Sub toTxt(ByVal f, ByVal s)
	Dim adoStream, fso
	Set fso=Server.CreateObject("Scripting.FileSystemObject")
	If InStr(f, "/")>0 Then
		If Not fso.FolderExists(Server.MapPath(Left(f, InStrRev(f, "/")))) Then
			Set fso=Nothing
			Exit Sub
		End If
	End If
	Set adoStream = Server.CreateObject("ADODB.Stream")
	If Err.Number=-2147221005 Then Exit Sub	'不支持Adodb.Stream组件
	With adoStream
		.Type = 2
		.Open
		.Charset  = "utf-8"
		.Position = .Size
		.WriteText= s
		.SaveToFile Server.MapPath(f), 2
		.Close
	End With
	Set adoStream = Nothing
End Sub

<%@ Language="VBScript" CODEPAGE="65001"%>
<%
Option Explicit
Session.CodePage=65001
Response.Charset="UTF-8"

Dim xmlStr, xml
xmlStr="<?xml version=""1.0"" encoding=""UTF-8""?>"&_
"<books>"&_
"	<book>"&_
"		<name>三国演义</name>"&_
"		<price>99</price>"&_
"	</book>"&_
"	<book>"&_
"		<name>水浒传</name>"&_
"		<price><![CDATA[22]]></price>"&_
"	</book>"&_
"</books>"

Set xml = Server.CreateObject("MSXML2.DOMDocument")
xml.preserveWhiteSpace = true
xml.async = false
xml.LoadXML(xmlStr)
If xml.parseError.errorCode <> 0 Then
	Response.Write "Description: " & xml.parseError.reason & "Line: " & xml.parseError.Line
Else
	Dim book, i
	'方法1
	Set book=xml.selectNodes("/books/book")
	For i=0 To book.length-1
		Response.Write book(i).selectSingleNode("name").text&"："&book(i).selectSingleNode("price").text&"<br>"
	Next
	Response.Write "----<br>"
	'方法2
	For i=0 To book.length-1
		Response.Write book(i).selectSingleNode("name").text
		Response.Write book(i).childNodes(1).text&"："&book(i).childNodes(3).text&"<br>"
	Next
	Response.Write "----<br>"
	'方法3
	For i=0 To book.length-1
		Response.Write book(i).getElementsByTagName("name").Item(0).text&"："&book(i).getElementsByTagName("price").Item(0).text&"<br>"
	Next
	Response.Write "----<br>"
	'方法4
	Dim n, p
	Set n=xml.getElementsByTagName("name")
	Set p=xml.getElementsByTagName("price")
	For i=0 To n.length-1
		Response.Write n(i).text&"："&p.item(i).text&"<br>"
	Next
	Response.Write "----<br>"
	'方法5
	Set n=xml.selectNodes("/books/book/name")
	Set p=xml.selectNodes("/books/book/price")
	For i=0 To n.Length-1
		Response.Write n(i).text&"："&p.item(i).text&"<br>"
	Next
End If
Set xml=Nothing
%>