晓峰居

PHP博客 首页 新随笔 联系 聚合 管理
  6 Posts :: 0 Stories :: 0 Comments :: 0 Trackbacks

2006年7月21日 #

在使用windows应用程序的过程中我们都知道,很多按钮不需要我们点击鼠标选择,只需要按Alt+字母就能直接访问了,是不是很专业呢?其实这在网页当中一样能实现,不知道您以前是否注意过.

要实现这样的功能,那得使用HTML4.0定义的一个新属性 AccessKey,将他的值设置为您定义的键盘热键就可以了.

比如

<!-- 作者:环球万维,http://www.netInter.cn,专业提供域名注册虚拟主机服务
以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.
-->

<input type=submit name=submit1 AccessKey=o value="确定[o]">

这样,用户打开您的网页后,就可以直接按键盘上的Alt+o来点击"确定"了,怎么样?很cool吧:)不过要注意,你定义的热键不要与IE的热键冲突,比如(F,E,V,A,T,H).马上试试吧...

posted @ 2006-07-21 17:45 XiaoFeng| 编辑 收藏

当我们有时候需要让计算机自动重新启动或关闭时,往往使用一些自动关机软件才可以实现,但这些软件除了需要安装外,很多还需要收费. 并且也不乏安装后无法成功运行的情况.
其实您完全不需要付费购买任何第三方软件来实现自动关机或重启,用一个简单的vbscript就可以了
将下边的代码存入文件shutDown.vbs,再在该文件所在的目录中建立一个shut.bat的批处理文件,最后设置一个任务计划定时运行shut.bat就能实现定时关闭计算机或重新启动了.即简单又经济,何不试试呢:)
------------------------------------------------
shut.bat的内容:

cscript shutDown.vbs

------------------------------------------------
shutDown.vbs的内容

'程序设计,环球万维
'http://www.netInter.cn,专业提供域名注册虚拟主机服务
'以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.

'DownFlag是关机标志
'DownFlag=12 表示强制关闭计算机
'DownFlag=8 关闭计算机
'DownFlag=6 表示强制重新启动计算机
'DownFlag=2 表示重启计算机
'DownFlag=4 表示强制注销
'此处我们使用12,表示强制关闭计算机
DownFlag=12


set win32_OS=getobject("winmgmts:{(Shutdown)}//./root/cimv2").execQuery("select * from win32_operatingsystem where primary=true")
for each OS in win32_OS
OS.win32shutdown(DownFlag)
next
set win32_OS=nothing

posted @ 2006-07-21 17:45 XiaoFeng| 编辑 收藏

有时候我们需要判断某一个IP地址是否属于一个网段,以决定该用户能否访问系统.
比如用户登录的IP是218.6.7.7,而我们的程序必须判断他是否属于218.6.0.0/16这个网段(其中/16是新的子网掩码的表示方式,相当于255.255.0.0).
要实现这样的功能,现在流行的算法是将218.6.0.0和218.6.7.7按256进制换算成10进制并进行比较得出,如先计算出218.6.0.0和218.6.255.255的十进制:218×256×256×256+6×256×256=3657826304,218×256×256×256+6×256×256+255×256×256+255=3657891839。再计算出218.6.7.7的十进:218×256×256×256+6×256×256+7×256+7=3657828103,最后再比较3657828103是否大于等于3657826304和小于等于3657891839。但明显有一个问题,计算量非常多,值非常大,如果IP地址是61开头的还好,如果是218开头的,这将会造成数据溢出而出错。
其实比较IP是否属于某一网段,最好的方式就是将IP与网段分别转为32位二进制,再比较他们的网络部分是否相同就可以了.asp本身不具备位运行功能,所以要实现这个只有我们手工实现,具体如下:

'将十进制转为二进制字符串
function dec2bin(octNumber)
vara=octNumber
do
dec2bin=cstr(vara mod 2) & dec2bin
vara=vara \ 2
loop until vara=0
end function

'将二进制字符串填充为8位
function pad(str)
pad=right("00000000" & str,8)
end function

'判断是否是一个IP地址
function isIp(ipadd)
isIp=false
set oReg=new RegExp
oReg.IgnoreCase=true
oReg.global=true
oReg.Pattern="(\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4})|(\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4}\/\d{1,2})"
if oReg.test(ipadd) then isIp=true
set oReg=nothing
end function

'其中UserIP是我们要检测的IP
'NetIP是要检测的网段或某个IP,用xxx.xxx.xxx.xxx/N来表示网段,其中N表示子网掩码位数
'注,该程序是环球万维原创程序,所以如果您要转载,请保留出处信息,谢谢.
'程序设计:环球万维,专业提供域名注册虚拟主机服务
'网址:http://www.netInter.cn
'以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.

