百葉博客 - 脚本程序

全球顶尖的PHP开源系统

g_2007@qq.com (G.k) — Sat, 29 May 2010 10:17:45 +0800

大量的PHP开源（开放源代码/Open Source）应用改变了这个世界，改变了互联网，以下我们总结从数据库到购物、博客等众多类型的开源PHP软件，供网站开发者们参考。

博客：WordPress
WordPress是使用PHP开发的著名博客平台，免费开源，功能强大，不仅仅用于博客搭建，还可以广泛应用于各类网络信息发布平台。

论坛：phpBB
phpBB是一种广泛流行的开源论坛软件，具有易于使用的管理面板和友好的用户安装界面，可以轻松地在数分钟内建立起一个论坛，功能上具有很高的可配置性，能够完全定制出相当个性化的论坛。

CMS：Drupal
Drupal是一个开源的内容管理系统(CMS)平台，拥有强大并可自由配置的功能，能支持从个人博客到大型社区驱动的网站等各种不同应用的网站项目。

Wiki：MediaWiki
MediaWiki是PHP语言写成开源Wiki引擎，全世界最大的Wiki项目维基百科就是使用MediaWiki引擎。

Digg：Pligg
Pligg是一套灵活的类似Digg的Web2.0 CMS系统，系统使用PHP开发，模仿了国外流行的DIGG系统。

图像：Gallery
Gallery 是一个非常有名的免费开源图库相册软件，基于 PHP 和 MySQL， PostgreSQL 等数据库。功能非常强大，有丰富的扩展可以下载，安装很简单，有很多插件可用。

RSS：Gregarius
Gregarius是一个RSS聚合程序，免费开源，具备不错的用户体验，易于操作和管理。可以把其当成RSS阅读器使用。

电子商务：osCommerce
osCommerce是一套由自由软件开发社团开发并维护的在线商店的解决方案，免费开源，并可以应用到任何的商业环境中，可以在短时间内生成一个功能强大的电子商务网站。

广告：OpenX
OpenX（原名phpAdsNew）是一个用PHP开发的广告管理与跟踪系统，适合各类网站使用，能够管理每个广告主拥有的多种任何尺寸横幅广告，按天查看，详细和概要统计并通过电子邮件发送报表给广告主。

数据库：phpMyadmin
phpMyAdmin是用PHP开发的MySQL的数据库管理工具。可以在Web界面上实现各种各样对MySQL数据库的管理和操作。

不带"www"域名权重转移

g_2007@qq.com (G.k) — Wed, 21 Apr 2010 13:32:57 +0800

之前有说过普通的301跳转方法. [网站动静态页面权重转移(301跳转)]
今天再谈下301跳转另外的一种特殊情况.

今天又碰到了一种特殊星期2010-04-21
网站在虚拟主机上,也就是那种很大众的虚拟主机,这样的虚拟主机一般都不支持ISAPI_Rewrite组件,但我的网站发现百度的收录有问题.大多收录的是我的一级域名也就是不带"www"的域名.而带有"www"的域名收录量逐渐减少.

搞了一上午终于解决问题.利用asp程序.和iis自带的404错误跳转完成.
实现和过程很简单.
一,首先在自己的服务器上建立一个网站.没有自己服务器可以就用自己的微机搭建一个.配合花生壳,总之

自己想办法咯.
二,把不带"www"的做A记录指向到到自己的服务器上. 这样.带有"www"的网站和不带"www"的网站是两个不

同的网站了.
三,把下面的文件复制到自己的服务器上
404.asp
源码:
四,把iis错误文档 404 错误自定义为

<% netpath = "http://www.web222.com" netpath = netpath&replace(Request.ServerVariables("QUERY_STRING"),"404;http://web222.com:80","") response.write netpath Response.Status="301 Moved Permanently" Response.AddHeader "Location",netpath Response.End %>

消息类型:url
URL:/404.asp
五,完成.
再在网址上打入 http://web222.com/***** 都会采用301跳转到 http://www.web222.com/*****

不用ISAPI_Rewrite做也能做伪静态

g_2007@qq.com (G.k) — Wed, 21 Apr 2010 12:02:44 +0800

