新方法爆出!!跟suiran一起来注册微软的邮箱'@live.com'!
作者:随然 日期:2006-11-10
Update:更新代码,提供更多域名,包括live.cn
Update:其实大家研究一下代码,连suiran@microsoft.com都被我注册到了,不过它不能用于Windows Live的任何服务,具体方法不讲了,Bill很生气,后果很严重 :)
1. 进入 这个页面 开始注册.
2. 点击注册按钮,进入下一个界面
3.复制如下代码到你的地址栏中,回车
点击查看代码
烟、酒、迪吧!
作者:随然 日期:2006-11-08
这段时间都不能吃上火的东西,就连面条和面包之类的东西都不能吃,所以只好骑车到很远的“德阳人民商场”买了点米糕回来。可回来才知道今天临时停电。这日子真实难熬啊,一停电就不知道做什么好了。在外面来回逛了半个小时也不知道往哪里走,感觉没什么好玩的地方。后来随便拉几个人聊下天,然后就回寝室了,没有蜡烛,只好在椅子上坐着等来电。
一个同事跑下来,拉我到迪吧去玩一下。其实那个地方我不是很想去,以前去过几次,都感觉不怎么舒服,耳朵受不了。我这几天不能喝酒,所以我就在那里乱跳,他们两个同事在那里战斗。不知道什么时候,有个同事居然看到有几个学生也在这里面,那几个学生也过来和他们一起喝酒。我一看,吓我一跳,居然里面有一个也是我的学生。真实太搞笑了,居然他也来这里玩。抽烟、喝酒,比我厉害多了,还搞了一支雪茄过来抽。我说了他两句,希望他早点回去。这个地方有点乌烟瘴气,毒害青少年啊。站在台上跳舞的几个女孩也少女般模样,估计还在上高中或者高中刚毕业吧。我破例似的抽了4支烟,想到了很多东西。这个社会,钱这东西确实害人。本来是成年人的世界,而老板为了赚钱也让小孩子过早的涉足这些东西。
从初一开始
作者:随然 日期:2006-11-06
系统不能上网,但能PING通网关的解决办法。
作者:随然 日期:2006-11-06
问题原因:WinSock2故障,或者文件遭到破坏。
解决办法:使用超级兔子IE修复专家,里面有一个工具“强力修复WinSock2”,点击运行即可修复WinSock2的问题。重新启动电脑就可以上网了。
后记:第一次遇到这个问题,在网上查了很多资料,知道是WinSock2的问题,下载了很多修复WinSock2的工具,虽然提示修复成功,但最后还是上不了网,搞得很郁闷。记得那次因为这个问题,差点搞了一天一夜,从第一天中午一直搞到第二天中午,晚上只休息了4个小时。最后没办法还是重新安装系统了。
教师无购买能力?
作者:随然 日期:2006-11-06
我也是教师,想起来真是悲哀。在所有事业单位里,教师的收入确实是最低的。教师里面虽然也有一些有钱人,不过都不是靠教书赚的钱,都是家里另一半在赚钱,自己就把教书当作一个爱好了,赚不到钱无所谓。不过我观察了一下很多老师,两夫妻都教书的话,生活过得确实不怎么好。教书确实没多少意思,和我们一起来的两个年轻人在工作两年后就辞职了,当时他们可能也有这...
如何给 URL地址栏中的参数加密、解密?
作者:随然 日期:2006-03-10
加密写法URLEncode(str)
二、自己编写函数进行加密和解密
解密代码
<%
Function URLDecode(enStr) 'URL解碼函數
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if v<128 then
deStr=deStr&chr(v)
i=i+2
else
if isvalidhex(mid(enstr,i,3)) then
if isvalidhex(mid(enstr,i+3,3)) then
v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
deStr=deStr&chr(v)
i=i+5
else
v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
deStr=deStr&chr(v)
i=i+3
end if
else
destr=destr&c
end if
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
end function
function isvalidhex(str)
isvalidhex=true
str=ucase(str)
if len(str)<>3 then isvalidhex=false:exit function
if left(str,1)<>"%" then isvalidhex=false:exit function
c=mid(str,2,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
c=mid(str,3,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
end function
%>
在数据库中不用 EOF 以加快记录循环
作者:随然 日期:2005-09-29
combo1.additem records![Full Name]
records.movenext
loop
结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下, 浪费的时间相当大。 而使用以下的代码, 可以提高近 1/3 的速度:
intRecCount=records.RecordCount
records.movefirst
for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter