LorDong's Blog

作这父母，也许这些话我们不该对孩子说：

01 你怎么这么笨
02 连我的话都不听
03 为什么别人行，你就不行
04 怎么不说话了，哑巴了
05 你聋了？听不见我说的话
06 我没有你这样的儿子
07 是我没本事，不能……
08 妈妈求你了
09 滚吧．想去哪里就去哪里
10 再哭，让狼把你叼走
11 看我不打死你
12 这么大了还尿床
13 算了吧，你不是那块料
14 这个玩具应该这样玩
15 不要逞能，你还小着呢
16 别缠着我
17 都怪椅子，我们打它
18 等你爸爸回来，看他怎么收拾你
19 雪糕吃多了，肚子里要生虫子的
20 我像你这么大的时候……
21 磨蹭什么呀，急死人了
22 不要给我丢脸
23 要是没有你该多好
24 哟，真是太阳从西边出来了
25 为什么，为什么，哪有那么多为什么
26 不准失败
27 我让你赢一次
28 你这个懒虫，从来都不帮我做点事
29 还敢顶嘴
30 你这个忘恩负义的东西！
31 大人说话，小孩不许插嘴
32 不准哭
33 住嘴
34 你学习去吧，其他事不用你管
35 像你这个样子，长大了只有捡垃圾
36 光音乐学得好，有什么用？
37 如果考100分，我就奖励10块钱
38 不错不错，很好很好！
39 这个老师的水平太差了
40 老毛病又犯了？
41 不要难过，明天就会好了
42 你是全世界最美的女孩
43 你胖得像头猪
44 你怎么这么不懂事……
45 你以前很乖，现在越大越不听话了。
46 你竟敢用这种态度跟妈妈讲话
47 如果你下次再这样做……
48 你做这种事真让我伤透了心
49 你脸皮真厚，要是我，早找个地缝钻进去了
50 你总是丢三落四，怎么没把人给弄丢了
51 是爸爸好，还是妈妈好
52 胆小鬼，怕什么
53 来，让算命先生给你算一卦
54 你早该知道这样做不对
55 你早知道那样做才对
56 算了！下带你去了
57 你真是成事不足败事有余
58 他打你，你怎么不打他

信息来源：http://product.dangdang.com/product.aspx?product_id=20411016

Options -Indexes

将以上代码直接写进 .htaccess 文件里面。
当你网站上的某个目录没有index索引时，此代码可以禁止列出目录内文件名。
提高网站安全性。

CuteFTP是比较常用的FTP上传下载工具，合理设置好传输选项可以提高上传下载的速度。

启用CuteFTP的智能覆盖可以跳过一些不变化的内容，从而减少上传下载的理，也就提高了速度。

下图是我的设置：

（更多…）

上篇《PHP空间远程下载代码》解决了在远程PHP空间下载软件的问题，一般来说下载完并通过http方式把已下载到服务器的文件下载到本地后就要把远程服务器上的文件删除，通常情况是通过ftp连接到服务器上去删除对应的文件，可是有时没有使用FTP的条件怎么办？

我这里写了一个删除已经下载文件的PHP代码，跟上篇的downfile.php放在服务上同一个目录下即可，临时目录还是temp。

实现代码：
<?php
// folder to save downloaded files to. must end with slash
$destination_folder = ‘temp/’;

if (isset($_POST[‘submit’]))
（更多…）

源码：

<form method=”post”>
<input name=”url” size=”50″ />
<input name=”submit” type=”submit”  value=”Download”/>
</form>

<?php
// maximum execution time in seconds
set_time_limit (24 * 60 * 60);
if (!isset($_POST[‘submit’])) die();

// folder to save downloaded files to. must end with slash
$destination_folder = ‘temp/’;

$url = $_POST[‘url’];
$newfname = $destination_folder . basename($url);
$file = fopen ($url, “rb”);
（更多…）

prototype LONG User32.SendMessageTimeout(HWND,LONG,LONG,LONG,LONG,LONG,LONG); 

//The SetEnvironmentVariable function sets the contents of the specified environment variable for the current process.
//This function has no effect on the system environment variables or the environment variables of other processes.
prototype BOOL KERNEL32.SetEnvironmentVariable(BYVAL STRING,BYVAL STRING);