一般情况下，ASP实现伪静态需要服务器安装ISAPI_Rewrite组件，并编写httpd.ini规则文件。如果虚拟主机不支持UrlRewrite，则无法实现。但是如果空间商允许我们自定义404页面为ASP脚本，则可以很好的实现伪静态。
首先说说自定义404页面的方法。打开本机IIS网站，查看属性-自定义错误，找到404错误，双击修改其消息类型为URL，Url设置为网站根目录下文件的绝对路径。比如我希望自定义错误页面为网站中根目录下的404.ASP这个文件，则设置URL为 /404.asp ，注意前面的斜杠！设置完成之后，当请求的文件不存在时，IIS会调用我们指定的脚本返回输出。
一般来说，现在的空间商都允许自定义404错误页面了。有了这点保证，才有可能为ASP实现类UrlRewrite的伪静态。

asp伪静态_404伪静态_利用404.asp实现伪静态的方法
很多网站用的是虚拟主机服务商不一定提供伪静态功能. . .
但大部分服务商都提供404错误转向.
利用404错误可以实现伪静态功能.
下面说下原理
比如网站首页 http://www.web222.com/index.asp
上面的信息地址都为 http://www.web222.com/Class/Show.asp?ID=27870
写程序时候只要故意把 http://www.web222.com/Class/Show.asp?ID=27870 写成
http://www.web222.com/show/27870.html
其实并不存在 http://www.web222.com/show/27870.html这个页面. 用户要点击这个超连接的话, 就会自
动调用404错误页面
只要报404错误页面定义为asp页面就可以了.
其中加入获得 Show.asp?ID=27870 页面的Id 27870 然后利用小偷程序获取改页面的内容
显示在 http://www.web222.com/show/27870.html 页面上.
其中最加了截取带有/show/和.html的页面如果不少就转倒正常的err.html错误页面
测试地址 http://www.web222.com/show/27870.html http://www.web222.com/Class/Show.asp?ID=27870
两个页面是一样的.
下面是 404错误页面的代码

<% Dim webUrl,start,over,reurl,Url,Html weburl=GetUrl() start= instr(weburl, "/show/") over =instr(weburl,".html") if start<>0 and over<>0 then reurl = mid(weburl,start+6,over-7) reurl = replace(reurl,".html=","") else reurl="" end if if reurl<>"" then url="http://www.web222.com/Class/Show.asp?ID="&reurl else url="http://www.web222.com/err.html" end if Html = getHTTPPage(Url) Response.write Html '常用函数 '1、输入url目标网页地址, 返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing if err.number<>0 then err.Clear end function '2、转换乱玛, 直接用xmlhttp调用有中文字符的网页得到的将是乱玛, 可以通过adodb.stream组件进行转换 Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim ScriptAddress, M_ItemUrl, M_item Function GetUrl() ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址 M_ItemUrl = "" If (Request.QueryString <> "") Then ScriptAddress = ScriptAddress & "?" For Each M_item In Request.QueryString If InStr(page,M_Item)=0 Then M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString (""&M_Item&"")) End If Next end if GetUrl = ScriptAddress & M_ItemUrl End Function %>

自己要编写其它应用也行，下面简单介绍下：

<%URL=Request.ServerVariables("QUERY_STRING")%> <%=URL%>

上面是404错误页面的代码，获取当前URL值的语句，例如：
原来动态地址：http://www.web222.com/post.asp?id=*
随便输入个地址：http://www.web222.com/post-id-*.html
页面会返回值：404;http://www.web222.com:80/post-id-*.html
我们可以利用replace把404;http://www.web222.com:80/post-id-过滤，

<% URL=replace(Request.ServerVariables("QUERY_STRING"),"404;http://www.web222.com:80/post-id-","") %>

URL值就只剩下*.html了，再利用split把它拆开，以.为主，

<% sURL=split(URL,".") %>

那最后就是，sURL(0)等于获取*的值，sURL(1)等于获取html的值，
我们把原先post.asp文件代码把获取id值改为sURL(0)，然后把代码保存在404错误页面，这就实现网站伪静态功能了

仿淘宝返回顶部代码

