<![CDATA[网站制作博客 - 程序]]> http://www.huison.cn/blog/ zh-cn PBlog2 v2.4 网站制作博客 http://www.huison.cn/blog/images/logos.gif http://www.huison.cn/blog/ 网站制作博客 http://www.huison.cn/blog/default.asp?id=286 <![CDATA[PHP 判断/移除 BOM(UTF-8)]]> hoogl@126.com(Huison) Thu,22 Oct 2009 15:51:58 +0800 http://www.huison.cn/blog/default.asp?id=286
BOM 的內容可以表示 UNICODE 是哪種編碼, 但是在接收到的檔案, 要拆解後寫入 DB, 看到 BOM 就覺得有點 ooxx.

在 utf8_encode 看到兩段程式可以來測試 寫入/移除 BOM.

將寫入的檔案內容前加 BOM
<?php
function writeUTF8File($filename,$content)
{
    $f = fopen($filename, 'w');
    fwrite($f, pack("CCC", 0xef,0xbb,0xbf));
    fwrite($f,$content);
    fclose($f);
}
?>

移除 BOM function
<?php
function removeBOM($str = '')
{
   if (substr($str, 0,3) == pack("CCC",0xef,0xbb,0xbf)) {
       $str = substr($str, 3);
   }
   return $str;
}
?>

由此上述 BOM = pack("CCC",0xef,0xbb,0xbf), 所以移除 BOM 的寫法可用上面的 removeBOM function 或 下述其一:
str_replace("\xef\xbb\xbf", '', $bom_content);
preg_replace("/^\xef\xbb\xbf/", '', $bom_content);

另外看到 判斷此字串是不是 UTF-8 的 function:
function isUTF8($string)
{
    return (utf8_encode(utf8_decode($string)) == $string);
}]]> http://www.huison.cn/blog/default.asp?id=284 <![CDATA[asp统计字符串中每个字符出现的次数]]> hoogl@126.com(Huison) Mon,28 Sep 2009 00:50:21 +0800 http://www.huison.cn/blog/default.asp?id=284 用户在文本框中任意输入字符和数字，当用户单击命令按钮时，统计各个字母和数字出现的次数，并将其在浏览器中输出。

想起之前看过一篇相关的文章，自己无聊就写了一下。
调用方法：

统计结果：
a:2
2:1
3:2
b:1]]> http://www.huison.cn/blog/default.asp?id=278 <![CDATA[(转)ASP 中常见的错误 80004005 信息]]> hoogl@126.com(Fishthink) Thu,18 Jun 2009 09:03:14 +0800 http://www.huison.cn/blog/default.asp?id=278 错误信息
Microsoft JET Database Engine 错误 '80004005' 未指定的错误 （Provider 错误）

原因：
权限问题，系统缓存目录权限不足
解决方法：
把系统盘如 C:\WINNT\Temp 目录权限加上 Everyone 可读取权限

错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access 97 Driver] The Microsoft Jet database
engine cannot open the file '(unknown)'. It is already opened exclusively
by another user, or you need permission to view its data.

原因：
这个错误发生在当IIS使用匿名帐号(通常是IUSR)时,该帐号在NT中对数据库所在的目录
没有正确的权限.（这就是为什么在Win95和PWS下没问题，因为win95根本就没有目录权限这一说）
检查文件和目录的权限. 确定你能够在该目录中有能够新建和删除临时文件的权限。
这些临时文件其实是数据库建立在同一个目录下的文件, 但是要注意的是，有可能这些文件
也可能建立在别的目录，例如 /Winnt.

使用NT的文件监视程序监视文件失败时到底是访问了什么目录。
这个NT的文件监视程序可以在这个地方下载 http://www.sysinternals.com.

如果你对数据库使用了一个网络地址，例如映射地址，就要检查一下共享文件和目录的权限，

还要检查一下数据源文件（DSN）是否被别的程序标志成为正在使用中，
这些别的程序一般是Visual InterDev，关闭任何一个InterDev中的正打开和数据库连接的项目。

这个错误还可能发生在这种情况：如果在DSN中使用了一个UNC路径（就是通用命名协议），请改用
本地路径进行测试，因为如果对本地数据库使用UNC也可能出错。
还可能发生在这种情况，如果服务器要访问Access中的一个表，而这个表却联接在一个网络服务器上。

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access 97 Driver] Couldn't use '(unknown)'; file
already in use.

