Weblog Of 修华帅

又一个免费nod32升级服务器~~~

xiuhuashuai@gmail.com (xiuhuashuai) — Fri, 18 Apr 2008 21:12:19 +0800

又一个免费nod32升级服务器~~~
http://nod32.freenod32.cn

08，忙碌的春天

xiuhuashuai@gmail.com (xiuhuashuai) — Wed, 16 Apr 2008 04:45:49 +0800

已经很久没有通宵工作了，现在是黎明前的黑暗，写一篇博，换换已经有些疲惫不堪的脑子。
这个春天是忙碌的，也是充实的，DUIDIAO上线在即，可是我们还有很多工作没有做完，而且，还有很多网站的项目，在DUIDIAO的同时进行，所以，duidiao还没有完善的部分，我只能在晚上来做了，很疲惫。

现在最希望的，是把手头的活都忙完了，好好睡个觉，最近的规律有些乱套，活的没有感觉，仿佛一天的时间转瞬即逝，还没有做什么，一天的时间就溜走了，原来好多事情赶在一起，这么难受。

突然发现，自己已经不习惯晚上干活了。白天做了一天的程序，晚上再看到那些代码的时候，会有点要ber的感觉，而且效率很低，强逼着自己坐在机器前面，写代码，找BUG，说到找BUG,这一晚上的时间我修正了duidiao function文件中的好多BUG还有一些混乱的函数调用，精简了很多代码，看着这个有千行以上代码的函数库，我突然觉得自己已经有些不认识它了，不过还好，修复这些BUG，明天就可以放心的去继续完善别的程序了……，duidiao还很残缺，需要补充的地方太多了。。。。

LEO那天说他现在不能熬夜了，我也有体会了，腰酸背痛，脖子也不爽，很累很累，快快忙完，快快放几天假。。。
08年的春天，很灿烂，很忙碌，很疲惫

信《如果还有明天》MV

xiuhuashuai@gmail.com (xiuhuashuai) — Fri, 11 Apr 2008 09:33:35 +0800

每次听这首歌都很振奋，充满希望！

《陷入爱里面》BY 俞灏明简美妍

xiuhuashuai@gmail.com (xiuhuashuai) — Wed, 09 Apr 2008 08:59:10 +0800

播放/隐藏媒体

点这里看MV
简美妍：如果心跳开始放慢。
呼吸可以变的自然。
我想这就是答案。
哪怕只是短暂的绚烂。
只为那遥远的瞬间。
抛开所有脆弱的不安。
站在孤单的人海。
一直不停盼啊盼。

俞灏明：每一天。每一夜。
渴望与你再相见。
温暖流过你我手指尖。
让思念一片片。
覆盖幸福的午夜。
黑白的琴键。
弹奏着依恋。

简美妍：陷入爱里面。
俞灏明：陷入爱里面缠绵。
简美妍：缠绵。
合：你的视线让我学会勇敢。

简美妍：陷入爱里面。
俞灏明：陷入爱里面许愿。能永远。
合：就算风雪再大也不会走散。

简美妍：遥望那片蔚蓝的天。
想念渐渐成了习惯。
也许在某个转弯。
我们会不经意的遇见。
喜欢看你无暇的脸。
编织所有甜蜜片段。
从此心不再遥远。
有你留给我的甜。

俞灏明：每一天。每一夜。
诠释我们的画面。
爱在彼此的心底蔓延。
这思念。有多远。
那份默契不会变。
爱慢慢沉淀。
我乱了心弦。

简美妍：陷入爱里面。
俞灏明：陷入爱里面缠绵。
简美妍：缠绵。
合：你的视线让我学会勇敢。

简美妍：陷入爱里面。
俞灏明：陷入爱里面瞬间。成永远。
合：就算风雪再大也不会走散。

俞灏明：期待。

用VB将ASP代码封装成DLL

xiuhuashuai@gmail.com (xiuhuashuai) — Mon, 07 Apr 2008 13:59:09 +0800

