<![CDATA[WindKer'Blog]]> http://www.icediary.net/ zh-cn PBlog2 v2.4 WindKer'Blog http://www.icediary.net/images/logos.gif http://www.icediary.net/ WindKer'Blog http://www.icediary.net/article.asp?id=271 <![CDATA[access防下载 nodown表]]> 470280558@qq.com(WindKer) Tue,09 Mar 2010 12:06:13 +0800 http://www.icediary.net/default.asp?id=271 　　首先用Access打开MDB数据库，切换“对象”中的“表”为“查询”，然后双击“在设计视图中创建查询”，在弹出的“显示表”窗口中，不添加任何表，直接点“关闭”，这样“工具栏”中就多了一个“SQL”按钮，点击这个按钮或在“查询”窗口中点右键，选择其中的“SQL视图”，就会打开一个查询窗口，如图1，其实这个窗口就是Access的SQL命令输入窗口（刺猬提示：在MSSQL数据库中，有“查询分析器”可以调试SQL语句。而在ACCESS 数据库内，就可以采用这种方法来调试SQL语句了）。
接下来就可以创建防下载字段了，分两步进行：

　　第一步：先创建一个表，在SQL命令窗口内输入如下内容：“Create Table [nodown]([notdown] oleobject)”
然后点击工具栏中的“!”（运行），这样，就会在当前数据库内创建一个“nodown”表，其中的字段名称为“notdown”，字段类型为“OLE对象”。

　　第二步：将SQL查询窗口中的内容更改为如下命令：“Insert into [nodown](notdown) values(0x3C25)”
这一句的意思是向“nodown”表的“notdown”字段中插入“0x3C25”数据（“0x3C25”为字符“<%”的16进制）。

　　执行完毕后，再次查看数据库中的“表”，就会发现其中已多了一个“nodown”表，打开之后字段显示的是“长二进制数据”，瞧！是不是和某些专业ASP程序中的防下载字段模样一致！
   最后，更改数据库扩展名“MDB”为“ASP”，在本地的IIS中测试，返回的信息如下：

错误类型：
Active Server Pages, ASP 0116 (0x80004005)
Script 块缺少脚本关闭标记(% >)。

　　因为前面插入的是“<%”，所以当数据库变成ASP格式后，就会出现“缺少脚本关闭标记”的错误，在这里，出现错误却是好事哟！因为它说明前面设置的防下载是成功滴！
引自：http://hi.baidu.com/55661267/blog/item/df500e2f130fae3c1f308958.html

]]> http://www.icediary.net/article.asp?id=270 <![CDATA[asp动态include文件]]> 470280558@qq.com(WindKer) Mon,08 Mar 2010 14:06:10 +0800 http://www.icediary.net/default.asp?id=270 <! #include file="filename.asp" -->

宏限制,必须存在该文件并且会预先编译（不管前面是否加以条件）

经常有这样的要求，根据不同的需求要求include不同的文件,如各个人的不同设置，所以要求能动态include文件。

代码如下：

以下为代码部分:
Function include(filename)
Dim re,content,fso,f,aspStart,aspEnd

set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing

set re=new RegExp
re.pattern="^\s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
do while aspStart>aspEnd+1
Response.write Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%\>")+2
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
aspStart=inStr(aspEnd,content,"<%")+2
loop
Response.write Mid(content,aspEnd)
set re=nothing
End Function
使用范例：

include("youinc.asp")
引自：http://hi.baidu.com/xiaoxiaolq/blog/item/48228925e780cd6335a80ff5.html]]> http://www.icediary.net/article.asp?id=269 <![CDATA[ASP中GetRows的用法详解]]> 470280558@qq.com(WindKer) Mon,08 Mar 2010 14:00:48 +0800 http://www.icediary.net/default.asp?id=269 最近使用使用，不错的好东东！
对提高批量查询，查询纪录集不是巨海量的情况很有效果
NextRecordset 和 GetRows 是Recordset的两个属性（属性还是方法我是常溷淆是非#$#$，弄不清四下五除一）

