<![CDATA[扬帆blog]]> http://www.wesoho.com/ zh-cn PBlog2 v2.4 扬帆blog http://www.wesoho.com/images/logos.gif http://www.wesoho.com/ 扬帆blog http://www.wesoho.com/article/asp/2880.htm <![CDATA[Jquery与Mootools共存冲突如何解决？]]> webfly@gmail.com(webfly) Sun,18 Jul 2010 15:56:28 +0800 http://www.wesoho.com/default.asp?id=2880  

方法一：

 
<html>  
  <head>  
    <script src="Mootools.js"></script>  
    <script src="jquery.js"></script>  
    <script>  
      jQuery.noConflict();  
 
      // Use jQuery via jQuery(...)  
      jQuery(document).ready(function(){  
        jQuery("div").hide();  
      });  
 
      // Use Prototype with $(...), etc.  
      $('someid').style.display = 'none';  
    </script>  
  </head>  
  <body></body>  
  </html>

方法二：
 

 
   <html>  
  <head>  
     <script src="Mootools.js"></script>  
     <script src="jquery.js"></script>  
    <script>  
      var $j = jQuery.noConflict();  
 
      // Use jQuery via $j(...)  
        $j(document).ready(function(){  
        $j("div").hide();  
        });  
 
      // Use Prototype with $(...), etc.  
       $('someid').style.display = 'none';  
    </script>  
  </head>  
  <body></body>  
  </html>

方法三：

 
  <html>  
   <head>  
     <script src="Mootools.js"></script>  
     <script src="jquery.js"></script>  
     <script>  
       jQuery.noConflict();  
 
       // Put all your code in your document ready area  
       jQuery(document).ready(function($){  
         // Do jQuery stuff using $  
         $("div").hide();  
      });  
 
       // Use Prototype with $(...), etc.  
      $('someid').style.display = 'none';  
     </script>  
   </head>  
   <body></body>  
   </html>

 

 

]]> http://www.wesoho.com/article/Delphi/2879.htm <![CDATA[用api（shell）函数实现文件复制（摘至delphi盒子）]]> webfly@gmail.com(webfly) Mon,12 Jul 2010 13:10:43 +0800 http://www.wesoho.com/default.asp?id=2879 Windows API函数 SHfileOperation(TSHFILEOPSTRUCT)的用法:

TSHFILEOPSTRUCT是指向SHFILEOPSTRUCT结构体的指针,在Delphi中定义如下:
Hwnd  //显示状态信息窗口的句柄,一般是你的程序中的主窗体,看你怎么用了
wFunc  //要执行的操作   取值:FO_COPY 复制
          FO_MOVE 移动
          FO_Delete 删除
pFrom  //源文件或目录
pTo    //目标文件或目录
fFlag  //控制文件操作的标志  其中你感兴趣的标志取值为:
       FOF_SILENT---不创建进度条
       FOF_SIMPLEPROGRESS----显示进度条对话框但不显示文件名
       FOF_NOCONFIRMATION-----操作过程中不显示确认信息,相当与用户选择了"Yes to all"
其他的取值可以参考ShellAPI单元的参数定义(全E文的哦 ^_^)
fAnyOperationsAborted   //Boolean类型值,操作是否放弃
hNameMappings   //文件名映射对象的句柄,很少用到,一般取nil
lpszProgressTitle  //进度条标题,注意仅在fFlag中指定了FOF_SIMPLEPROGRESS时才有效.
函数返回值为0表示操作成功

例如:
将C:\document目录的文件复制到D盘"文档"目录下

Procedure Tform1.Button1Click(Sender:TObject)
var
OpStruc:TSHFileOpStruct;   //定义OpStruc为操作结构体指针
FromBuf,ToBuf:array[0..255] of char; //定义源路径和目标路径
Begin
 StrPcopy(FromBuf,Pchar('C:\document'));
 StrPcopy(FromBuf,Pchar('D:\文档'));     //设置源路径和目标路径
 with OpStruc do        //开始定义结构体参数
  begin
   wnd:=handle;         //定义本窗体句柄,表明操作在本窗体出现
   wFunc:=FO_COPY;     //说明本次操作为复制
   pFrom:=@FromBuf;    //填源路径字符
   pTo:=@ToBuf;        //填目标路径字符
   fFlag:=FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS  //注意操作标志,如果你要让进度条出现必须有FOF_SIMPLEPROGRESS值
   fAnyOperationsAborted:=false;
   hNameMappings:=nil;
   lpszProgressTitle:=nil;
 end;
 if SHfileOperation(OpStruc)=0 then showmessage('复制完毕!');