原因：
多人使用时数据库被锁定。

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default
driver specified.

原因：
最可能的原因是 ConnectString 是一个在 global.asa 中初始化的 Session 变量 ，但是 global.asa
却没有正常工作。解决办法是，检查赋值时是否正确：（在你的asp中加入下面的代码）

<%= "'auth_user' is " & request.servervariables("auth_user")%>
<P>
<%= "'auth_type' is " & request.servervariables("auth_type")%>
<P>
<%= "connection string is " & session("your_connectionstring")%>
<P>

还有一个原因就是你在你的 ConnectString 中加入了多余的空格，例如
DSN = MyDSN; Database = Pubs;
试试改成下面这个样子：
DSN=MyDSN;Database=Pubs;

如果是 global.asa 还没有工作，检查该文件是否在运用程序的根目录中,或者是虚拟目录的根目录中。

还有可能错误出现的原因是 DSN 名称没找着，这可以采用我提供的 id=36767 的办法解决。
最后是检查是否安装了最新的驱动程序，既是否是最新的 MDAC 版本。

错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not ??

原因：
这个错误有可能是出现在你的计算机上软件安装（或则反安装）的顺序上。
如果ODBC的版本不一致的话，就会发生该错误。
解决办法是安装最新版本的MDAC

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Access 97 ODBC driver Driver]General error Unable to open
registry key 'DriverId'.

原因：
这个错误发生在爱从注册表中读取数值的时候。 使用regedit32.exe检查你的注册表的权限。
你也可以使用NT中的注册表监视程序（NTRegMon）来看读取失败信息。 该程序到这找：http://www.sysinternals.com

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][dbnmpntw]ConnectionOpen (CreateFile()).

原因：
两个原因：当一个数据库中包含有分别在不用机器上的许可关系时，
这也可能发生在同一台机器上，当你给一个关系设置了UNC路径，而另一个关系却是本地路径。
错误原因是：
当用户使用IIS匿名帐号登录后，对本地这台机器而言他是有权的，但是对于一个UNC路径的机器，
另外这台机器是不会认为你当前匿名登录的帐号在它那上面也是合法的。
这样它就不允许你访问它上面的资源，导致错误。

两个解决办法：
1. 在IIS工具中，改变IIS匿名帐号成另外一个基于域的帐号。（也就是不使用匿名登录）
2. 或则在那台你要访问资源的机器上也创建一个和当前匿名帐号同样的帐号，使用同样的密码。

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005' Microsoft][ODBC
Microsoft SQL Driver] Logon Failed()

原因：
该错误是由 SQL Server 产生的，当它不接受或则不能够认识这个登录帐号的时候，或者没有使用管理员身份登录，
也可能是在NT中没有SQL影射帐号造成的。

使用系统管理员帐号(SA)登录，一般密码应该为空.注意，这时必须使用 CoonectString 而不能够使用DSN文件。
因为DSN中没有保存用户名和密码。
检查NT是否给SQL映射了帐号。

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][SQL Server] Login failed- User: Reason:
Not defined as a valid user of a trusted SQL Server connection.

原因：
原因同上。
试试这个办法：在 SQL Server 的 Enterprise Manager 中，选择 Server/SQL Server/Configure[ASCII
133]/Security Options/Standard.
如果是运行在 IIS4 中，取消选择该项目的 Password Synchronization 选项。

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access 97 Driver] Couldn't lock file.

原因：
也许是没有正确的权限生成Access数据库的锁定文件(.ldb)
默认时，该文件和你的数据库是同一个目录的。
给匿名帐号全权访问数据库共享目录的权限。

有时是因为文件是因为共享时有意使用了只读的权限限制。试试使用下面的代码。
Set Conn = Server.CreateObject("ADODB.Connection"
Conn.Mode = adModeShareDenyWrite '8

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access 97 Driver] '(unknown)' isn't a valid
path. Make sure that the path name is spelled correctly and that you are
connected to the server on which the file resides.

原因：
路径非法。最可能发生在当 Global.asa 和 CoonecntString 被使用到另外一台机器上的时候。

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][SQL Server] The query and the views in
it exceed the limit of 16 tables.

原因：
查询太复杂了，对查询有限制。

错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][DBMSSOCN] General network error. Check
your network document