一、引言
Server端的脚本运行环境，它不需要编译和连接，脚本可以在 Server端直接运行，并且它支持多用户、多线程，在 Web开发中得到了广泛的应用。服务器端的组件有别于客户端的组件。客户端的组件是通过网络传输,依靠HTML来起作用，而且只能在IE上有用。但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作。因此，所有的浏览器都能享用,它依靠的是服务器而不是浏览器。
但是，因为 ASP脚本是纯文本格式，所以恶意者通过源代码可以很容易地看到原本不该看到的页面内容。因此，保护ASP源代码显得非常重要。将ASP代码封装成DLL,不仅加快了ASP代码的执行速度,而且也能保护原代码。当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到标签之间的代码,并且执行它(也可以是之间的代码)。如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译。这样就大大节省了服务器的资源。
二、实现方法
启动你的VB,选择ActiveX图标。这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1)。在动手之前请首先确认我们拥有Microsoft ActiveX Data Object 2.0 Library,它在我们的程序非常有用。从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口,从中选择Microsoft ActiveX Data Object 2.0 Library。
现在我们有了我们自己的工程(project1)和类名(class1)。以后我们就会在ASP代码中使用它们的名字来引用这个组件。在ASP中我们就这样引用,如下:

Set ObjReference = Server.CreateObject("ProjectName.ClassName")

为了在类中使用ASP的方法,你必须在此类中写上初始和终止这两个函数。输入如下代码：程序清单中
Class1.cls中的Private Sub Class_Initialize()和Private Sub Class_Terminate()
将ASP代码中的关键功能制作成动态链接库(.dll)，部分隐藏 ASP源代码。例如：程序清单中的Global.bas和Class1.cls中输入的代码（代码的主要功能是检索数据库中的记录并显示出来）。
在VB的下拉菜单中选择文件→生成article.dll→选择要保存的目录。找到article.dll将其复制到系统盘system32文件夹中，最后一步注册DLL文件。在开始菜单中选择运行输入regsvr32 c:\winnt\system32\article.dll。
三、程序清单
Global.bas中的代码：

Public objContext As ObjectContext Public Application As ASPTypeLibrary.Application Public Server As ASPTypeLibrary.Server Public Session As ASPTypeLibrary.Session Public Response As ASPTypeLibrary.Response Public Request As ASPTypeLibrary.Request

Class1.cls中的代码：

Private Sub Class_Initialize() On Error Resume Next Set objContext = GetObjectContext Set Application = objContext.Item("Application") Set Server = objContext.Item("Server") Set Session = objContext.Item("Session") Set Request = objContext.Item("Request") Set Response = objContext.Item("Response") End Sub Private Sub Class_Terminate() On Error Resume Next Set Application = Nothing Set Server = Nothing Set Session = Nothing Set Request = Nothing Set Response = Nothing Set objContext = Nothing End Sub Public Sub AspClassInit() On Error GoTo Err Set conn = Server.CreateObject("ADODB.Connection") strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("Article.mdb") conn.Open strcon Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from Article order by ArticleID desc" rs.Open sql, conn, 1, 1 Response.Write "<html>" & vbCrLf Response.Write "<head>" & vbCrLf Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf Response.Write "<title>文章管理系统-CSSTUDIO</title>" & vbCrLf Response.Write "</head>" & vbCrLf Response.Write "<body bgcolor=""#FFFFFF"" topmargin=""0"">" & vbCrLf Response.Write "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""0"">" & vbCrLf Response.Write " <tr>" & vbCrLf Response.Write " <td width=""742"" height=""20"">文章标题</td>" & vbCrLf Response.Write " <td width=""90"">点击</td>" & vbCrLf Response.Write " <td width=""145"">添加日期</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write "</table>" & vbCrLf While Not rs.EOF And Rows < rs.PageSize Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf Response.Write " <tr>" & vbCrLf Response.Write " <td width=""747"" height=""20"">☆<a href=""view.asp?id=" Response.Write rs("ArticleID") Response.Write """>" & vbCrLf Response.Write " " Response.Write rs("标题") Response.Write "</a></td>" & vbCrLf Response.Write " <td width=""94"">" Response.Write rs("点击") Response.Write "</td>" & vbCrLf Response.Write " <td width=""148"">" Response.Write rs("添加日期") Response.Write "</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write "</table>" & vbCrLf rs.MoveNext Wend Response.Write "</body>" & vbCrLf Response.Write "</html>" & vbCrLf rs.Close Set rs = Nothing conn.Close Set conn = Nothing Exit Sub Err: If Err.Number = -13572468 Then Exit Sub Resume Next End Sub

