系统不能上网，但能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
%>