原因：
当装有 SQL Server 的机器改名的时候。但是 DSN 还使用了原来的机器名。]]> http://www.huison.cn/blog/default.asp?id=275 <![CDATA[使用Adodb.Stream下载大文件的问题]]> hoogl@126.com(Fishthink) Wed,06 May 2009 18:00:52 +0800 http://www.huison.cn/blog/default.asp?id=275
程序代码 程序代码
Response.ContentType = "application/octet-stream"
response.AddHeader "Content-Disposition","attachment;filename=" & objRs("Attach_Name")& filetype
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1
Stream.Open
Stream.LoadFromFile server.mappath(objRs("Attach_path"))
Response.BinaryWrite Stream.Read
Stream.Close
Set Stream = Nothing

当下载文件小于4M时没问题，大于4M时出错，提示 ：

Response对象错误 'ASP 0251 : 80004005'    
    
超过响应缓冲区限制

问题出在IIS的配制中AspBufferingLimit只有4M，所以有如下几种解决办法：

1、修改IIS的配制

停止IIS服务，然后用记事本修改C:\WINDOWS\system32\inetsrv\MetaBase.xml 中的:  
   AspBufferingLimit="4194304"    //即默认4M  
  改为:  
   AspBufferingLimit="8388608"    //改为8M或更多，自己决定

2、如果不想修改IIS的默认配制就要修改代码了。
程序代码 程序代码
Response.Buffer=False ‘将Response.Buffer设为否
Response.ContentType = "application/octet-stream"
response.AddHeader "Content-Disposition","attachment;filename=" & objRs("Attach_Name")& filetype
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1
Stream.Open
Stream.LoadFromFile server.mappath(objRs("Attach_path"))
offset = 0
ChunkSize = 2048*1024 ‘ChunkSize小于IIS配制文件中的AspBufferingLimit项所设置的大小
TotalSize = Stream.Size
while offset < TotalSize
if (TotalSize - offset < ChunkSize) then
ChunkSize = TotalSize – offset
end if
strChunk = Stream.Read(ChunkSize)
Response.BinaryWrite strChunk
offset = offset + ChunkSize
wend
Stream.Close

或者
程序代码 程序代码
Response.Buffer= true ‘使用缓冲区
Response.Clear
Response.ContentType = "application/octet-stream"
response.AddHeader "Content-Disposition","attachment;filename=" & objRs("Attach_Name")& filetype
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1
Stream.Open
Stream.LoadFromFile server.mappath(objRs("Attach_path"))
offset = 0
ChunkSize = 2048*1024
TotalSize = Stream.Size
while offset < TotalSize
if (TotalSize - offset < ChunkSize) then
ChunkSize = TotalSize – offset
end if
strChunk = Stream.Read(ChunkSize)
Response.BinaryWrite strChunk
response.flush ‘这句很重要，它把缓冲区的数据据推出去
offset = offset + ChunkSize
wend
Stream.Close
]]> http://www.huison.cn/blog/default.asp?id=260 <![CDATA[session 丢失?没有了?]]> hoogl@126.com(Huison) Tue,07 Oct 2008 09:12:42 +0800 http://www.huison.cn/blog/default.asp?id=260
1. 检查是否超时,默认是20分钟,设置的方法是Session.TimeOut=30;

2. 检查代码有无Session.Abandon()之类的。

3. ASP.NET中使用了ACCESS数据库，而且数据库是放在bin目录中的。解决方法是不要放会更新的文件在BIN目录中。

4. 从同一个页面传到另一个页面才能延续同一个session,也就是说session不可跨域,同时客户端一关闭浏览器或一关闭浏览页 Session也消失了,再次访问时又会创建新的Session 但还会在服务器上存活等待超时,只是调用不到了.  另外比如在第一个页面置了SESSION，然后REDIRECT去第二个页面。解决方法是在REDIRECT中设置endResponse为FALSE。

5. Iframe丢Session的原因：session是客户端和服务器端共同认证的，客户端存储标识，通过附加在页面的头发送给服务器端，服务器进行识别，如果符合条件就可以获得相应的session操作权。

但如果页面是来自框架的，而框架的父页和框架不是一个站点的话，客户端默认是禁止向页面附加头信息的，这样服务器端就无法识别客户端框架里面的页面，自然不能操作Session。

解决办法: Response.AddHeader("P3P", "CP=CAO PSA OUR")' 或者在Window服务中将ASP.NET State Service 启动。