GetRows ---> 将recordset记录集提取到一个二维数组中，我们对recordset数据的行为就转移到该数组，可以早早的断开纪录集，不用再使用元数据操作，rs.movnext, while not rs.eof等可以省掉

NextRecordset ----> 就是在一次提交多个查询，形成多个reordset结果集的情况下，提供一个离开当前工作的recordset，转移到第二个recordset的方法！

主要是用在多个Select形成的结果集的情况

示例如下：

dim SQL,Rs,arrA,arrB,rowsA,rowsB

'======提取数据库库记录====

（adodb.connection 的连接部分省略,假定CONN.open CONNstr）
SQL=" select Ca1,Ca2,Ca3,Ca4 from TableA " '---------------Selecta
SQL=SQL&" select Cb1,Cb2,Cb3,Cb4,Cb5 from TableB " '-------------Selectb

Set Rs=conn.execute(SQL)
'执行结果将有两个select 的结果集，当前第一个select的recordset处于激活状态

arrA=rs.GetRows '----------取得Selecta Recordset的二维数组

set rs=rs.NextRecordset
'------------最关键的一步，使用Nextrecordset激活下一个recordset

arrB=rs.GetRows '----------再次取得第二个Selectb Recordset的二维数组

Rs.close
set rs=nothing '---------尽早释放数据库对象，关闭记录集
CONN.close
set CONN=Nothing
这样，我们所有关于数据库的数据干干净净的提取完成，用最早的时间释放数据库资源
'-----------//

'========用取得的arrA arrB进行页面处理,显示数据结果======
'注意，arrA=GetRows 后得到的数组，第一维是代表列，第二维代表行

rowsA=ubound(arrA,2) '----提取arrA的第二维下标，相当于取得recordset 的记录行数
rowsB=ubound(arrB,2) '-----同上，提取arrB的第二维下标

'做数据循环：

'第一个select表的循环

ADO也提供更有效率方法来取得资料。GetRows 方法传回一个二维的阵列变数，每一行对应Recordset中的一笔记录，且每一列对应到记录中的栏位。此方法的语法如下：

varArray = rs.GetRows([Rows], [Start], [Fields])

Rows 是要读取记录的数量；如果想要取得Recordset所有记录，可用-1或省略此参数。Start 是指出第一个被读取记录的书籤；也可以是下列列举常数中的一个：0-adBookmarkCurrent（目前记录）、1-adBookmarkFirst（第一笔记录）、或2-adBookmarkLast（最后记录）。

Fields 是可选择的栏位名称阵列，其用来限制要读取的资料量。（也可指定单一栏位名称、单一栏位索引、或者一个栏位索引阵列）。当设定 Rows 为少于Recordset记录笔数时，第一笔未读取的记录变成现行记录。若省略 Rows 参数或设定为-1-adGetRowsRest或大于未读取的笔数时，GetRows 方法会读取所有记录并让Recordset在EOF状态，而不会产生任何错误。

当处理目的变数阵列的资料时，应该记得资料储存方式是有点相反的感觉：阵列中第一维定义Recordset的栏位（资料行），第二维定义Recordset的资料列。以下有个载入Recordset内所有记录某三个栏位的范例：

Dim values As Variant, fldIndex As Integer, recIndex As Integer
values = rs.GetRows(, , Array("LastName", "FirstName", "BirthDate"))
For recIndex = 0 To UBound(values, 2)
    For fldIndex = 0 To UBound(values)
        Print values(fldIndex, recIndex),
    Next
    Print
Next

GetRows 方法通常比一次读一笔记录的迴圈要来得快些，但使用这方法时，必须确定Recordset未包含太多记录；否则，会很容易以一个非常大的变数阵列来填满所有记忆体。基于相同的原因，得小心不要包括任何BLOB（Binary Large Object）或CLOB（Character Large Object）栏位；若如此做的化，应用程式一定会爆掉，特别是对于较大的Recordset而言。最后，记住此方法传回的变数阵列是以0为基底的；传回记录的笔数是UBound(values,2)+1，传回栏位数是UBound(value, 1)+1。