end;
 

]]> http://www.wesoho.com/article/Delphi/2878.htm <![CDATA[Delphi复制文件夹内所有文件]]> webfly@gmail.com(webfly) Mon,12 Jul 2010 12:48:28 +0800 http://www.wesoho.com/default.asp?id=2878 var
  hFindFile: Cardinal;
  t, tfile: string;
  sCurDir: string[255];
  FindFileData: WIN32_FIND_DATA;
begin
//记录当前目录
  sCurDir := GetCurrentDir;
  ChDir(sDirName);
  hFindFile := FindFirstFile('*.*', FindFileData);
  if hFindFile <> INVALID_HANDLE_VALUE then
  begin
    if not DirectoryExists(sToDirName) then
      ForceDirectories(sToDirName);
    repeat
      tfile := FindFileData.cFileName;
      if (tfile = '.') or (tfile = '..') then
        Continue;
      if FindFileData.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY then
      begin
        t := sToDirName + '\' + tfile;
        if not DirectoryExists(t) then
          ForceDirectories(t);
        if sDirName[Length(sDirName)] <> '\' then
          DoCopyDir(sDirName + '\' + tfile, t)
        else
          DoCopyDir(sDirName + tfile, sToDirName + tfile);
      end
      else
      begin
        t := sToDirName + '\' + tFile;
        CopyFile(PChar(tfile), PChar(t), True);
      end;
    until FindNextFile(hFindFile, FindFileData) = false;
///     FindClose(hFindFile);
  end
  else
  begin
    ChDir(sCurDir);
    result := false;
    exit;
  end;
//回到当前目录
  ChDir(sCurDir);
  result := true;
end;

===============================================
第二种方法

uses ShellApi;

///复制Source整个目录到DEST目录，如果Dest不存在，自动建立，如果DEST存在，那么Source将作为Dest的子目录！  
  //例如如果要复制E:\Temp整个目录到E:\那么代码为：   copydirectory('e:\temp','e:\');  
  ///如果要复制E:\Temp到E:\Test目录下面，那么代码为：CopyDirecotry('E:\Temp','E:\TEST');  
  function   CopyDirectory(const   Source,   Dest:   string):   boolean;  
  var  
      fo:   TSHFILEOPSTRUCT;  
  begin  
      FillChar(fo,   SizeOf(fo),   0);  
      with   fo   do  
      begin  
          Wnd   :=   0;  
          wFunc   :=   FO_COPY;  
          pFrom   :=   PChar(source+#0);  
          pTo   :=   PChar(Dest+#0);  
          fFlags   :=   FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR         ;  
      end;  
      Result   :=   (SHFileOperation(fo)   =   0);  
  end;   ]]> http://www.wesoho.com/article/Delphi/2877.htm <![CDATA[Delphi显示确认框]]> webfly@gmail.com(webfly) Mon,12 Jul 2010 12:35:27 +0800 http://www.wesoho.com/default.asp?id=2877 if MessageBox(Handle, '确实要关闭窗口吗？', '关闭窗口',
    MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
    Application.Terminate;

在这里，MessageBox就是一个Confirm框，'确实要关闭窗口吗？',是显示出来的内容，而后面的'关闭窗口'则是这个Confirm框的Title标题。当点击是的话则触发Application.Terminate;语句，关闭了程序，如果点否则没有任何反应。

]]> http://www.wesoho.com/article/Delphi/2876.htm <![CDATA[计算目录大小的函数，获得目录文件列表，计算文件的大小]]> webfly@gmail.com(webfly) Mon,12 Jul 2010 12:25:31 +0800 http://www.wesoho.com/default.asp?id=2876 获取指定扩展名的文件

//获取文件列表 三个参数分别是：路径，扩展名，搜索结果保存变量
procedure FindAllFile(const Dir: string;ext:string;List: TStringlist);
var
  hFindFile: THandle;
  FindFileData: WIN32_FIND_DATA;
  FullName,FName,s:string;