6. 有些杀病毒软件会去扫描您的Web.Config文件，那时Session肯定掉，这是微软的说法。解决办法: 使杀病毒软件屏蔽扫描Web.Config文件(程序运行时自己也不要去编辑它)

7. Asp.net 默认配置下，Session莫名丢失的原因及解决办法

(原文http://www.cnblogs.com/supersand/archive/2006/05/20/404919.html)

正常操作情况下Session会无故丢失。因为程序是在不停的被操作，排除Session超时的可能。另外，Session超时时间被设定成60分钟，不会这么快就超时的。

这次到CSDN上搜了一下帖子，发现好多人在讨论这个问题，然后我又google了一下，发现微软网站上也有类似的内容。

现在我就把原因和解决办法写出来。

原因：

由于Asp.net程序是默认配置，所以Web.Config文件中关于Session的设定如下：
<sessionState mode='InProc' stateConnectionString='tcpip=127.0.0.1:42424' sqlConnectionString='data source=127.0.0.1;Trusted_Connection=yes' cookieless='true' timeout='60'/>

我们会发现sessionState标签中有个属性mode，它可以有3种取值：InProc、StateServer?SQLServer（大小写敏感）。默认情况下是InProc，也就是将Session保存在进程内（IIS5是aspnet_wp.exe，而IIS6是W3wp.exe），这个进程不稳定，在某些事件发生时，进程会重起，所以造成了存储在该进程内的Session丢失。

哪些情况下该进程会重起呢？微软的一篇文章告诉了我们：
1、配置文件中processModel标签的memoryLimit属性
2、Global.asax或者Web.config文件被更改
3、Bin文件夹中的Web程序（DLL）被修改
4、杀毒软件扫描了一些.config文件。
更多的信息请参考PRB: Session variables are lost intermittently in ASP.NET applications

解决办法：

前面说到的sessionState标签中mode属性可以有三个取值，除了InProc之外，还可以为StateServer、SQLServer。这两种存Session的方法都是进程外的，所以当aspnet_wp.exe重起的时候，不会影响到Session。

现在请将mode设定为StateServer。StateServer是本机的一个服务，可以在系统服务里看到服务名为ASP.NET State Service的服务，默认情况是不启动的。当我们设定mode为StateServer之后，请手工将该服务启动。

这样，我们就能利用本机的StateService来存储Session了，除非电脑重启或者StateService崩掉，否则Session是不会丢的（因Session超时被丢弃是正常的）。

除此之外，我们还可以将Session通过其他电脑的StateService来保存。具体的修改是这样的。同样还在sessionState标签中，有个stateConnectionString='tcpip=127.0.0.1:42424'属性，其中有个ip地址，默认为本机（127.0.0.1），你可以将其改成你所知的运行了StateService服务的电脑IP，这样就可以实现位于不同电脑上的Asp.net程序互通Session了。

如果你有更高的要求，需要在服务期重启时Session也不丢失，可以考虑将mode设定成SQLServer，同样需要修改sqlConnectionString属性。关于使用SQLServer保存Session的操作，请访问这里。

在使用StateServer或者SQLServer存储Session时，所有需要保存到Session的对象除了基本数据类型（默认的数据类型，如int、string等）外，都必须序列化。只需将[Serializable]标签放到要序列化的类前就可以了。
如：
[Serializable]
public class MyClass
{
    ......
}

原帖位置 http://search.csdn.net/Expert/topic/1671/1671641.xml?temp=.240597

tenghongc(洋锅)：
session其时是一种特殊的cookie
单独用不会出问题，
但是切记不要和cookie混用！！！
请检查你的站点里有没用过cookie!
如果有的话，请你全部用session或者cookie
我以前也碰到这种情况！
折磨了我好一段时间！
后来在书上无意间看到说session和cookie混用不一定会出问题！
但有时cookie会影响session的传递！
因为session是利用cookie技术来临时保存用户数据的！
我后来只用session，不用cookie就好了！
你可以试试看！

cboy2003(三碗（cpubook.com))
session变量“丢失”的问题