GetString 方法跟 GetRows 是类似的，不过其传回以单一字串形式存在的多重记录。GetString 语法如下：

GetString([Format], [NumRows], [ColDelimiter], [RowDelimiter], [NullExpr])

Format 是结果的格式。GetString 还可能支援更多格式，但是目前唯一支援的格式是2- adClipString，所以实际上没有任何选择。NumRows 是要取得的列数。（使用-1或省略此参数来读取所有剩下的记录。）ColDelimiter 是行的分隔字元（预设为Tab字元）。RowDelimiter 为记录的分隔字元（预设为换行字元）。NullExpr 是用来表示Null栏位的字串（预设为空字串）。文件中说明只有当Format= adClipString时，最后三个参数才可使用，但是这警告没有多大意义，因为（如之前所提）此格式是目前唯一支援的。以下有个例子，其透过 GetString 方法来将资料汇出成以分号分隔的文字档：

Dim i As Long
Open "datafile.txt" For Output As #1
For i = 0 To rs.Fields.Count _ 1          ' Export field names.
    If i > 0 Then Print #1, ";";
    Print #1, rs.Fields(i).Name;
Next
Print #1, ""
rs.MoveFirst                              ' Export data.
Print #1, rs.GetString(, , ";", VBCrLf); ' Don't add an extra CR-LF here.
Close #1

GetString 方法不允许只汇出栏位的子集合，也不允许修改汇出栏位的顺序。如果需要这些额外的功能，应该使用 GetRows 方法且自行建立结果字串。

大家应该都知道 Recordset 有个 GetRows 属性，但是真正使用的不多，我也是最近才用的！汗……

其实这个属性很简单，就是把数据集输出到一个数组中。但是实用性可不小，在这里我举一个例子说明一下GetRows的使用方法，大家举一反三能想到更多的用法！

比如一个分类的表 T_Cate，结构和数据如下：

ID   |   Title   | Intro
-----------------------------------------
1    |   新闻   | 这里是新闻
2    |   教程   | 这里是教程
3    |   下载   | 这里是下载

好了，表建立好了，数据也有了，下面我们就要用到GetRows咯！

程序代码：

Dim Rs_Cate
Dim Arr_Cate
Set Rs_Cate=Conn.ExeCute("Select ID,Title,Intro FROM T_Cate orDER BY ID ASC")
Arr_Cate=Rs_Cate.GetRows
Set Rs_Cate=Nothing

好了表数据已经导出到数组了！下面我们将遍历这个数组

程序代码：

Dim Arr_CateNumS,Arr_CateNumI
Arr_CateNumS=Ubound(Arr_Cate,2) '得到数组中数据的下标
For Arr_CateNumI=0 To Arr_CateNumS
    Response.Write("ID："&Arr_Cate(0,Arr_CateNumI)&" | 标题："&Arr_Cate(1,Arr_CateNumI)&" | 介绍："&Arr_Cate(2,Arr_CateNumI)&"<br>")
Next

呵呵，好了，输出的数据为：
ID：1 | 标题：新闻 | 介绍：这里是新闻
ID：2 | 标题：教程 | 介绍：这里是教程
ID：3 | 标题：下载 | 介绍：这里是下载

引自：http://hi.baidu.com/%B2%E8%B2%A9%CA%BF/blog/item/6cd12922bf99c0ac4723e8c0.html]]> http://www.icediary.net/article.asp?id=268 <![CDATA[javascript获取ckeditor编辑器的值]]> 470280558@qq.com(WindKer) Sat,06 Mar 2010 00:50:02 +0800 http://www.icediary.net/default.asp?id=268 想对于FCK来说，确实比较好用，加载速度也比较快
以下是如果通过JS获取CKeditor编辑器的值，用于表单验证

if(CKEDITOR.instances.content.getData()==""){
alert("内容不能为空！");
return false;
}