g_2007@qq.com (G.k) — Wed, 21 Apr 2010 09:46:13 +0800

看见淘宝的返回顶部按钮功能,是不是很想要啊?
很实用的，当屏幕滚动到一定程度时返回顶部按钮才会出现，并且可以设置出现的高度，我看网上很多人在找啊，有人用AJAX实现，但是代码太多了，这个代码很少，也可以封装成JS，直接调用
返回顶部.rar

IE浏览器flash透明,Google浏览器flash不透明

g_2007@qq.com (G.k) — Tue, 06 Apr 2010 11:56:02 +0800

这是一则普通的flash调用方法.因为我要在背景图片上加一个星星的flash效果.所以我要把星星flash设置为透明.
传统的另起一行添加一句

就可达到IE浏览器flash透明的目的.然而Google任然不能透明

flash调用方法如下.

如果只是添加了

这在ie浏览器里flash为透明,Google的浏览器里则flash不为透明.我们需要在另外一个embed标签下添加透明参数.整体修改如下

Access 标准表达式中数据类型不匹配 ASP

g_2007@qq.com (G.k) — Thu, 18 Mar 2010 10:03:34 +0800

原语句
select * from Guanjianci where lid = "&lid&" "
出现标准表达式中数据类型不匹配.
我这里lid表的数据类型是文本.
在用where语句的时候发现执行不了.
字啊网上搜索一个强制转换语句.可行

修改后select * from Guanjianci where lid = cstr("&lid&")"

ASP详细的系统时间调用函数及方法

g_2007@qq.com (G.k) — Wed, 17 Mar 2010 09:15:46 +0800

now() 获取当前系统日期和时间,ASP输出可以这样写：<%=now()%>

Year(now()) 获取年份， ASP输出：<%=Year(now())%>

Month(now()) 获取当前月份，ASP输出：<%=Month(now())%>

day(now()) 获取当天数，ASP输出：<%=day(now())%>

hour(now()) 获取分钟数，ASP输出：<%=hour(now())%>

Minute(now()) 获取分钟数，ASP输出：<%=Minute(now())%>

Second(now()) 获取秒钟数，ASP输出：<%=Second(now())%>

date() 获取当前系统日期，格式为：2004-2-28

time() 获取当前系统时间，格式为：22:24:59

DateAdd函数(时间向后)

DateAdd("h",13,Now())其中"h"代表小时，13代表加上13小时，now()是现在的日期时间，也可以"h"可以改变：
设置描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒

用时间间隔的方法减去一定的天数
Function Date1()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
NewTime = NewTime.Format("MM/dd/yyyy", DateTimeFormatInfo)
response.write(NewTime)
End Function

使用加负天数的方法减去一定的天数
Public Function Date2()
Dim NewTime as DateTime
NewTime = DateTime.Now.AddDays(-7)
Dim s as string = NewTime
return s
End Function

返回日期名称字符串
Function Date3()
Dim NewTime as DateTime = now.addDays(-7)
response.write(System.String.Format("{0:MM/dd/yyyy}",NewTime))
End Function

Function Date4()
Dim NewTime as DateTime
NewTime = now.addDays(-7)
return NewTime.ToString()
End Function

使用长时间模式
Public Function Date5()
Dim NewTime as DateTime
NewTime = Now()
return newtime.toLongTimeString()
End Function

使用短时间模式
Public Function Date6()
Dim NewTime as DateTime
NewTime = Now()
return newtime.toShortTimeString()
End Function

使用长日期模式
Public Function Date7()
Dim NewTime as DateTime
NewTime = Now()
return newtime.toLongDateString()
End Function

使用短日起模式
Public Function Date8()
Dim NewTime as DateTime
NewTime = Now()
return newtime.toShortDatestring()
End Function

格式化日期函数

格式化成通用格式
Function Date9()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 0)
End Function

格式化成长日期格式
Function Date10()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 1)
End Function

格式化成短日期格式
Function Date11()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 2)
End Function

格式化成长时间格式
Function Date12()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 3)
End Function

格式化成短时间格式
Function Date13()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 4)
End Function

单独显示时间的年，月，日等部分

