7月19日购买并启用了了世界第一大域名注册商 Godaddy 虚拟主机。

150G磁盘空间
1500Gb月流量限制
支持建立无限个网站
独立IP（非ssl带独立IP）
PHP+mysql数据库

因为最初只想做个人blog，开始并不想再买个独立IP什么的，但事实却这么的残酷，短短的两个月时间共享IP被封两次（当然原因不在我这），让 我不得不考虑后面的问题，从“时间的味道”那了解到了关于合租方面的方案，认真想了下，换回国内空间的选择还不如升级这个空间然后找寻合租伙伴的方案呢， 这样既稳定而且可以长期继续下去（毕竟国外这种空间更成熟，更稳定，而且最近发现到国外的网速有了明显的提高，算个极大的利好消息吧!），所以便也产生了 这个念头，不知道有没有其他喜欢玩 WordPress 或者博客的朋友可以来合租。 (更多…)

这些日子在博客上的时间比较长，昨晚终于下决心换掉了原来的模板，让我找到了这么一个比较满意的新东西。字体比较大，看起东西来比较舒服，颜色也比较清爽，很是喜欢，呵呵。

只不过换模板最麻烦的还是自己用的插件:有一部分需要重新调整，这也是我一直没有动作的原因之一。感觉就像重新看一遍代码一样。不过好赖算是收拾干净了，也加上了好久没有上的广告，偷偷笑下，其实以我这网站的流量，想挣钱简直太难了，我也就是感觉有点图片好看些罢了，毕竟自己的博客现在的照片还很少，算个装饰吧。

(更多…)

原来的空间就要到期了，客观的说其实挺稳定的，但因为其功能和性价比这两点来说，很是不满意。于是便有了其他的想法！不准备做广告！

音频片段：需要 Adobe Flash Player（9 或以上版本）播放音频片段。 点击这里下载最新版本。您需要开启浏览器的 JavaScript 支持。

先是在国内试了几个，速度上感觉还差不多，但稳定性不是两三可以知道的，再就是性价比的问题，真是有名的太贵，便宜的又不放心的样子。而且发现现在网上的各种枪手也是层出不穷！

另外还需要说的一点是我在转移blog过程中出现的问题：在国内试的几家里，我到现在始终没有搞明白，为什么会有乱码的出现，试遍了网上的各种方法却未能解决，现在仔细想想可能是因为mysql的版本问题吧？

无奈之下，想到了国外的主机空间！死啃一堆英文和中文资料后，再加上有了国外支付的便利条件，终于选中了一家服务商，性价比来说比国内的主机真不是强一点半点的差距！

一通英文填写后，成功拿到了用户名和密码！然后又用我 too poor 的英文一通设置:PHP mysql全部选项用最高版本的再说。domain hosting email…全部在很短的时间内搞定了。不得不佩服国处的办事效率！

几个小时之后我已经开始转移我的blog，神奇的是：在国内怎么搞都是乱码的数据库，在这里一下子通过！FUCK！

‘个人代码风格注释（变量名中第一个小写字母表表示变量类型）
‘i:为Integer型;
‘s:为String;
Function U2UTF8(Byval a_iNum)
Dim sResult,sUTF8
Dim iTemp,iHexNum,i

iHexNum = Trim(a_iNum)

If iHexNum = “” Then
Exit Function
End If

sResult = “”

If (iHexNum < 128) Then
sResult = sResult & iHexNum
ElseIf (iHexNum < 2048) Then
sResult = ChrB(&H80 + (iHexNum And &H3F))
iHexNum = iHexNum \ &H40
sResult = ChrB(&HC0 + (iHexNum And &H1F)) & sResult
ElseIf (iHexNum < 65536) Then
sResult = ChrB(&H80 + (iHexNum And &H3F))
iHexNum = iHexNum \ &H40
sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult
iHexNum = iHexNum \ &H40
sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
End If

U2UTF8 = sResult
End Function

Function GB2UTF(Byval a_sStr)
Dim sGB,sResult,sTemp
Dim iLen,iUnicode,iTemp,i

sGB = Trim(a_sStr)
iLen = Len(sGB)
For i = 1 To iLen
sTemp = Mid(sGB,i,1)
iTemp = Asc(sTemp)

If (iTemp>127 OR iTemp<0) Then
iUnicode = AscW(sTemp)
If iUnicode<0 Then
iUnicode = iUnicode + 65536
End If
Else
iUnicode = iTemp
End If

sResult = sResult & U2UTF8(iUnicode)
Next

GB2UTF = sResult
End Function

‘调用方法
Response.BinaryWrite(GB2UTF(“中国人”))