begin
  s:=IncludeTrailingPathDelimiter(Dir);
  hFindFile := FindFirstFile(pchar(s+'*.'+ext), FindFileData);
  if hFindFile <> 0 then begin
    repeat
      FName:=FindFileData.cFileName;
      FullName:=s+FName;
      if (FName='.') or (FName='..') then continue;
      if (FindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then
        FindAllFile(FullName,ext,List)
      else
        begin
          List.Add(FullName);
        end;
    until FindNextFile(hFindFile, FindFileData) = false;
    windows.FindClose(hFindFile);
  end;
end;

=====================================================

这个函数可以获得指定目录下所有的文件路径+名称，能够递归搜索：

procedure FindAllFile(const Dir: string;List: TStringlist);
var
  hFindFile: THandle;
  FindFileData: WIN32_FIND_DATA;
  FullName,FName,s:string;
begin
  s:=IncludeTrailingPathDelimiter(Dir);
  hFindFile := FindFirstFile(pchar(s+'*.*'), FindFileData);
  if hFindFile <> 0 then begin
    repeat
      FName:=FindFileData.cFileName;
      FullName:=s+FName;
      if (FName='.') or (FName='..') then continue;
      if (FindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then
        FindAllFile(FullName,List)
      else
        begin
          List.Add(FullName);
        end;
    until FindNextFile(hFindFile, FindFileData) = false;
    windows.FindClose(hFindFile);
  end;
end;
这个函数可以获得指定文件的大小：

function GetFileSizeByName(AFileName: string): Int64;
var
  h: THandle;
  dwHigh,dwLow:DWORD;
begin
  dwHigh:=0;
  if FileExists(AFileName) then
  begin
    h:= FileOpen(AFileName,fmOpenRead or fmShareDenyNone);
    dwLow:=GetFileSize(h,@dwHigh);
    if (dwLow = $FFFFFFFF) and (GetLastError() <> NO_ERROR) then
      Result:=0
    else
      Result:= (dwHigh shl 32) + dwLow;
    FileClose(h);
  end
  else
    Result := 0;
end;
要获得目录的总大小，可以先用第一个函数获得所有目录下文件的列表，然后遍历这个列表，累加文件尺寸。

 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/mrtechno/archive/2007/07/09/1683308.aspx

]]> http://www.wesoho.com/article/asp/2875.htm <![CDATA[SQL随机查询]]> webfly@gmail.com(webfly) Sat,26 Jun 2010 12:21:13 +0800 http://www.wesoho.com/default.asp?id=2875

SQL Server：

Select TOP N * From TABLE order By NewID()  
view plaincopy to clipboardprint?
Select TOP N * From TABLE order By NewID()

Select TOP N * From TABLE order By NewID()
NewID()函数将创建一个 uniqueidentifier 类型的唯一值。上面的语句实现效果是从Table中随机读取N条记录。

Access：

Select TOP N * From TABLE order By Rnd(ID)   
view plaincopy to clipboardprint?
Select TOP N * From TABLE order By Rnd(ID)  

Select TOP N * From TABLE order By Rnd(ID)
Rnd(ID) 其中的ID是自动编号字段，可以利用其他任何数值来完成，比如用姓名字段(UserName)

Select TOP N * From TABLE order BY Rnd(Len(UserName))  
view plaincopy to clipboardprint?
Select TOP N * From TABLE order BY Rnd(Len(UserName))

Select TOP N * From TABLE order BY Rnd(Len(UserName))

MySql：

Select * From TABLE order By Rand() Limit 10  
view plaincopy to clipboardprint?
Select * From TABLE order By Rand() Limit 10

Select * From TABLE order By Rand() Limit 10


postgreSQL：

select * from glxt022 order by random() limit 5  
view plaincopy to clipboardprint?
select * from glxt022 order by random() limit 5

]]> http://www.wesoho.com/article/asp/2874.htm <![CDATA[dedecms在linux主机下的一个奇怪错误]]> webfly@gmail.com(webfly) Sun,06 Jun 2010 23:18:51 +0800 http://www.wesoho.com/default.asp?id=2874 dedecms上传到linux空间后遇到一个问题，所有header转向失效，cookie登陆失效，无法保存登陆状态，打开错误提示以后看到错误是这样的（此错误详细描述见dedecms一个奇怪的错误）：

Warning: Cannot modify header information - headers already sent by (output started at /www/users/wucailu.com/data/common.inc.php:1) in /www/users/wucailu.com/include/common.inc.php on line 178

Warning: Cannot modify header information - headers already sent by (output started at /www/users/wucailu.com/data/common.inc.php:1) in /www/users/wucailu.com/include/common.func.php on line 517

