药猴的博客

这次奥运会中国的三大球表现不错

2008-08-19T22:33:45+08:00

本次奥运会，中国男排历史性地进入八强，女排现在已经进入了四强，男篮进入八强，女篮已经进入四强，女足进入了八强，都还不错。
对了，不愿意提那些猪猡，男足，就它们丢脸！

每周医药快讯，2008年第32期

2008-08-18T10:17:55+08:00

每周医药快讯，2008年第32期，详情请下载附件后查看。
转载请Email通知站长并请注明来源，谢谢!
点击下载此文件

使用Asp无组件上传时“文件格式非法”的解决方法

2008-08-17T12:02:50+08:00

最近使用PJBLOG时上传文件老是出现“文件格式非法，请重新上传”。多次失败后，google到一些文章，解决方法大概有两种，总结如下。
一、修改Windows Server里的metabase.xml 文件
                1. 首先在“服务”里关闭IIS Admin Service 服务。
                2. 找到 Windows\System32\Inetsrv\ 下的Metabase.xml 文件。
                3. 用记事本（推荐使用Editplus等）打开，找到 ASPMaxRequestEntityAllowed 把它修改为需要的值（默认为：204800，即200K，这就是无组件上传的文件大小上限），比如51200000（50M）。
                4. 存盘，然后重启IIS Admin Service 服务。
                注1: 如果IIS 6.0下无法下载大于4M的附件，请用记事本修改 AspBufferingLimit （默认：4194304，即：4MB），如51200000（50M）。
                注2: 可以在命令行（开始菜单->运行->cmd）下输入iisreset /stop （或者iisreset /start）来停止（或启动）IIS Admin Service 服务。

二、修改上传方式（改用ASPUpload 组件）
        前提条件是空间需要支持ASPUpload，如果不清楚，请先下载AJiang的Asp探针，上传到空间里运行查看。如果不支持的话，那就要和空间商协调解决了。

1. 打开pjblog的attachment.asp文件，如图，删除第4行
  2. 将 Dim FileUP 和Set F_File=Nothing 之间替换为：
程序代码 Code