谈到了那么多的概念，终于可以说道实质性的问题了，session对象是web应用程序中最重要的对像之一，正是它的存
在，使得我们可以在跨网页间传送数据，分辨不同用户成为可能。我们只要将变量制定给session即可实现。这一过程即
session("temp")=temp即可。但最近不少网友都有这样的疑问，就是当我们在一个网页间设定了一个session变量后，到另
一个网页，却消失了。这是什么样的原因呢。
根据上面的概念，我们可以将其原因，和处理办法总结如下。
1：asp网页跨了多个web应用程序：
这个原因就是你的另一个网页可能是另一个web应用程序。以前，一些资料过分的强调了会话变量的单一性，好像一个
用户连接到一个web主机之后，只可能创建一个会话变量，这是不对的，分辨会话变量的依据正是我们上面所提到的web应
用程序范围，而不是单独根据用户而建立的，你可以试一试下面的一段代码。
test.asp
<% @ language=vbscript %>
<%
session("temp")="temp"
Response.Write session.SessionID 'sessionID用来分辨一个应用程序间的单独客户。
%>

将test.asp分别拷贝到两个不同的虚拟目录下。你就可以看到，他是两个不同的值了。所以，可能你的网页跨了不同的应
用程序。
当然，这种情况对于初学者可能碰到，对于有经验的人可能犯的是这样的错误，即他们本身为一个根目录，但在制定虚
拟目录时将其子目录又设为一个虚拟目录了，就如同我们上面提到的第二个表结构一样。这样他同样成为了两个不同的web
应用程序。也就不难解释为什么会出错了。

2：可能是启动了多个同一应用程序。
第一种情况很好发现，也容易改正，但这第二种情况就不容易发现，也较难改正。这里我们引入一个另一个的概念。多
个同一应用程序共存，（好长呀，关键是微软的概念我忘了，这个是我自己起的。呵呵！），它的意思从这个定义上很好
理解，就是对于同一个应用程序。同一时间可以在内存中存在多个。如我们常见的acdsee.exe,你可以通过点击启动多个
acdsee.exe。而另外一种则不能，我们就不说它的定义了（如果说的话，就是相同应用程序不共存，呵呵！）在同一时间
内，如果已经启动了一个应用程序，则不能再启动相同的应用的应用程序了。如foxmail.exe，当你启动了一个
foxmail.exe后，就只可能在内存中存在一个foxmail.如果你在启动，则不会再开一个foxmail窗口了。
而我们的ie属于前者，你可以通过点击ie，启动多个ie应用程序。此时，我们做下面另一个测试。你将上面的代码
test.asp放入一个虚拟目录中。然后，你点击ie启动（注意：是通过点击Ie启动，不是按CTRL+N，也不是在一个ie窗口点
击文件，重新打开一个窗口）此时，你可以发现，他们虽然是同一个地址，同一个用户，但sessionID还是不同的，当然，
你还可以建另一个文件。如
test2.asp
<% @ language=vbscript %>
<%
response.write session("temp")
%>
这时，你在另一个ie窗口下，你就会发现session("temp")为空，也就是说，我们刚才明明在test.asp中附了值，而且
test2.asp和test.asp在同一虚拟目录下，但session("temp")却丢失了。原来，相对于相同的asp应用程序。不同的ie相对
的却是不同的asp应用程序。（有点像绕口令难懂是吧。）不过，我们已经明白了它的起因，相信不难解决他。
这里还要注意的是，我们刚才一再提到的是通过点击Ie，而不是通过按CTRL+N，也不是在一个ie窗口点击文件，重新
打开一个窗口，这里要说明的是如果你通过在一个ie窗口打开的窗口，它属于派生窗口，而不是共生窗口，就是说，此时
的另一个窗口属于和其上一个窗口是继承关系，属于同一个应用程序范围。
3：连接不当
其实，大部分的网友碰到的问题是通过点击页面中的连接新开窗口而发现session变量丢失的。他同按ctrl+N新开窗口
的意义相同。但此时为什么会出问题呢？我们来分析一下它的连接方式。可能为<a href="xx.asp" traget=_blank>click
me </a>通过这样点击的连接同ctrl+n 是相同的，应该不会出问题。还有一种连接式通过脚本控制的如
window.open "xx.asp","name","toolbar=no"这样的代码，他就可能发生这样的问题。如果通过点击ie开了多个共生窗口
（许多网友为了节省时间，他们喜欢开多个窗口。比如我。）。就是他可能在新开的窗口中如果含有相同的name的窗口。
则此时，就可能发生连接不当导致session丢失，其实，原因还是通第二种一样。还有一种更极端的方式开新窗口，通过用
document.write 在一个脚本中动态写出新的页面，而该页面的url是不存在的，这样就更可能出问题了，应为session正是
通过url,http来追踪的。所以如果其页面地址是动态的话。则session就根本无法追踪了。

