系统不能上网，但能PING通网关的解决办法。
作者:随然 日期:2006-11-06
这段时间遇到两次这样的问题：ADSL可以正常连接，但连接后无法上网，使用PING命令能PING通网关。
问题原因：WinSock2故障，或者文件遭到破坏。
解决办法：使用超级兔子IE修复专家，里面有一个工具“强力修复WinSock2”，点击运行即可修复WinSock2的问题。重新启动电脑就可以上网了。
后记：第一次遇到这个问题，在网上查了很多资料，知道是WinSock2的问题，下载了很多修复WinSock2的工具，虽然提示修复成功，但最后还是上不了网，搞得很郁闷。记得那次因为这个问题，差点搞了一天一夜，从第一天中午一直搞到第二天中午，晚上只休息了4个小时。最后没办法还是重新安装系统了。
查看更多...
问题原因：WinSock2故障，或者文件遭到破坏。
解决办法：使用超级兔子IE修复专家，里面有一个工具“强力修复WinSock2”，点击运行即可修复WinSock2的问题。重新启动电脑就可以上网了。
后记：第一次遇到这个问题，在网上查了很多资料，知道是WinSock2的问题，下载了很多修复WinSock2的工具，虽然提示修复成功，但最后还是上不了网，搞得很郁闷。记得那次因为这个问题，差点搞了一天一夜，从第一天中午一直搞到第二天中午，晚上只休息了4个小时。最后没办法还是重新安装系统了。
教师无购买能力？
作者:随然 日期:2006-11-06
昨天中午看了一个新闻，说的是一些北京的旅行社低价吸引游客旅游，然后带游客到珠宝店购买珠宝、首饰，然后收取回扣。虽然是旅游价格比较低，但他们从回扣中赚钱。不过他们的规定里面还有一项，说的是：老人、教师、儿童都需要额外多交500～800元不等的费用。记者暗访，问他们为何要多收取这笔费用呢？那个负责人说：老人、教师、儿童没有多少购买能力！言外之意就是说如果带他们到珠宝店去，都买不了多少珠宝，旅行社就无法从他们身上吃到回扣，所以就要多收一笔费用。
我也是教师，想起来真是悲哀。在所有事业单位里，教师的收入确实是最低的。教师里面虽然也有一些有钱人，不过都不是靠教书赚的钱，都是家里另一半在赚钱，自己就把教书当作一个爱好了，赚不到钱无所谓。不过我观察了一下很多老师，两夫妻都教书的话，生活过得确实不怎么好。教书确实没多少意思，和我们一起来的两个年轻人在工作两年后就辞职了，当时他们可能也有这...
我也是教师，想起来真是悲哀。在所有事业单位里，教师的收入确实是最低的。教师里面虽然也有一些有钱人，不过都不是靠教书赚的钱，都是家里另一半在赚钱，自己就把教书当作一个爱好了，赚不到钱无所谓。不过我观察了一下很多老师，两夫妻都教书的话，生活过得确实不怎么好。教书确实没多少意思，和我们一起来的两个年轻人在工作两年后就辞职了，当时他们可能也有这...
如何给 URL地址栏中的参数加密、解密？
作者:随然 日期:2006-03-10
一、URLEncode加密和解密
加密写法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
%>
复制内容到剪贴板
程序代码
程序代码加密写法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
通常我们使用以下的代码进行记录循环：
结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下， 浪费的时间相当大。 而使用以下的代码， 可以提高近 1/3 的速度：
复制内容到剪贴板 程序代码
程序代码Do while not records.eof
combo1.additem records![Full Name]
records.movenext
loop
combo1.additem records![Full Name]
records.movenext
loop
结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下， 浪费的时间相当大。 而使用以下的代码， 可以提高近 1/3 的速度：
复制内容到剪贴板 程序代码
程序代码records.movelast
intRecCount=records.RecordCount
records.movefirst
for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter
intRecCount=records.RecordCount
records.movefirst
for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter
IIS6.0服务器架站无法访问解决方案总结
作者:随然 日期:2005-08-26
很多朋友在用IIS6架网站的时候遇到不少问题，而这些问题有些在过去的IIS5里面就遇到过，有些是新出来的，俺忙活了一下午，做了很多次试验，结合以前的排错经验，做出了这个总结，希望能给大家帮上忙。
如果你的服务器是2003的，它默认只支持.net,不支持asp所以须进行以下操作：
打开iis6.0里面的本地计算机->web服务扩展
把active server pages 允许就行了。
问题1：未启用父路径
症状举例：
Server.MapPath() 错误 'ASP 0175 : 80004005'
不允许的 Path 字符
/0709/dqyllhsub/news/OpenDatabase.asp，行 4
在 MapPath 的 Path 参数中不允许字符 '..'。
原...
购房的秘诀!
作者:随然 日期:2005-08-12
1、大家购房所付的保险费其实是可以打八五折的，不要在售楼处买保单，外面的保险公司都可以为你打折。
2、现在高价房根本不用首付三成，但是你不要去找大银行，找像民生、浦发等小行，你完全可以办成8成贷款，四大银行每年都要被央行来查，所以他们很少违规，但小银行却可以不受限制。
3、开盘绝对没有好房子，好的房子全部被保留，然后每个月推出几套，但单价升得很快，要么就是你有关系，才给你好的房子。
4、广告没有一个是真的，千万别相信其中的外立面颜色，很多造出来比画的难看多了。
5、售楼员会用许多方法来逼你买房（业内叫sp），让你无时无刻感到紧张，这时你千万要冷静。要自己看中才买。
6、别以为高层中的九到十一楼不错，那你大错了，这些楼层正好是扬灰层，脏空气到这个高度就会停顿，这一点他们是不会告诉你的。
7、别对景观抱太大希望，树和草是在交房前一个月从外地买来直接插土进去的...
肝癌的最新发现! 早点睡觉, 请大家告诉大家
作者:随然 日期:2005-08-12
台大医院医师最近掀起一股超音波检查热，原因是该院一 位才37岁的主治医师就是因为太过仰赖肝功能指数检查（GOT、GPT），却在春节前被检出已有10公分肝癌！且肝已被撑破！
临床上有太多人都迷信肝功能指数，以为指数正常就一切OK，这样的误解，连很多专业医师都会犯，这些平时要民众建立正确保健常识的医生，自己的常识竟还不正确。肝癌的预防要好，早期检出、早期治疗是不二法则许金川表示，医生对肝病的防治都可能发生错误认知，更遑论一般民众了；这也是肝癌为何如此难以治疗的最大原因。
日前，许医师门诊也是有位病人，最近一个月经常肚子痛而且体重也减轻了不少；经超音波检查发现，肝脏部位有一个很大的肝癌，几乎80%的肝脏都「吃」掉了。病人大吃一 惊，直呼「怎么可能？去年才做健康检查，结果都是正常的，怎么可能才短短的一年，就长出这么大的肝癌？」
原来病人接...
临床上有太多人都迷信肝功能指数，以为指数正常就一切OK，这样的误解，连很多专业医师都会犯，这些平时要民众建立正确保健常识的医生，自己的常识竟还不正确。肝癌的预防要好，早期检出、早期治疗是不二法则许金川表示，医生对肝病的防治都可能发生错误认知，更遑论一般民众了；这也是肝癌为何如此难以治疗的最大原因。
日前，许医师门诊也是有位病人，最近一个月经常肚子痛而且体重也减轻了不少；经超音波检查发现，肝脏部位有一个很大的肝癌，几乎80%的肝脏都「吃」掉了。病人大吃一 惊，直呼「怎么可能？去年才做健康检查，结果都是正常的，怎么可能才短短的一年，就长出这么大的肝癌？」
原来病人接...