'-------- ASPUpload Start --------
        'Set FileUP=New Upload_File
        Set FileUP = Server.CreateObject("Persits.Upload") '生成 ASPUpload 对象
        FileUP.CodePage = 65001 '代码页为UTF-8
        FileUP.OverwriteFiles = False '不覆盖已有文件
        FileUP.RegKey = "41133-90544-38797" 'ASPUpload 的注册码
        'FileUP.GetDate(-1)
        Dim F_File,F_Type
        'Set F_File=FileUP.File("File")
        FileUP.Save(Server.MapPath("attachments/"&D_Name)) '首先保存文件
        Set F_File = FileUP.Files("File") '生成 ASPUpload 文件对象
        'F_Name=randomStr(1)&Year(now)&Month(now)&Day(now)&Hour(now)&Minute(now)&Second(now)&"."&F_File.FileExt
        F_Name=randomStr(1)&Year(now)&Month(now)&Day(now)&Hour(now)&Minute(now)&Second(now)&F_File.Ext '生成新文件名

        'F_Type=FixName(F_File.FileExt)
        F_Type=FixName(F_File.Ext) 'ASPUpload 的得扩展名的方法语法和以前的不一样

        'IF F_File.FileSize > Int(UP_FileSize) Then
        IF F_File.Size > Int(UP_FileSize) Then '文件是否超过允许的范围
        F_File.Delete '删除失败文件 2007-05-07
        Response.Write("

文件大小超出，请返回重新上传

")
        ElseIF IsvalidFile(UCase(F_Type)) = False Then
        F_File.Delete '删除失败文件 2007-05-07
        Response.Write("

文件格式非法，请返回重新上传

")
        Else
        'F_File.SaveAs Server.MapPath("attachments/"&D_Name&"/"&F_Name)
        F_File.Move Server.MapPath("attachments/"&D_Name&"/"&F_Name) '使用 ASPUpload 的改名方法生成 PJBolg 的文件名样式
        response.write ""
        Response.Write("

文件上传成功，请返回继续上传

")
End IF
'-------- ASPUpload End --------

注:如果上传较大文件，需要将 Server.ScriptTimeOut 更改为更大的值。

每周医药快讯，2008年第31期

2008-08-11T09:03:30+08:00

每周医药快讯，2008年第31期，详情请下载附件后查看。
转载请Email通知站长并请注明来源，谢谢!
点击下载此文件

郑智，丢脸吗？

2008-08-10T21:31:14+08:00

中国国奥队太丢人显眼了，尤其是超龄队员郑智，踢得不怎么样，脾气还不小，你丢脸不丢脸啊？

看国奥队踢球

2008-08-08T07:20:14+08:00

昨天晚上看了中国国奥队的奥运首场比赛，对新西兰队，感觉比较别扭。
不过中国队总算创造了历史，董方卓打进了中国在奥运会历史上的第一个进球。
总的看来，我觉得中国队这几个老梆子根本就不应该要。
超龄队员是国际足联对于参加奥运会的球队的一项特别优待，每个队可以派上三名，可是在中国国奥队，我看到的是球霸。
李玮峰表现还可以，虽然失球与他有关，但是并没有太表现出球霸的风采，相比之下，郑智同志表现出了一个专业球霸的素质。
几乎所有的球都到了他的脚下，几乎所有的任意球、角球都由郑智同志主罚，本来在热身赛的时候，蒿俊闵小同志的表现还是不错的，可是在郑智通知的光芒下，小蒿同志基本上失业了，除非在迫不得已的情况下，球才能到他的脚下，触球时间十分可怜，更多的时候是在防守，对于擅长进攻的小蒿，基本上没有什么机会。
希望郑智同志继续发挥球霸的光辉传统，让中国国奥队小组赛尽早被淘汰。

京津城际高速列车运行时刻表

2008-08-07T19:06:43+08:00

放个京津城际高速铁路时刻表在这里，用起来方便。

京津城际高速列车运行时刻表(天津-北京南)

京津城际高速列车运行时刻表(北京南-天津)

今天去了北京

2008-08-06T22:56:09+08:00

今天因为公事，去了一趟北京，没有想象中的那样，没有人查过身份证，没有人翻过包，只是在天安门广场的过街地道，天安门广场上，火车站等地方需要进行安检。
坐京津城际高速列车去的，要说什么感觉，就是一个字“快”！
用一句俗话来说，就是“屁股还没坐热就到了”。
车票改成了磁卡票，检票系统也改成了和地铁差不多的。
秀一下车票：

背面：

每周医药快讯，2008年第30期

2008-08-04T10:06:53+08:00

每周医药快讯，2008年第30期，详情请下载附件后查看。
转载请Email通知站长并请注明来源，谢谢!
点击下载此文件

重温仙剑奇侠传

2008-07-31T23:42:15+08:00

    昨天电脑上装了DOSBOX，然后玩儿了一会儿“仙剑奇侠传”。这个游戏是我玩儿过的最早的电脑游戏，大概是在1995年的时候，那个时候我家附近出现了一个小网吧，其实那时候还没有互联网，就是几台电脑放在那里，都是486DX80的，14吋的显示器。那个时候每小时好像是4块钱，比现在的网吧贵很多。可是以前没玩过这样的游戏，因此很上瘾，最后因为资金问题，没有玩通关，直到1996年的时候，我买了电脑才痛痛快快地玩了一遍。
    现在重新玩儿这个游戏，感觉不太一样，里面的情节没问题，现在超过它的并不多，但是战斗模式、迷宫让人有点烦。我从来没玩过类似的网络游戏，不知是不是也是这样，不停地打怪，才能增加经验值和金币、物品、功夫等等。于是我动用了终极武器UltraEdit，将人物变得很强大，这样打怪的时候很轻松了。
    再次赞一下DOSBOX，真是个好东西。