Warning: Cannot modify header information - headers already sent by (output started at /www/users/wucailu.com/data/common.inc.php:1) in /www/users/wucailu.com/include/common.func.php on line 518

Warning: Cannot modify header information - headers already sent by (output started at /www/users/wucailu.com/data/common.inc.php:1) in /www/users/wucailu.com/include/common.func.php on line 517

Warning: Cannot modify header information - headers already sent by (output started at /www/users/wucailu.com/data/common.inc.php:1) in /www/users/wucailu.com/include/common.func.php on line 518
 

搜索baidu google都找不到合适的答案，所有方法用尽都无济于事，今天偶尔得知还有BOM信息头这么个东西，循着这条线终于找到了问题所在，把提示的文件去掉BOM头就ok啦

去掉BOM头的方法参见：

http://www.auiou.com/relevant/00000470.jsp

http://www.jefflei.com/post/69.html           

推荐使用ultraedit，直接可以另存为utf8  - 无BOM

      

 =================================================

去掉UTF-8文件的BOM的方法

EmEditor软件，先打开任意一个PHP文件，按Alt+回车，选择“文件”的标签，在“打开时的字符码”，选择“UTF-8”，然后关闭EmEditor。以后打开任何PHP文件，只要按Ctrl+S，或者Ctrl+E，就可以保存为UTF-8编码的无BOM文件，十分方便。

UltraEdit可以点击“文件→另存为”，格式选择“UTF-8无BOM”，英文网页每次都需要这个操作。否则，在按Ctrl+S时，会被保存为ANSI格式。中文网页，在第一次另存为之后，以后只要按Ctrl+S即可。

EmEditor也可以用同样的方法，“文件→另存为”，字符码选择“UTF-8”，去掉“加入 Unicode 署名”前面的勾，英文网页每次都需要这个操作。同样，中文网页，在第一次另存为之后，以后只要按Ctrl+S即可。EmEditor建议按照第一段文字的方法设置，以后无需每次都使用“另存为”。

]]> http://www.wesoho.com/article/Safe_Other/2873.htm <![CDATA[免费安全DNS全提供]]> webfly@gmail.com(webfly) Mon,31 May 2010 12:59:20 +0800 http://www.wesoho.com/default.asp?id=2873 感谢google老大提供的免费dns

8.8.8.8
8.8.4.4

台湾的中华电信的DNS
168.95.1.1（dns.hinet.net）
168.95.192.1（hntp1.hinet.net）
168.95.192.2（hntp3.hinet.net）

OpenDns提供的免费dns

208.67.222.222
208.67.220.220

Norton提供的DNS

198.153.192.1
198.153.194.1

NortonDNS也提供了一个和Google Status类似的页面，用于报告DNS状况，地址是:http://status.nortondns.com/

使用命令"ping -n 20 IP" 测试20次Ping的时间。
 

OpenDNS:最短 = 218ms，最长 = 302ms，平均 = 251ms
GoogleDNS:最短 = 112ms，最长 = 216ms，平均 = 143ms
NortonDNS:最短 = 109ms，最长 = 200ms，平均 = 139ms
]]> http://www.wesoho.com/article/Safe_Other/2872.htm <![CDATA[远程桌面超出最大终端数解决]]> webfly@gmail.com(webfly) Thu,27 May 2010 13:34:23 +0800 http://www.wesoho.com/default.asp?id=2872 相信很多朋友都试过，远程桌面超出最大终端连接数的烦恼。以前，我们只能给机房打电话，他们帮忙重启一下机器。

前段时间发现，只要用远程桌面自带的命令就可以进了。

mstsc /v:IP /console

上面的命令只适用于XP等系统。Windows7的换成
mstsc /v:IP /admin

]]> http://www.wesoho.com/article/asp/2871.htm <![CDATA[php使用odbc连接access数据库备注字段被截断]]> webfly@gmail.com(webfly) Wed,19 May 2010 16:34:39 +0800 http://www.wesoho.com/default.asp?id=2871 php使用odbc连接access数据库备注字段被截断，为什么会这样呢，因为php默认设置的问题，长字段自动截断，默认设置是4096

打开php.ini 搜[ODBC] 找到

; Handling of LONG fields.  Returns number of bytes to variables.  0 means
; passthru.
odbc.defaultlrl = 4096

改为

; Handling of LONG fields.  Returns number of bytes to variables.  0 means
; passthru.
odbc.defaultlrl = 409600 不过瘾可以多加几个

重启ok

]]>