显示日期
Function Date14()
Dim NewTime as DateTime = now.addDays(-7)
dim s as string
s = (System.String.Format("{0:dddd}",NewTime))
Return s
End Function

返回日期的一周中的第几天
Function Date15()
Dim MyDate as DateTime
Dim MyWeekDay as Integer
MyDate = Now.AddDays(-5)
MyWeekDay = Weekday(MyDate)
return MyWeekDay
End Function

返回月份值
Function Date16()
Dim MyDate as DateTime
Dim MyMonth as Integer
MyDate = Now.AddDays(-5)
MyMonth = Month(MyDate)
return MyMonth
End Function

返回一个格式化后的字符串
Function Date17()
Dim MyDate as String
MyDate = Format(Now(), "yyyy")
return MyDate
End Function

DateDiff 函数
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

设置

interval 参数的设定值如下：

设置描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒

firstdayofweek 参数的设定值如下：

常数值描述
vbUseSystem 0 使用 NLS API 设置。
vbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
常数值描述
vbUseSystem 0 用 NLS API 设置。
vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek 3 从第一个无跨年度的星期开始。
说明
DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。

为了计算 date1 与 date2 相差的日数，可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时，DateDiff 返回两日期间的周数。如果 date1 是星期一，DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过，如果 interval 是“周”(ww)，则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。

如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。

firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。

如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。

在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已

文章来自中国建站：http://www.jz123.cn/text/2211182.html

ASP在线解压缩程序 / 把文件夹打包线上解压

g_2007@qq.com (G.k) — Fri, 12 Mar 2010 14:23:03 +0800

这是一个支持ASP在线解压缩的程序.
可以先在本机把文件夹及文件夹内的文本文件压缩为一个*.dat的压缩包.
然后利用工具生成的ASP程序(setup.asp)在线上解压*.dat压缩包.
ASP在线解压缩程序
点击这里下载:ASP在线解压缩工具

具体操错:
先下载我提供的ASP在线解工具.
工具使用也相当简单，选择要打包的目录，再选择保存安装包的路径，点击“Make!”生成安装包即可，打包完毕后会生成两个文件，一个是setup.asp，一个为.dat文件，将这两个文件上传至空间，运行setup.asp即可在线解包。

ASP中使用XMLhttp读取的网页不完整

g_2007@qq.com (G.k) — Tue, 09 Mar 2010 11:22:38 +0800

这个是adodb.stream的一个BUG，因为其中包含了chr(0)，导致认为文件已经结束，而导致后面的内容不会获取，从而导致xmlhttp获得的文件内容不完整。
下面的是修改后的

<% url="http://www.nipei.com/index.php" Set Http=server.createobject("msxml2.serverxmlhttp.3.0") Http.setTimeouts 10000, 10000, 10000, 10000 Http.open "GET",url,False Http.Send() If Http.Readystate<>4 Then Else If Http.status=200 Then response.write replace(BytesToBstr(http.responseBody,"gb2312"),chr(10),"") End If End If Function BytesToBstr(Body,Cset) Dim Objstream Set Objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function %>

改变kingcms默认拼音路径格式/修改kingcms拼音路径

g_2007@qq.com (G.k) — Fri, 05 Mar 2010 22:50:24 +0800

有的朋友需要有的朋友可能不需要修改。
反正我需要，在使用kingcms时候，会发现默认的拼音路径前面加了日期，这可能是为了转门户CMS的前兆吧，我觉得不方便，所以我把他改掉了。
还是用原来的直接拼音路径。这个更适合我。
修改admin/Article、index.asp文件找到源码大概1056行。

'artpath if data(11,0)=art.lang("common/pinyin") then'拼音文件名 data(11,0)=king.pinyin(data(0,0)) data(11,0)=formatdate(data(14,0),2)&"/"&replace(data(11,0),".","_")

直接注释掉formatdate这段

'artpath if data(11,0)=art.lang("common/pinyin") then'拼音文件名 data(11,0)=king.pinyin(data(0,0)) 'data(11,0)=formatdate(data(14,0),2)&"/"&replace(data(11,0),".","_")

在添加新的网站会发现回到从前的全拼音路径咯。