相信通过以上例子的分析，可能会解释你在应用session中出现的大部分问题。但不是全部（如过你禁用cookie的话，
呵呵！）但是，如果你将以上的概念都弄懂，则可以解决你在应用session中出现的所用问题了。]]> http://www.huison.cn/blog/default.asp?id=250 <![CDATA[ASP常用函数:HTMLFilter()]]> hoogl@126.com(Huison) Wed,03 Sep 2008 22:53:16 +0800 http://www.huison.cn/blog/default.asp?id=250 <% '过滤HTML各种标签样式脚本 '来源:http://jorkin.reallydo.com/article.asp?id=521 '需要RegReplace函数: http://jorkin.reallydo.com/article.asp?id=345 Function HTMLFilter(sHTML, sFilters)     If sHTML & "" = "" Then Exit Function     If sFilters & "" = "" Then sFilters = "SCRIPT,OBJECT"     Dim aFilters      aFilters = Split(UCase(sFilters), ",")     For i = 0 To UBound(aFilters)         Select Case UCase(Trim(aFilters(i)))             Case "JORKIN"                 Do While InStr(sHTML, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;") >0                     sHTML = Replace(sHTML, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", "&nbsp;&nbsp;&nbsp;&nbsp;")                 Loop             Case "SCRIPT"                 '// 去除脚本<scr ipt></scr ipt>及 onload 等                 sHTML = RegReplace(sHTML, "<SCRIPT[\s\S]*?</SCRIPT>", "")                 sHTML = RegReplace(sHTML, "\s[on].+?=\s+?([\""|\'])(.*?)\1", "")                 sHTML = RegReplace(sHTML, "(JAVASCRIPT|JSCRIPT|VBSCRIPT|VBS):", "$1：")             Case "FIXIMG"                 sHTML = RegReplace(sHTML, "<IMG.*?\sSRC=([^\""\'\s][^\""\'\s>]*).*?>", "<img src=$2 border=0>")                 sHTML = RegReplace(sHTML, "<IMG.*SRC=([\""\']?)(.\1\S+).*?>", "<img src=$2 border=0>")             Case "TABLE"                 '// 去除表格<table><tr><td><th>                 sHTML = RegReplace(sHTML, "</?TABLE[^>]*>", "")                 sHTML = RegReplace(sHTML, "</?TBODY[^>]*>", "")                 sHTML = RegReplace(sHTML, "<(/?)TR[^>]*>", "<$1p>")                 sHTML = RegReplace(sHTML, "</?TH[^>]*>", " ")                 sHTML = RegReplace(sHTML, "</?TD[^>]*>", " ")             Case "CLASS"                 '// 去除样式类class=""                 sHTML = RegReplace(sHTML, "(<[^>]+) CLASS=[^ |^>]+([^>]*>)", "$1 $2")                 sHTML = RegReplace(sHTML, "\sCLASS\s*?=\s*?([\""|\'])(.*?)\1", "")             Case "STYLE"                 '// 去除样式style=""                 sHTML = RegReplace(sHTML, "(<[^>]+) STYLE=[^ |^>]+([^>]*>)", "$1 $2")                 sHTML = RegReplace(sHTML, "\sSTYLE\s*?=\s*?([\""|\'])(.*?)\1", "")             Case "XML"                 '// 去除XML<?xml>                 sHTML = RegReplace(sHTML, "<?XML[^>]*>", "")             Case "NAMESPACE"                 '// 去除命名空间<o:p></o:p>                 sHTML = RegReplace(sHTML, "<\/?[a-z]+:[^>]*>", "")             Case "FONT"                 '// 去除字体<font></font>                 sHTML = RegReplace(sHTML, "</?FONT[^>]*>", "")             Case "MARQUEE"                 '// 去除字幕<marquee></marquee>                 sHTML = RegReplace(sHTML, "</?MARQUEE[^>]*>", "")             Case "OBJECT"                 '// 去除对象<object><param><embed></object>                 sHTML = RegReplace(sHTML, "</?OBJECT[^>]*>", "")                 sHTML = RegReplace(sHTML, "</?PARAM[^>]*>", "")                 sHTML = RegReplace(sHTML, "</?EMBED[^>]*>", "")             Case "COMMENT"                 '// 去除HTML注释, 会处理<script>和<style>内注释, 慎用                 sHTML = RegReplace(sHTML, "<!--[\s\S]*?-->", "")             Case Else                 '// 去除其它标签                 sHTML = RegReplace(sHTML, "</?" & aFilters(i) & "[^>]*?>", "")         End Select     Next     HTMLFilter = sHTML End Function '功能:使用正则表示式对字符串进行替换 '来源:http://jorkin.reallydo.com/article.asp?id=345 Function RegReplace(Str, PatternStr, RepStr)     Dim NewStr, regEx     NewStr = Str     If IsNull(NewStr) Then         RegReplace = ""         Exit Function     End If     Set regEx = New RegExp     regEx.IgnoreCase = True     regEx.Global = True     regEx.Pattern = PatternStr     NewStr = regEx.Replace(NewStr, RepStr)     RegReplace = NewStr End Function %>]]> http://www.huison.cn/blog/default.asp?id=237 <![CDATA[生活名片2.1版发布]]> hoogl@126.com(Huison) Mon,21 Jul 2008 09:51:42 +0800 http://www.huison.cn/blog/default.asp?id=237 这两天比较闲,就生活名片网友反馈比较多的问题进行了一些修正:

新增config.asp配置页面;
可管理城市分类;
可管理项目类别;
设置信息是否需要审核;
*设置默认城市和类别;
管理用户名和密码;
*前台标识语字数增最多至100字,可滚动显示;
*联系方式的更正;
*后台新增批量删除功能;
*增加分页功能;
*数据库升级请在服务器端运行db_update.asp文件;
*整站文件结构调整;

带*号均为此次升级的内容,其实是2.0基础上升级的.

即将更新的内容有:
后台推荐功能;
前台信息搜索功能;

本人美工不是很好,如有朋友肯帮助美化,将感激不尽:)
做精简的程序,做简单的生活名片!

下载地址:http://down.chinaz.com/soft/23282.htm]]> http://www.huison.cn/blog/default.asp?id=231 <![CDATA[PHP学习中常用到的函数]]> hoogl@126.com(Huison) Wed,25 Jun 2008 15:48:28 +0800 http://www.huison.cn/blog/default.asp?id=231 sesion_unregister(xxx),是把xxx 名的session变量从session文件中清楚
session_unset().是把session文件清空，也就是N个session_unregister(???)的调用
session_destory()，最彻底了，是直接删除session文件了

addslashes — 使用反斜线引用字符串
返回字符串，该字符串为了数据库查询语句等的需要在某些字符前加上了反斜线。这些字符是单引号（'）、双引号（"）、反斜线（\）与 NUL（NULL 字符）。
stripslashes 与其相反.

实例掌握PHP异常处理
用 try...catch
/* PDO连接mysql数据库,如果没看过PDO，先看下PDO的构造函数，要不跳过例1看例2 */
$dsn = 'mysql:host=localhost;dbname=testdb';
$user = 'dbuser';
$password = 'dbpass';
try {
$dbh = new PDO($dsn, $user, $password); //创建数据库连接对象容易出现异常
echo '如果上面出现异常就不能显示我了';
} catch (PDOException $e) {
echo 'Connection failed: ' . $e-＞__toString();
}
?＞
]]> http://www.huison.cn/blog/default.asp?id=230 <![CDATA[PHP的局部变量和全局变量]]> hoogl@126.com(Huison) Wed,25 Jun 2008 10:01:28 +0800 http://www.huison.cn/blog/default.asp?id=230 在 PHP 的程序执行时，系统会在内存中保留一块全局变量的区域。实际运用时，可以透过 $GLOBALS["变量名称"] 将需要的变量取出。在用户自定的函数或程序中，就可以用 $GLOBALS 数组取出需要的变量。当然别忘了 PHP 的变量有分大小写，搞错了大小写可是叫一百年，变量也不会出来。

$GLOBALS 数组是 PHP 程序中比较特殊的变量，不必定义，系统会自动匹配相关的变量在里面。在函数中，也不必管 $GLOBALS 数组是否已经做全局定义，就可以直接使用了。

和 $GLOBALS 变量类似的还有 $php_errormsg 字符串变量。若 PHP 的配置文件 (php.ini/php3.ini) 中的 track_errors 选项打开的话，会有全局变量 $php_errormsg 可以看到错误的信息。

