Nov 17

在BO-BLOG中应用GOOGLE的自定义搜索 不指定

kcao , 11:03 , 技术 , 评论(0) , 引用(0) , 阅读(1656) , Via 本站原创

在GOOGLE申请自定义搜索,会转到GOOGLE的页面,现在想直接在自己站内显示搜索结果,临时再学习了一下PHP,(郁闷,学完就忘,做点什么都得从头学...)

1. 首先要去GOOGLE获取搜索代码,上GOOGLE注册不说,获得搜索代码如下:

XML/HTML Code Copy Code To Clipboard
  1.   <form action="http://www.kycis.com/blog/search.php" id="cse-search-box">
        <div>
       <input type="hidden" name="cx" value="partner-pub-7375666131479943:3385946271" />
       <input type="hidden" name="cof" value="FORID:10" />
       <input type="hidden" name="ie" value="UTF-8" />
       <input type="text" name="q" size="55" />
       <input type="submit" name="sa" value="&#x641c;&#x7d22;" />
        </div>
      </form>
      <script type="text/javascript" src="http://www.google.ca/coop/cse/brand?form=cse-search-box&amp;lang=zh-Hans"></script>

2. 打开 \blog\inc\mod_basic.php文件,在文件的最后,有定义$searchbox的地方,把它改为你修改过的GOOGLE搜索代码.这样就能在侧栏里使用GOOGLE自定义搜索了.这里注意以上代码的<input type="text" name="q" size="55" />这一行,把SIZE改小一点以适应你的页面.

3. 在 \blog\inc 目录中新建一个mod_search.php文件,内容如下:

PHP Code Copy Code To Clipboard
  1. <?PHP   
  2.   
  3. if (!defined('VALIDREQUEST')) die ('Access Denied.');   
  4.   
  5. $result.=<<<eot   
  6. <div id="mainWrapper">   
  7.     <div id="content" class="content">   
  8.         <div id="innerContent">   
  9.                    
  10.         <form action="http://www.kycis.com/blog/search.php" id="cse-search-box">   
  11.           <div>   
  12.             <input type="hidden" name="cx" value="partner-pub-7375666131479943:3385946271" />   
  13.             <input type="hidden" name="cof" value="FORID:10" />   
  14.             <input type="hidden" name="ie" value="UTF-8" />   
  15.             <input type="text" name="q" size="120" />   
  16.             <input type="submit" name="sa" value="搜索" />   
  17.           </div>   
  18.         </form>   
  19.         <script type="text/javascript" src="http://www.google.ca/coop/cse/brand?form=cse-search-box&lang=zh-Hans"></script>   
  20.   
  21.            
  22.         <div id="cse-search-results"></div>   
  23.         <script type="text/javascript">   
  24.           var googleSearchIframeName = "cse-search-results";   
  25.           var googleSearchFormName = "cse-search-box";   
  26.           var googleSearchFrameWidth = 800;   
  27.           var googleSearchDomain = "www.google.ca";   
  28.           var googleSearchPath = "/cse";   
  29.         </script>   
  30.         <script type="text/javascript" src="http://www.google.com/afsonline/show_afs_search.js"></script>   
  31.   
  32.   
  33.            
  34.         </div>   
  35.     </div>   
  36. </div>   
  37. eot;   
  38. $bodymenu=$result;  

4. 在 \blog目录中新建一个search.php文件,内容如下:

PHP Code Copy Code To Clipboard
  1. <?PHP   
  2. $act='search';   
  3. define ('whereAmI', 'search');   
  4. require ("index.php");   
  5. ?>  

现在好了,GOOGLE自定义搜索已经可以用了,而且结果是在自己页面内显示.不过,怎么没结果显示出来呢?别急,刚申请了GOOGLE自定义站内搜索,站内的结果还没有完全被GOOGLE收录,所以等个一两天再来看结果吧.

Tags:
Nov 17

鸭梨笔记本上市！！！超越苹果和微软！！(搞笑) 不指定

kcao , 00:10 , 技术 , 评论(0) , 引用(0) , 阅读(1209) , Via 本站原创

在『Back To The Mac』上，乔布斯发布了超强悍的11寸MacBook Air，掀起新一轮的笔记本轻薄便携的新潮流动向。你也很向往？但在我人民群众伟大的发明精神下，什么新版MacBook Air全部都是浮云。就在不久前，豆瓣上有朋友分享了超强的国产神机，来自MunanSoft科技公司开发的全新一代笔记本电脑：鸭梨笔记本。下面是来自豆瓣的非专业不负责任评测：

日前，MunanSoft在联合国全球科技博览会发布了最新一代的鸭梨笔记本，应其高性能高性价和艺术感十足的设计在博览会上完败微软，苹果，IBM等所有所有的公司，独领风骚，为中国的企业做出了百分之一千的贡献，MunanSoft的CEO兼董事长被评为2010中国杰出青年。下面让我们来看一看这款超越iPad，MacBook Pro，MacBook Air成为新一代的时尚和科技弄潮儿的全世界的新宠吧。

超有手感的深蓝色外壳，立体品牌标志，手工风十足，个性体现，文艺必备。

俯视图

01

正面

02

侧面

03

备有3个USB 5.0插口，读取速度目前处于全球最领先水平，拷1G的电影才需要30秒！3个USB5.0接口