使用article.dll后的index.asp中的代码：

<%Dim AspTransBuilderObject Set AspTransBuilderObject = Server.CreateObject("article.Class1") AspTransBuilderObject.AspClassInit Set AspTransBuilderObject = Nothing%>

使用article.dll前的index.asp中的代码：

<% Set conn=Server.CreateObject("ADODB.Connection") strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("Article.mdb") conn.Open strcon %> <% Set rs = Server.CreateObject ("ADODB.Recordset") sql="select * from Article order by ArticleID desc" rs.Open sql, Conn,1,1 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>文章管理系统-CSSTUDIO</title> </head> <body bgcolor="#FFFFFF" topmargin="0"> <table width="100%" border="0" cellpadding="2" cellspacing="0"> <tr> <td width="742" height="20">文章标题</td> <td width="90">点击</td> <td width="145">添加日期</td> </tr> </table> <% While Not Rs.Eof And Rows<Rs.PageSize %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="747" height="20">☆<a href="view.asp?id=<%=rs("ArticleID") %>"><% =rs("标题") %></a></td> <td width="94"><% = rs("点击") %></td> <td width="148"><% = rs("添加日期") %></td> </tr> </table> <% Rs.MoveNext Wend %> </body> </html> <% rs.close set rs=nothing conn.close set conn=nothing %>

四、结论
因为这些代码是在服务器端运行的，所以客户端不需要安装任何东西。这仅仅是用ActiveX DLL所能实现的功能的小小的例子。

[分享]汽车相关PNG素材下载

xiuhuashuai@gmail.com (xiuhuashuai) — Mon, 07 Apr 2008 13:54:33 +0800

收集了一些可以拿来直接使用的汽车相关PNG图片素材。
预览：

点此下载

好用的NOD32升级服务器

xiuhuashuai@gmail.com (xiuhuashuai) — Thu, 03 Apr 2008 10:13:33 +0800

http://nod32.areone.cn
速度很快，很稳定
更新也很及时。推荐大家使用。

服务器好了，北京归来

xiuhuashuai@gmail.com (xiuhuashuai) — Sun, 23 Mar 2008 11:17:29 +0800

我从北京回来了，今天早上到的赤峰，服务器不是很顺利，硬件出了些毛病，宕机一周才恢复正常，不过还好，总算恢复了正常。
一身疲惫，今天好好休息一天，明天恢复正常！

年过完了，修整一下，继续上路！

xiuhuashuai@gmail.com (xiuhuashuai) — Fri, 22 Feb 2008 09:48:35 +0800

半个月的时间，年总算都过完了，现在OK，没有其他的事情骚扰，终于可以专心的工作了！
修整一下。继续前进！

兄弟们，友谊长存，一路顺风

xiuhuashuai@gmail.com (xiuhuashuai) — Wed, 20 Feb 2008 09:17:42 +0800

昨天晚上是08年春节阶段兄弟们的最后一次相聚，再有几天，大家就要各奔东西，各忙各的了。
回忆了好多童年时候的趣事，很怀念那段无忧无虑的时光，那个时候似乎从来都没有想过大家未来的这么多种可能性。
但是昨夜酩酊之间那片刻的宁静，能感觉到大家都在心里隐隐慨叹光阴的流逝竟如此无情。

一些酒，一些歌，一些欢笑，一些回忆，时隔多年未见的老友再见面已经有些语塞，但友谊之树长青。
我们都还年轻，路也还很长。
朋友们，一路顺风，一路顺风...