Function check_ip(UserIp,NetIP)
currentip=UserIp
collection_ips=split(iplist,",") '将网络按点分割成4段
check_ip=false '初始函数值,false假设IP不在这网段
NetIP=trim(NetIP)
slashPos=inStr(NetIP,"/")
if slashPos=0 then '网段没含有/符号,他只是一个IP,所以比较比个字符串是否相同就可以了
if NetIP=currentip then
check_ip=true 'check_ip=true表示IP相等
exit function
end if
else
netRang=mid(NetIP,slashPos+1) '得到/后边的数字
if not isNumeric(netRang) then '/后边不是数字,格式不正确
exit function
end if
netRang=cint(netRang) '将字符转为数字
if netRang>31 then
exit function '/后的数字不能超过32位
end if
ipsets=split(currentip,".") '将用户IP按点分成四段

C_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
'上边这行是将用户IP地址手工转换为对应的一个32个字符长的二进制
ipsets=split(NetIP,".") '按上边的过程将网段IP同样转为32个字符长的二进制
sPos=instr(ipsets(3),"/") '最后一点格式应该是 数字/数字
if sPos=0 then
exit function
end if
ipsets(3)=left(ipsets(3),sPos-1) '得到最后一段/前边的数字
S_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
'将其转换为32个字符长的二进制
if left(C_IP_BIN,netRang) = left(S_IP_BIN,netRang) then '比较网段络是否相同就可以判断用户IP否属于某个网段了
check_ip=true
end if
end if
end function

应用举例:

要判断61.139.1.1是否在61.139.0.0/16 (255.255.0.0)这个网段
只需要简单的使用这个函数就可以了,如:

if check_ip("61.139.1.1","61.139.0.0/16") then
Response.write "同一网段"
else
Response.write "不是同一网段"
end if

posted @ 2006-07-21 17:44 XiaoFeng| 编辑 收藏

密码已经是我们生活工作中必不可少的工具,但一个不安全的密码有又有可能会给我们造成不必要的损失。作为网站设计者,如果我们在网页中能对用户输入的密码进行安全评估,并显示出相应的提示信息,那么对用户设置一个安全的密码将有很大帮助。同时也使得网站更具人性化,更有吸引力.
什么是一个安全的密码呢?本程序按以下的方式进行评估.
1.如果密码少于5位,那么就认为这是一个弱密码.
2.如果密码只由数字、小写字母、大写字母或其它特殊符号当中的一种组成,则认为这是一个弱密码.
3.如果密码由数字、小写字母、大写字母或其它特殊符号当中的两种组成,则认为这是一个中度安全的密码.
4.如果密码由数字、小写字母、大写字母或其它特殊符号当中的三种以上组成,则认为这是一个比较安全的密码.