在 PHP 中，全局变量的有效范围 (scope) 仅限于主要程序中，不会影响到函数中同名的变量，也就是全局变量与局部变量互不侵犯。若要变量能通透到函数中，就要用到 $GLOBALS 数组或是使用 global 定义。

例如，在自行开发的函数中，要取得目前执行 PHP 程序页面的文件名，就可以用 $GLOBALS["PHP_SELF"] 取出 $PHP_SELF 的值。

<?php
// 本程序使用 $GLOBALS 数组
function myfunc() {
echo $GLOBALS["PHP_SELF"];
}
myfunc();
?>


下面是错误的示范，请勿模仿，上面的才是正确的示范。

<?php
// 这是错误的示范
function errfunc() {
echo $PHP_SELF;
}
errfunc();
?>


但是这个错误的示范要是改成下例就没问题了

<?php
// 本程序使用全局定义
function myfunc() {
global $PHP_SELF;
echo $PHP_SELF;
}
myfunc();
?>


在变量前面加上 global 的名称，就是定义该变量为全局变量。用这种方式，就不需使用 $GLOBALS 数组，也能让变量进入自行开发的函数中。

接下来先看静态变量的例子

<?php
// 静态变量的例子
function myfunc() {
static $mystr;
$mystr.="哈";
echo $mystr."<br>n";
}
myfunc(); // 哈
myfunc(); // 哈哈
myfunc(); // 哈哈哈
?>


函数在执行时所产生的变量，在函数结束时就消失了，有时因为程序的需要，函数在循环中，当不希望变量在每次执行完函数就消失的话，静态变量 (static variable) 就派上用场了。上例中，使用 $mystr 变量之前，先在变量前面加上 static，即表示变量 $mystr 是静态变量，当每次执行 myfunc() 函数时，$mystr 的值会一直增加，每执行一次就多一个哈字。若将 static 的静态变量定义拿掉，就没办法累加哈字了。

<?php
// 不是静态变量的例子 (错误的)
function myfunc() {
$mystr.="哈";
echo $mystr."<br>n";
}
myfunc(); // 哈
myfunc(); // 哈
myfunc(); // 哈
?>


再看一个比较实际的例子，它是处理表格的颜色，让隔行的颜色不同。

<?php
function TdBackColor() {
static $ColorStr;
if ($ColorStr=="808080") {
$ColorStr="c0c0c0";
} else {
$ColorStr="808080";
}
return($ColorStr);
}
echo "<table border=1>n";
for ($i=0; $i<10; $i++) {
$ColorStr=TdBackColor();
echo "<tr><td bgcolor=".$ColorStr.">这是第".$i."行</td></tr>n";
}
echo "</table>";
?>


PHP 的变量使用技巧上，最令人觉得不可思议的则是变量的变量 (variable variable)。这是充分利用 PHP 特性玩出的特殊技巧

<?php
$a = "Hello";
$$a = "world";
echo "$a, $hello"; // Hello, world
echo "$a, ${$a}"; // 注意:在echo语句中$$x被写成${$x}，这是让PHP知道你要输出的是变量的变量而不是一个$字符与$x变量
?>

mdean@kcnet.com 举出一个更绝的例子 (24-Apr-1999)，他称为变量的函数 (variable function)

<?php
function myCallbackFunction()
{
print("Hello from callback");
}

function myFunction($callback)
{
$callback();
}
// call to myFunction passing callback
// function as parameter
myFunction("myCallbackFunction");
?> ]]> http://www.huison.cn/blog/default.asp?id=229 <![CDATA[explode和split的区别]]> hoogl@126.com(Huison) Mon,23 Jun 2008 16:40:43 +0800 http://www.huison.cn/blog/default.asp?id=229 Warning: split() [function.split]: REG_EMPTY in...

程序代码 程序代码
$file=split("|hyenpkjvlg|",join("",file("$datadir/".$list[$i])));
$file=explode("|hyenpkjvlg|",join("",file("$datadir/".$list[$i])));


看了帮助文档,群里也问了人(还是那句话:群里始终解决不了问题).得出结果:

explode函数只支持用字符分隔，然而split是用正则表达式，当然使用split可以处理一些复杂的字符串分析问题。而explode需要有一定的规则。

得出:split分隔符中不能带有"|",目前还没有发现有什么其它的不一样!]]>