更换主机

October 8, 2017

终于还是对那被几乎遗忘的STACK主机彻底失望了,虽然主机要到年底才到期,虽然从保罗主机开始到现在的STACK已经快5年了,但是在这次宕机后提交了两次工单都没人理会后,还是决定放弃了。

为了不再心累,咨询了Loekman后,决定选择他在使用的衡天主机,放弃了兼具PHP和ASP程序的主机屋。考虑再三,基于性价比的原因,购买了香港机房的特惠型共享IP虚拟主机,1G空间容量,30G月流量,可建3个独立站点,150元/年,买2年送1年,对于我来说已经绰绰有余了,但是因为这款虚拟主机有搞活动,所以性价比还是不错的。

空间的问题解决后,把本地的数据上传了上去,只是少了那么一点点站点数据。但是强迫症发作,还是通过提交工单的形式,对主机商明确表示了失望,只希望对方能够把数据库数据发过来就行了。这样低的要求才总算是有个活人(Jeremy Green,COO & Co-Founder)回复了我的工单,并把整站数据备份给了我。我估计对方是没再运营那个韩国主机了,而且有可能也没有运营这种10元/月的虚拟主机了,所以不知道该怎么解决我提出的宕机问题。然后就不再理会我提交的工单,用时间消磨我的耐性,总之到期也就只有几个月了,拖到到期了事。但是最后还是我忍不住主动提出只要数据,所以就非常爽快的把备份数据给我了。我也不想再折腾了,所以也没再要求道歉、赔偿什么的,也没再像之前那样像愤青一样通过工单把主机商喷一遍,就这么无声无息的结束了。只是现在在这里更新记录“站点大纪事”时把这件事述说一遍,其实也没什么意义和作用,只是一段历史记录而已,仅此而已……

需要再次操心主机的事,应该就是3年后的事了吧。这次换主机也不算败家,反而还比原来便宜了20元/年。但是真心希望这3年不要再出现不愉快的经历了,希望这个主机可以让我安心坦然的放下戒备,不用再成天提心吊胆的担心某一天又宕机,以至于都失去了更新的动力和欲望……

愿衡天主机一切顺利、安好,愿自己重拾博客更新动力与欲望……

——Posted from Windows.

WLW&OLW异常

October 24, 2016

自从升级Win10后,用来离线发布博客的Windows Live Writer就被一并升级到了Open Live Writer,但是不知道为什么后来总是出错不能发布文章了,而且还不支持以前WLW常用到的Text Template插件,所以今天又打算换回WLW。

然而,并不是我想像的那么美好,原来的安装包被我删除后,现在连怎么下载都有点摸不着头脑了。网络上大部分下载链接都指向微软官网,然而官网已经多次改版把链接重写,找了半天才找到一个在线安装包(wlsetup-web.exe)地址,在官网上始终没找到离线安装包地址,后来还是根据使用在线安装包安装好的WLW版本信息通过其他下载网站找到离线安装包(wlsetup-all.exe)地址。而且下载下来的安装包还不仅仅是只有WLW,而是包含了很多其他套件(如Windows Live Mail等),只有将就存档备份了。

安装好之后在添加账户时,老是提示错误信息:“尝试登录时发生意外错误:WindowsLive.Writer.CoreServices.HttpRequestHelper的类型初始值设定项引发异常”,后来通过搜索关键字“WindowsLive.Writer.CoreServices.HttpRequestHelper”在Demon's Blog找到解决办法,需要找到以下注册表值:

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Lsa\FipsAlogorithmPolicy\Enabled

然后将该注册表值修改为0,重启Windows Live Writer即可。

通过修改后,试着测试OLW发布文章居然成功了,看来很可能也是这个注册表项引起的。但是还是决定弃用OLW换用WLW,因为可以继续使用Text Template插件,而且支持中文界面。另一方面,对于愚钝的我来说并没有发现OLW的体验比WLW好在哪里,然后……就没有然后了……

——Posted from Windows Live Writer.

Typecho获取图片数量

October 21, 2016

今天逛Typecho论坛发现了一段很有用的代码,可以自动获取图片数量,正好可以解决图片站点的图片数量统计问题,之前是用手动添加自定义字段解决的,通过添加这段代码进行改造后,再处理这种问题时就省事多了。

使用时,先将以下代码添加到当前主题下的functions.php文件里。

/*****************
 * 获取图片数量
 * @since 2016.07.01
 **/
function hui_post_imgNum($content){
   $output =
   preg_match_all("/\<img.*?src\=\"(.*?)\"[^>]*>/i",$content,$matches);
   $cnt = count( $matches[1] );
       return $cnt;
}

然后在需要的地方使用以下代码进行调用:

<?php echo ''.hui_post_imgNum($this->content).'' ; ?>

特此留存,以备查阅!

迟来的小站宕机事故解析

October 18, 2016

不记得是8月底还9月初发现小站不知道怎么回事宕机了,对于我这种几乎只有自己看看的小站来说根本就没放在眼里(太懒的原因),想的是也许过几天就恢复了,但是没想到一直到9月13日都还没有恢复,想想当初还是花了白花花的银子在上面的,不能不明不白的当了这冤大头。

于是,通过度娘发现是主机商合作失败跑路了,通过各种途径(kn007&保罗站长QQ交流群)找到了主机商的新IDC项目STACK,便注册了一个账号提交了工单,没想到异常的顺利找回了小站……

特此记录。

Excel自动保存修改记录及时间

September 20, 2015

最近在整理跑团财务收支明细表时,因为要上传公布到管理群,为防止被误操作,就想要自动保存这张表的修改记录及时间,通过度娘找到了一些比较可行的代码。但必须要注意一点,以下代码的运行是建立在工作薄允许运行宏的基础上的。

1. 修改记录

1)在Excel工作薄中新建2个工作表,分别命名为“收支明细表”和“修改记录”;

2)在工作表“修改记录”中从A1至E1开始录入“修改单元格地址”、“修改前内容”、“修改后内容”、“修改时间”、“修改人”,然后对当前工作表设置密码保护(密码为666),最后右击工作表标签点击隐藏,以最大限度防止被人为修改;

3)回到“收支明细表”,右击该工作表标签点击“查看代码”打开代码编辑窗口;

4)在代码编辑窗口左侧找到“Sheet1(收支明细表)”代码窗口录入以下代码并保存:

Dim ad, t

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ad = Target.Address '定义变量ad为修改的单元格地址
t = Target.Value '定义变量t为单元格修改前的内容
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("修改记录")
    x = .Range("A65536").End(xlUp).Row + 1 '查找工作表A65535单元格向上,最后个非空单元格的下一行行号
    .Unprotect Password:=666 '撤消工作表保护
    .Cells(x, 1) = ad '修改的单元格地址
    .Cells(x, 2) = t '修改前的内容
    .Cells(x, 3) = Target.Value '修改后的内容
    .Cells(x, 4) = Now() '修改时间
    .Cells(x, 5) = Application.UserName '用户名
    .Protect Password:=666 '保护工作表,密码为666
End With
End Sub

通过以上代码即可实现对工作表“收支明细表”数据进行修改时,在加密保护并隐藏的工作表“修改记录”中进行记录,需要查看时取消隐藏该工作表就可以了。

2. 修改时间

1)在工作薄的任一工作表标签上右击,点击“查看代码”打开代码编辑窗口;

2)在代码编辑窗口左侧找到工作簿事件代码窗口“ThisWorkbook”代码窗口录入以下代码并保存:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Sheets("收支明细表").Range("A3") = Now 
End Sub

通过以上代码即可实现在“收支明细表”工作表中的“A3”表格里显示最后的修改保存时间。