content是textarea的name
下次发下CKeditor的配置还有上传配置，我只弄了PHP的上传
]]> http://www.icediary.net/article.asp?id=267 <![CDATA[本站新年风格发布pjv2.8]]> 470280558@qq.com(WindKer) Fri,12 Feb 2010 01:30:25 +0800 http://www.icediary.net/default.asp?id=267 本风格是收集网络之上，应用到本站的。我的PJ版本是v2.8.5.157，不过原来的页面我以前也有做了修改
本风格仅供学习交流之用，已测试浏览器 IE6 IE7 IE8 FIREFOX。
喜欢本风格的朋友的可以加我的QQ交流！！
下载文件 点击下载此文件
]]> http://www.icediary.net/article.asp?id=266 <![CDATA[跟随鼠标移动的时钟]]> 470280558@qq.com(WindKer) Thu,11 Feb 2010 01:48:10 +0800 http://www.icediary.net/default.asp?id=266
HTML代码


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
]]> http://www.icediary.net/article.asp?id=265 <![CDATA[Apache服务器使用.htaccess实现图片防盗链]]> 470280558@qq.com(WindKer) Wed,10 Feb 2010 09:44:53 +0800 http://www.icediary.net/default.asp?id=265
很耗带宽的大体积文件，如图片、视频等。这样造成的后果主要有：增加了服务器的

流量负担，影响我们网站的访问速度。
如果你用的是Apache服务器，那么使用.htaccess文件就可以很方便的进行设置，从

而防止其他站点的用户盗链我们站点的文件。

Apache中的.htaccess文件
.htaccess文件是Apache中相当重要的配置文件，其格式为纯文本，它提供了针对目

录改变配置的方法，通过在一个特定的文档目录中放置一个包含一个或多个指令的文

件，以作用于此目录及其所有子目录。

通过.htaccess文件，可以实现简单地很多在IIS中很繁琐甚至无法实现的功能，如密

码保护、禁止显示目录列表、阻止/允许特定的IP地址、实现网址的301 重定向等等

。

正如上面所说，.htaccess文件将影响其所在的目录及其子目录，因此，如果我们要

保护的内容（此处以防止图片盗链为例，即图片）位于网站内多个目录下，可以考虑

将其放在根目录下；而如果图片有单独的子目录如“/images/”，则只需将其放置在

该目录下（当然也可以放到根目录中）。

需要注意的是，如果通过FTP方式将创建好的.htaccess上传到服务器上，传输模式应

为ASCII而非Binary。上传到服务器后，应将其属性通过 CHMOD修改为644 或“RW-R

–R–”，这样，可以保证服务器能够使用同时无法通过浏览器修改，当

然，.htaccess的可读属性也存在一定的风险：攻击者可通过它找出您要保护的对象

或认证文件位置——解决办法是将认证文件.htpasswd放到网站根目录之外，这样，

便无法通过网络找到它了。

使用.htaccess禁止盗链
通过.htaccess来防止网站的图片、压缩文件、或视频等非Html文件被盗链的方法相

当简单，通过在该文件中加入几句命令即可保护我们宝贵的带宽。例如本站的设置如

下：

RewriteEngine on
RewriteCond %{HTTP_REFERER} !^$ [NC]
RewriteCond %{HTTP_REFERER} !webeta.cn [NC]
RewriteCond %{HTTP_REFERER} !ikuaizi.com [NC]
RewriteCond %{HTTP_REFERER} !zhuaxia.com [NC]
RewriteCond %{HTTP_REFERER} !xianguo.com [NC]
RewriteCond %{HTTP_REFERER} !google.com [NC]
RewriteCond %{HTTP_REFERER} !bloglines.com [NC]
RewriteCond %{HTTP_REFERER} !feedburner.com [NC]
RewriteCond %{HTTP_REFERER} !feedsky.com [NC]
RewriteRule .*\.(gif|jpg)$ http://domain.com/no.png [R,NC,L]

简单的解释一下上述语句：

1、RewriteCond %{HTTP_REFERER} !^$ [NC]

允许空“HTTP_REFERER”的访问，即允许用户在浏览器地址栏中直接输入图片地址时

图片文件的显示。一般而言，这是可选的，不过，建议这么设置，如果强迫必须具有

