博文
家明Flash播放器(2005-11-08 11:25:00)
摘要：昨天从网上找了一些三国系列的Flash，但是没装播放工具，所以今天早上做了一个简单的，本程序功能简单,使用方便,可以播放swf文件，作为个人播放Flash的小工具还是比较方便的，安装包16m大小，欢迎和我一起交流。......
高考零分作文（七）转自xine(2005-09-01 10:48:00)
摘要：(七) 今年重庆高考作文题目
一位登山队员参加攀登珠穆朗玛峰的活动，在海拔8000米的高度，他感觉体力不支，停了下来。后来当他讲到这段经历时，大家都替他惋惜，为何不再坚持一下呢？再咬紧一下牙关，再攀一点高度！“不。我最清楚，海拔8000米是我登山生涯的最高点，我一点都没有遗憾。”他说。
在这则材料中，登山队员对自我的认识与“大家”对他的期望是不一致的。在现实生活中，自我认识与他人期望有时一致，有时不一致，一致和不一致都值得我们深思。请就“自我认识与他人期望”这个话题，写一篇800字左右的文章，文体不限。(60分)
我是一只想死的“老鼠”
这些天，我一直为自己该怎样死而焦虑不安，我的身体极度不适，但我没上医院，因为前几年有位算命先生告诉过我，我命绝今年，如果挨过了今年，还有几百个日日夜夜。
经过深思熟虑，我还是选择上街让人打死。
这些年，我愧对人类，把人们用血汗换来的粮食弄进我的黑洞温柔乡，我有十几幢别墅，而且每一个都养着“小蜜”，我怕光，更不敢走在大街上，“老鼠上街，人人喊打”嘛，我现在终于认识到自己的错误，就让我的死来向人们陪罪吧！也许后来“鼠”作个惩戒。
一个小时、两个小时过去了，可是没有人喊打，连看都没人看我一眼，我慢慢地走着，等待着死亡的降临。
我挡住了一个花枝招展的小姐，我想让他大喊大叫，让那些“英雄救美”的人把我打死，我搂着她的腰说：“我要非礼你！”
那位小姐不但没有喊，还报我一个媚眼说：“看你这派头，不是大款就是大官，我傍你。”
往日听起来的甜蜜的话，今日听起来如此的刺耳，我丢开她，抱头鼠窜，我想这就是她期望的吧！
我跑远了，她还在不停地问“电话多少”……
对面向我走来一位老太婆，我想她年龄大，社会阅历丰富，一定能认出我是一只“老鼠”。
可是她与我平静的擦肩而过，我忙抓住她的袖子说：“难道你认不出我是只老鼠吗？”
你是“老鼠”与我有什么关系？现在街上贼眉鼠眼的人多着呢！别烦我，我还要去买菜。她袖子一甩，像年轻了许多似析，飞一般地走了。
......
ado连接dbf文件的方法(2005-09-01 10:29:00)
摘要：写这篇文章的目的就是让像我一样的初学者不要走太多弯路，起初我用的是data控件来连接dbf文件，在用的过程中发现经常出现错误，感觉data控件很不稳定，后来用ado来操作一点问题都没有了，特贡献给大家参考
Public DBFcon As New ADODB.Connection
'打开DBF文件
Public Function OpenDBF(DirPath As String) As Boolean
On Error GoTo err
DBFcon.open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" + DirPath + ";SourceType=DBF; "
OpenDBF = True
Exit Function
err:
OpenDBF = False
MsgBox err.Description
End Function
‘关闭dbf文件
Public Sub CloseDBF()
If DBFcon.state = adStateOpen Then DBFcon.Close
End Sub
’执行select ，update，delete 操作
Public Function ExeDBF(sql As String, rs As ADODB.Recordset) As Boolean
On Error GoTo err
rs.open sql, DBFcon, adOpenKeyset, adLockOptimistic
ExeDBF = True......
我的登陆密码的加密方法(2005-09-01 10:14:00)
摘要：这个函数不能实现两次异或得到原字符串，数据库里存储的是一个16进制字符串
这个加密算法比较简单，我的思路就是把登陆的密码和一个密钥进行异或，异或的结果转换为16进制串保存到数据库中，在程序登陆的时候把用户输入的登陆密码进行同样的处理，和数据库中保存的结果对比，如果相同则正确，不同则提示错误。
'加密函数
Public Function Encrypt(StrEncrypt As String) As String
Dim x, y As Integer
Dim C1, C2,C3 As String
Dim CodeWord As String'密钥
Dim KeyLen As Integer'密钥长度
Dim strEncryptLen As Integer‘需要加密的字符串的长度
Dim Num As Integer 'xor后的值
Dim HexNum As String '16进制字符串
Dim HexNumLen As Integer
On Error GoTo err
strEncryptLen = Len(StrEncrypt) '字符串长度
CodeWord = "zhaojiaming"
KeyLen = Len(CodeWord)
Encrypt = ""
For x = 1 To strEncryptLen
&nbs......