#define WM_SETTINGCHANGE 0x1A
#define SMTO_ABORTIFHUNG 0x2   

prototype UpdateSystemPath(BOOL);
function UpdateSystemPath(bAdd)
    NUMBER nRootKey, nResult, nvSize, nvType;
    POINTER pParam, pResult;
    LONG lResult;
    STRING szParam, szPath, szWinDir; 
begin
    Disable(LOGGING);
   
    nRootKey = HKEY_LOCAL_MACHINE;
    if RegDBSetDefaultRoot(nRootKey) = 0 then   
        nvSize = 1; 
        nvType =  REGDB_STRING;
        nResult =  RegDBGetKeyValueEx("SYSTEM\\ControlSet001\\Control\\Session Manager\\Environment", "Path", nvType, szPath, nvSize); 
       
        szWinDir = WINDIR;
        StrRemoveLastSlash(szWinDir);
        StrReplace(szPath, "%SystemRoot%", szWinDir, 0);
       
        PathSet(szPath);
        if bAdd then
            PathAdd(TARGETDIR ^ "Bin", "", FULL, AFTER); 
        else
            PathDelete(TARGETDIR ^ "Bin", FULL);
        endif;
        PathGet(szPath);         
        RegDBSetKeyValueEx("SYSTEM\\ControlSet001\\Control\\Session Manager\\Environment", "Path", REGDB_STRING, szPath, -1);
       
        szParam     = "Environment";
        pParam      = &szParam;
        pResult     = &lResult;
        SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, pParam, SMTO_ABORTIFHUNG, 100, pResult);
       
        //set environment variable for current process
        SetEnvironmentVariable("PATH",szPath);
    endif;  
    Enable(LOGGING);
end;

// @param szVersion Version to check, e.g. "v2.0", "v3.5" and so on.

function DetectDotNet(szVersion)
    NUMBER nRootKey, nResult;
    LIST lstVersions;
    BOOL bRet;
    STRING szString;
begin
    bRet = FALSE;
    nRootKey = HKEY_LOCAL_MACHINE;
    lstVersions = ListCreate(STRINGLIST);
    if (lstVersions = LIST_NULL) then
        MessageBox ("Unable to create necessary lists.", SEVERE);
        abort;
    endif;
   
    if (RegDBSetDefaultRoot(nRootKey) = 0) then
        nResult = RegDBQueryKey("SOFTWARE\\Microsoft\\NET Framework Setup\\NDP",
            REGDB_KEYS, lstVersions);
        if (nResult = 0) then
            // Get the first string in the list.
            nResult = ListGetFirstString(lstVersions, szString);
   
            // Loop while list items continue to be retrieved.
            while (nResult != END_OF_LIST)
                // Detect the current element.
                if (StrFind(szString, szVersion) = 0) then
                    bRet = TRUE;
                    nResult = END_OF_LIST;  // Force to exit
                else
                    // Get the next string in the list.
                    nResult = ListGetNextString(lstVersions, szString);
                endif;
            endwhile;
        endif;
    endif;
   
    ListDestroy(lstVersions);  

    return bRet;
end;

无人值守安装.Net Framework 3.5的批处理脚本（传入参数是dotnetfx35.exe所在的绝对目录，解决自动连网下载的问题）：

@echo off
setlocal

set INSTALLER31="%~1WindowsInstaller-KB893803-v2-x86.exe"
set DOTNETFX35="%~1dotnetfx35.exe"
set NDP35SP1="%~1NDP35SP1-KB958484-x86.exe"

echo Installing %INSTALLER31%
%INSTALLER31% /quiet /norestart /nobackup

echo Extracting %DOTNETFX35%
%DOTNETFX35% /x:%TEMP% /passive

cd /d "%TEMP%\wcu\dotNetFramework"

echo Installing dotNetFx35setup.exe
dotNetFx35setup.exe /lang:ENU /norestart /passive

echo Removing extracted files
cd /d "%TEMP%"
rd /s /q wcu

echo Installing %NDP35SP1%
%NDP35SP1% /norestart /passive

endlocal