“HTTP_REFERER”才能访问，可能会带来某些问题，比如说在用户通过代理服务器访

问时。

2、RewriteCond %{HTTP_REFERER} !domain.com [NC]

设置允许访问的HTTP来源，包括我们的站点自身、Google、Baidu、Bloglines、

Feedburner等。

3、RewriteRule .*\.(gif|jpg|png)$ http://domain.com/no.png [R,NC,L]

定义被盗链时替代的图片，让所有盗链 jpg、gif、png 等文件的网页，显示根目录

下的 no.png 文件。注意：替换显示的图片不要放在设置防盗链的目录中，并且该图

片文件体积越小越好。当然你也可以不设置替换图片，而是使用下面的语句即可：

RewriteRule .*\.(gif|jpg|png)$ - [F]

4、说明一下其中的R、NC 和 L

R 就是转向的意思
NC 指的是不区分大小写
L 的作用是指明本次转向到此结束，后续的转向不受先前判断语句的影响

5、防止盗链的文件类型

上例中是 gif、jpg、png，而根据需要，可更改或添加其他文件类型，如rar、mov等

，不同文件扩展名间使用“|”分割。

这样的话，就可以基本做到简单的防止被盗链情况的发生，而且可以尽最大可能的减

少服务器流量的无畏消耗，当然了，如果你不在意这点流量的话，那么可以不用考虑

上述设置啦！

这是我在贴吧上面的看到的教程，转下来，尚未测试能不能行，正常来说是没问题的]]> http://www.icediary.net/article.asp?id=264 <![CDATA[php之foreach语句 ]]> 470280558@qq.com(WindKer) Fri,05 Feb 2010 10:05:18 +0800 http://www.icediary.net/default.asp?id=264
一：

foreach (array_e­xpression as $val) {
     print($val.";");
     ......
}


二：

foreach (array_e­xpression as $key=>$val) {
     print($key."=>".$val.";");
     ......
}


习惯了asp的朋友一定会郁闷了，可能忍不住会说：这啥玩意，看得人云里雾里。没错，我当初也一样，习惯了asp的写法，怎么看这东东怎么不顺眼，以致于有一段时间甚至让我对php产生了一种抵触情绪，不过不用怕，现在我们来将它慢慢的剖开，看看这个语句到底是如何使用的。

先来看第一个语句，这个语句比较简单，可以说跟asp中的for each大同小异，array_e­xpression指的是一个数组表达式，as $val语句将顺序取得该数组的值并保存到$val变量中，此种方法只能取得数组内的值，而不能取得数组的下标索引值。例如：

$myArray=array("1"=>"val1","2"=>"val2","3"=>"val3");
foreach($myArray as $val) {
     print($val." ");
}

其结果会输出：val1 val2 val3


再来看看第二种格式，第二种格式除了能像第一种格式一样得到数组内元素的值外，还能得到元素的索引值，并保存到$key变量中，如果数组的索引值未经过人工设定，则返回系统默认的设定值，
看正面例子：

先看一个简单的一维数组：

$myArray=array("1"=>"val1","2"="val2","3"=>"val3");
foreach($myArray as $key=>$val) {
     print($key."=>".$val.";");
}

该程序将出输出：1=>val1;2=>val2;3=>val3;，接下来我们再来看一个复杂一点的二维数组遍历，程序如下：

$myArray=array(
     "1"=>array("11"=>"val11","12"=>"val12","13"=>"val13"),
     "2"=>array("21"=>"val21","22"=>"val22","23"=>"val23"),
     "3"=>array("31"=>"val31","32"=>"val32","33"=>"val33")
);
print("<ul>");
foreach($myArray as $key=>$val) {
     print("<li>".$key."</li>");
     if (is_array($val)) {     //判断$val的值是否是一个数组，如果是，则进入下层遍历
         print("<ul>");
        foreach($val as $key=>$val) {
             print("<li>".$key."=>".$val."</li>");
         }
         print("</ul>");
     }
}
print("</ul>");

输出结果：