04

DVD10光驱，读取蓝光，D5,D9,D10等速度超快，具备双面光盘，蓝光雕刻，刻录功能。

 05

超薄机身，白色机体，尊贵典雅
 

06

配有电子笔，电脑具备手写板和数码手绘板功能，自带ARTRAGE 5.0手绘软件。只要切换为手绘板模式，可直接在屏幕绘画。
07

超薄，正屏，全新3D显示科技，看3D电影告别眼镜时代
08

手感一流，用不释手，办公游戏设计娱乐必备，不必备你找我。
09

触屏设计，也可外接鼠标，无线鼠标，高端吧？
 10

右下方为书写板，偏僻字随时找到，方便快捷。看下桌面，可选预装很多最新的软件哦。
还有很多软件是MunanSoft公司自主开发的高效能软件哦！包括：千度搜索、阿里喵喵、IE 10等以及很多和各软件公司合作开发的独家最新版软件

11
12

14

特别版！美国FBI特别研制版！由美国国防部和FBI赞助开发的笔记本，具备很多安全功能，包括AFIS指纹识别,AVIS语音识别和视网膜识别。
13

Nov 16

BO-BLOG改变目录 不指定

kcao , 23:15 , 技术 , 评论(0) , 引用(0) , 阅读(1325) , Via 本站原创

原来用的目录名是/kblog,后来想换成/blog了.别问为什么,折腾呗...

在BLOG设置里改了,又改了服务器上的目录名,一切看似正常,但是在写文章时,FCK编辑器无法正常使用了,查看页面源程序又找了半天,终于明白改目录后还要再有一个地方要改设置:

/blog/editor/fckeditor/editordef.php 进入这个文件,找 oFCKeditor.BasePath, 它的值原来是 '/kblog/editor/fckeditor/', 改为 '/blog/editor/fckeditor/'即可正常使用FCKEDITOR.

Tags: , ,
Nov 16

博客迁移 不指定

kcao , 10:22 , 技术 , 评论(0) , 引用(0) , 阅读(1319) , Via 本站原创

我决定把博客迁移到WORDPRESS平台了,不是说BO-BLOG有什么不好,只是WORDPRESS平台太好了.有什么好的我在那儿讲,地址是:

http://www.kycis.com/wp

这个是我自己的网站,呵呵,有什么更新都在那儿说,对了,原来只想搞个自说自话的平台,但是没想到看了网站LOG后发现有不少朋友还是找到了这里,那就独乐乐不如众乐乐吧.兄弟们,那儿见.

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

呃,如果您真的访问了上面的网址,那么请您别糊涂,您的确又回到了这里...BO-BLOG...因为,我改变主意了,我决定还是用以前的这套系统.试用了一会儿WORDPRESS,的确功能很强,强到无法想象,但是太强了,强大的功能让我无法适应,强大的功能我没有几个是真正用得上的,而这套系统,虽然小,但是功能一样不弱,而且,还有很多潜力可以挖掘.

我开放了这里的注册,如果您愿意,不妨也留下一点文字,让我知道您的到来.

Oct 27

将STRINGGRID中每行的数据居中显示 不指定

kcao , 15:05 , 技术 , 评论(0) , 引用(0) , 阅读(4270) , Via 本站原创

没有特定的属性可以修改,只能修改控件的ONDRAWCELL事件:

SQL Code Copy Code To Clipboard
  1. procedure   TForm1.StringGrid1DrawCell(Sender:   TObject;   ACol,   ARow:   Integer;    
  2.     Rect:   TRect;   State:   TGridDrawState);    
  3. var    
  4.     sText:   string;    
  5. begin    
  6.     with   StringGrid1   do    
  7.     begin    
  8.         sText   :=   Cells[ACol,   ARow];    
  9.         if   sText   <>   ' '   then    
  10.         begin    
  11.             Canvas.FillRect(Rect);    
  12.             DrawText(Canvas.Handle,   PChar(sText),   Length(sText),   Rect,   DT_CENTER   or   DT_VCENTER   or   DT_SINGLELINE);    
  13.         end;    
  14.     end;    
  15. end;   

这样修改的一个结果是,第一行标题栏也变成了白色背景居中显示,偷个懒,把第一行改成灰色背景吧:

SQL Code Copy Code To Clipboard
  1. procedure TSolidDepositionPrograssForm.StringGrid1DrawCell(Sender: TObject;   
  2.   ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);   
  3. var sText:   string;   
  4. begin  
  5.     with StringGrid1 do   
  6.     begin  
  7.         sText   :=   Cells[ACol,   ARow];   
  8.         if   sText   <>   ' '   then  
  9.         begin  
  10.            if ARow=0 then begin  
  11.               Canvas.Brush.Color:=clBtnface;   
  12.            end else  
  13.               Canvas.Brush.Color:=clWhite;   
  14.               Canvas.FillRect(Rect);   
  15.             DrawText(Canvas.Handle,   PChar(sText),   Length(sText),   Rect,   DT_CENTER   or   DT_VCENTER   or   DT_SINGLELINE);   
  16.         end;   
  17.     end;   
  18. end;  

 

Tags: , ,
分页： 10/20 第一页 上页 5 6 7 8 9 10 11 12 13 14 下页 最后页 [ 显示模式： 摘要 | 列表 ]