具体程序如下(演示地址:http://www.netInter.cn/reg):

<script language=javascript>

//程序设计:环球万维,专业提供域名注册虚拟主机服务
//网址:http://www.netInter.cn
//本程序是环球万维原创程序,若需转载,请注明网址及出处,谢谢.
//以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.


//CharMode函数
//测试某个字符是属于哪一类.
function CharMode(iN){
if (iN>=48 && iN <=57) //数字
return 1;
if (iN>=65 && iN <=90) //大写字母
return 2;
if (iN>=97 && iN <=122) //小写
return 4;
else
return 8; //特殊字符
}

//bitTotal函数
//计算出当前密码当中一共有多少种模式
function bitTotal(num){
modes=0;
for (i=0;i<4;i++){
if (num & 1) modes++;
num>>>=1;
}
return modes;
}

//checkStrong函数
//返回密码的强度级别

function checkStrong(sPW){
if (sPW.length<=4)
return 0; //密码太短
Modes=0;
for (i=0;i<sPW.length;i++){
//测试每一个字符的类别并统计一共有多少种模式.
Modes|=CharMode(sPW.charCodeAt(i));
}

return bitTotal(Modes);

}

//pwStrength函数
//当用户放开键盘或密码输入框失去焦点时,根据不同的级别显示不同的颜色

function pwStrength(pwd){
O_color="#eeeeee";
L_color="#FF0000";
M_color="#FF9900";
H_color="#33CC00";
if (pwd==null||pwd==''){
Lcolor=Mcolor=Hcolor=O_color;
}
else{
S_level=checkStrong(pwd);
switch(S_level) {
case 0:
Lcolor=Mcolor=Hcolor=O_color;
case 1:
Lcolor=L_color;
Mcolor=Hcolor=O_color;
break;
case 2:
Lcolor=Mcolor=M_color;
Hcolor=O_color;
break;
default:
Lcolor=Mcolor=Hcolor=H_color;
}
}

document.getElementById("strength_L").style.background="/Lcolor";
document.getElementById("strength_M").style.background=Mcolor;
document.getElementById("strength_H").style.background=Hcolor;
return;
}

</script>

<form name=form1 action="" >
输入密码:<input type=password size=10 onKeyUp=pwStrength(this.value) onBlur=pwStrength(this.value)>
<br>密码强度:
<table width="217" border="1" cellspacing="0" cellpadding="1" bordercolor="#cccccc" height="23" style='display:inline'>
<tr align="center" bgcolor="#eeeeee">

<td width="33%" id="strength_L">弱</td>

<td width="33%" id="strength_M">中</td>

<td width="33%" id="strength_H">强</td>
</tr>
</table>

</form>

posted @ 2006-07-21 17:43 XiaoFeng| 编辑 收藏

我们在访问某些网站,特别是虚拟主机服务商的网站经常会看到一个速度测试的按钮,可以测试用户本地连接到某台服务器的连接速度,这样的程序其实也可以用asp轻松实现,具体如下:

<%
'程序设计:环球万维,专业提供域名注册虚拟主机服务
'http://www.netInter.cn
'此文章为环球万维原创,若需转载,请注明处出,谢谢。
'以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.

Const DataSize=100 '测试数据量,单位K,值越大,测试越精确,但速度越慢,推荐值100K左右
Response.Buffer=false

oneK=String(1024,"A")
TotalData=""
for i=1 to DataSize
TotalData=TotalData & oneK
next

Response.write "<html><head><title>速度测试程序</title></head><body>"
Response.write "<form name=form1><span align=center><input type=text id=Info size=30 value="/"速度测试中,请稍候.."" ReadOnly><input type=button name=reload value=""重新测试"" onClick=""location.reload();""></span></form>"
Response.write "<script language=javascript>function formatNumber(nu) { num=Math.floor(nu*100);num=num/100;return num;}</script>"
Response.write "<script language=javascript>var beginTime=new Date();</script><!--"
Response.write TotalData
Response.write "--><script language=javascript>var endTime=new Date();allTime=endTime.getTime()-beginTime.getTime();allTime=allTime / 1000;speed=formatNumber(" & DataSize & "/ allTime);document.getElementById(""Info"").value='连接到XX机房的速度:'+speed+'K/S';</script>"
Response.write "</body></html>"
%>

posted @ 2006-07-21 17:43 XiaoFeng| 编辑 收藏

程序设计中会经常碰到一种情况,就是事先无法得知用户会需要哪些数据,必须根据用户选择后再从服务器重新提取数据后反馈给用户。比如一简单的情况,用户选择省份以后,我们立即会在市里边将这个省的所有市重新显示出来。这种情况一般需要将整个页面刷新后才可以重新读取,但这样不仅效率不高外,也显得不太优雅。其实用javascript结合微软件的XMLHTTP对象,我们可以不用刷新,“稍稍”的就可以将数据从服务器上读取出来,显得既专业,又高效。
下面我们就以一个验证用户是否被注册的情况来演示这种技术。

'程序设计:环球万维,专业域名注册虚拟主机服务商
'网址:http://www.netInter.cn
'此程序为环球万维原创程序,所以如果您需转载,请注明出处,谢谢。
'以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.

1.首先在服务器上建立一个CheckUser.asp文件,用来检测用户是否存在,根据用户是否存在分别反馈0和1
u_name=Request.QueryString("u_name")
if u_name 存在 then
Response.write "0"
else
Response.write "1"
end if
2.客户端HTML设计:
一、JavaScript代码
<script language=javascript>
function check_user_exists(form){
u_name=form.u_name.value;
if (u_name==null||u_name==''){
alert("请您输入用户名");
return false;
}
infoBoard=document.getElementById("checkInfo");
infoBoard.innerText='查询中...';
myurl=location.protocol+"//"+location.hostname+"/CheckUser.asp?u_name="+u_name;
retCode=openUrl(myurl);
switch(retCode){
case "-2":
infoBoard.innerHTML='<font color=red>抱歉</font>,查询失败';break;
case "1":
infoBoard.innerHTML='<font color=red>恭喜</font>,'+u_name+'可以使用';break;
case "0":
infoBoard.innerHTML='<font color=red>抱歉</font>,用户名'+u_name+'已经被使用';
}
return;
}

function openurl(/url){
var objxml=new ActiveXObject("Microsoft.XMLHttp")
objxml.open("GET",url,false);
objxml.send();
retInfo=objxml.responseText;
if (objxml.status=="200"){
return retInfo;
}
else{
return "-2";
}
}
</script>
二、HTML表单设计:
<form name=form1 action="XXXX.asp" method="post">
<input type=text name=u_name><span id="checkInfo"></span><input type=button name=checkuser value="检测用户是否存在" onClick="check_user_exists(this.form);">
</form>

经过以上三步,一个不需要页面刷新的数据更新程序就完成了(演示地址:http://www.web9898.cn/reg),按此方法,可以实现很多会很酷的应用

posted @ 2006-07-21 17:42 XiaoFeng| 编辑 收藏

仅列出标题