XYZ's Blog

嗯，从上一篇《说说公务员考试网和金拓网站的收录情况》到现在也已经过了一个星期有多了，这段时间也将土著游民的《SEO魔法书》看完了，基础的知识也算了解了个大概，但SEO关键还是在于实践。现在再来看看这几个网站的情况吧，作为实践记录也好，作为生活记录也好。

所有的网站现在还没有做外链策略，基本上只是网站的内部优化，所有这篇博文主要也不是技术经验方面的，更多的是记录。

- more -

虽说，WordPress新版本在功能上有所完善和修复了相应漏洞，但也有一部分用户觉得现在功能够用了、漏洞也修复了，暂时不想升级，但每次进入后台都有升级提示确实比较令人厌烦，现在提供两种去掉升级提示的方法。

1、打开主题中header.php文件,将类似于如下这一行去掉

<meta name=”generator” content=”WordPress <?php bloginfo(‘version’); ?>” />

还有一个方法就是修改版本号到比最新版更高都版本号，这样在后台就不会提示升级通知，也不会暴露程序都版本号了，打开wp- includes/version.php修改$wp_version的值。由于目前最高版本号为3.01，只要比3.01高即可，例如改为4.0或者 50.0等等。

2、第二种方法只是直接去掉后台更新提示，打开wp-admin/includes/update.php查找

echo “<div id="’update-nag’">$msg</div>”;

网上也有针对WordPress版本号发起攻击的小贼，所以去掉元签上的版本号也是有所必要的

首先来解释一下Gravatar是什么东西。Gravatar是Globally Recognized Avatar的缩写，中文意思为“全球通用头像”，是 http://www.gravatar.com 推出的一项服务，如果你在Gravatar的服务器上申请了账号和上传了图片，那么你就可以在所有支持Gravatar的网站上面通过提供email地址使用该头像。而WordPress本身从2.5版本开始支持Gravatar头像，虽然最近有消息称在WordPress 3.01版本中因为某些原因而别GFW了导致使用不了该项服务，不过解决方案也马上出来了，所以基本不影响Gravatar使用。

- more -

嗯，今天被吩咐说往公司的网站添加一些功能。大致的意思是说现在公司的网站有一个提问模块，但提问的人不是很多，所以公司希望自己在后台作弊一下，内部人员添加数据，但如果一条一条的在网站上面添加，这种做法无疑是费时不讨好的，于是上司就吩咐说，做一个txt导入到access数据库的方法，那么只要在txt里边预先输入好数据，到时候一次过导入即可。

首先我们先要准备一份格式如下的txt文档（test.txt）

1,佛大,地址：江湾一路18号
2,佛山大学北院,地址：大沥仙溪湖畔
这里说明一下我自己的定义：第一列是排序数字，第二列是建筑物的名称，第三列是建筑物的地址
接下来就是ASP文件（do.asp）的代码了，既然和其他文档有关，那么代码用到的自然是fso组件的代码了

<%
filespec=server.mappath("/test.txt")

Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
i=0
Do While theFile.AtEndOfStream <> True
session("row"&i) = theFile.ReadLine
i=i+1
Loop
theFile.Close
ReadEntireFile = retstring
for j=0 to i-1
arry=split(session("row"&j),",")
'arry(0),arry(1),arry(2)

response.write session("row"&j)+"〈br>"
next

%>

输出的结果是：
1,佛大,地址：江湾一路18号
2,佛山大学北院,地址：大沥仙溪湖畔
原理很简单
首先通过OpenTextFile方法，以只读的方式打开test.txt文档
然后通过AtEndOfStream判断指针是否到达了文档的结尾，如果没有到达结尾，就用ReadLine来循环读取文档的每一行。然后用split将每一行以“,”为分隔符转为数组，再输出就可以了。

当然我们还没有达到我们的目的，就是写入Access，其实只要加一些代码就可以实现了，参考代码如下

<%
set rs=server.createobject("adodb.recordset")
sql="select * from [table]"
rs.open sql,conn,1,3

ofile=request("file")
filespec=server.mappath(ofile)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
i=0
Do While theFile.AtEndOfStream <> True
session("row"&i) = theFile.ReadLine
i=i+1
Loop
theFile.Close
ReadEntireFile = retstring
for j=0 to i-1
arry=split(session("row"&j),",")
rs.addnew()
rs(0)=arry(0)
rs(1)=arry(1)
rs(2)=arry(2)
rs.update()

next

rs.close
set rs=nothing
%>

之前用destoon这套b2b系统开发了中国卫浴网，不是太清楚destoon的开发团队怎样，虽说国内的b2b开源系统中destoon已经算是比较好的了，但实际用起上来发现还是有比较多的不足吧。比如说关联链接里边，如果同时出现了关键词和相对应的长尾关键词，就会出现链接叠加的情况。

- more -