1
11=>val11
12=>val12
13=>val13
2
21=>val21
22=>val22
23=>val23
3
31=>val31
32=>val32
33=>val33
<ul> 和 <li>是 标签，作用是显示个实心小圆点和空心小圆点。
由于上面的是一个二维数组，在第一次遍历后所得到的$val值将是一个数组，所以我在遍历中加了一个判断，以便进行二层数组遍历。大家仔细看下，就能看懂，很简单的，不要被上面那些乱七八糟的字符所吓到了，呵呵。如果有条件，你还可以把它们复制到本地phpserver上运行下，看看效果，再分析，这样就更容易明白了。

在php中除了foreach，还有一些函数也可以用来方便的操作数组，如list()，each()等。

本文转自：http://justnow2008.blog.sohu.com/82408835.html]]> http://www.icediary.net/article.asp?id=263 <![CDATA[IE6下背景不透明的解决方法]]> 470280558@qq.com(WindKer) Wed,03 Feb 2010 08:39:49 +0800 http://www.icediary.net/default.asp?id=263
但目前IE中对于插入的透明背景的.png的图片是不能正常显示的。IE会自动给".png"格式的图片加个灰色背景。

解决这个的方法是增加javascript。具体方法如下：

把下面的代码放在head区就可以解决问题了。

程序代码 程序代码

<script language="javascript">
function correctPNG()  
{
for(var i=0; i<document.images.length; i++)
{
  var img = document.images[i]
  var imgName = img.src.toUpperCase()
  if (imgName.substring(imgName.length-3, imgName.length) == "PNG")
  {
   var imgID = (img.id) ? "id='" + img.id + "' " : ""
   var imgClass = (img.className) ? "class='" + img.className + "' " : ""
   var imgTitle = (img.title) ? "title='" + img.title + "' " : "title='" + img.alt + "' "
   var imgStyle = "display:inline-block;" + img.style.cssText  
   if (img.align == "left") imgStyle = "float:left;" + imgStyle
   if (img.align == "right") imgStyle = "float:right;" + imgStyle
   if (img.parentElement.href) imgStyle = "cursor:hand;" + imgStyle  
   var strNewHTML = "<span " + imgID + imgClass + imgTitle
   + " style=\"" + "width:" + img.width + "px; height:" + img.height + "px;" + imgStyle + ";"
  + "filter:progid:DXImageTransform.Microsoft.AlphaImageLoader"
   + "(src=\'" + img.src + "\', sizingMethod='scale');\"></span>"  
   img.outerHTML = strNewHTML
   i = i-1
  }
}
}
window.attachEvent("onload", correctPNG);
</script>


在页面内加上以上代码即可]]> http://www.icediary.net/article.asp?id=262 <![CDATA[纯div+css制作的弹出菜单]]> 470280558@qq.com(AnyTrey) Thu,28 Jan 2010 10:36:45 +0800 http://www.icediary.net/default.asp?id=262
HTML代码


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]


备注：
IE6下不支持li:hover属性
if ie 说明:
1. <!--[if !IE]> <!--> 除IE外都可识别 <!-- <![endif]-->
2. <!--[if IE]> 所有的IE可识别 <![endif]-->
3. <!--[if IE 5.0]> 只有IE5.0可以识别 <![endif]-->
4. <!--[if IE 5]> 仅IE5.0与IE5.5可以识别 <![endif]-->
5. <!--[if gt IE 5.0]> IE5.0以及IE5.0以上版本都可以识别 <![endif]-->
6. <!--[if IE 6]> 仅IE6可识别 <![endif]-->
7. <!--[if lt IE 6]> IE6以及IE6以下版本可识别 <![endif]-->
8. <!--[if gte IE 6]> IE6以及IE6以上版本可识别 <![endif]-->
9. <!--[if IE 7]> 仅IE7可识别 <![endif]-->
10. <!--[if lt IE 7]> IE7以及IE7以下版本可识别 <![endif]-->
11. <!--[if gte IE 7]> IE7以及IE7以上版本可识别 <![endif]-->
]]>