asp密码复杂度检测的实现,用正则实现

71 篇文章 6 订阅
<!DOCTYPE html>
<head>
	<meta charset="UTF-8">
	<meta name="viewport" content="width=device-width,initial-scale=1,shrink-to-fit=no">
	<link rel="stylesheet" href="http://at.alicdn.com/t/font_626784_0j006ef09vff.css">
	<script src="https://cdn.staticfile.org/jquery/1.11.2/jquery.min.js"></script>
	<title>asp密码复杂度函数</title>
</head>
<style>
input{width:600px; height: 50px; line-height: 50px; font-size: 16px; font-family:微软雅黑;}
</style>
<body>
	<form action="" method="post">
<input type="text" placeholder="请输入密码,长度要求8位以上,必须包含数字、字母及特殊字符" name="pass" value="<%=request("pass")%>">
<br><input type="submit" id="tijiao" value="提交">
</form>
</body>
<%
if request("pass")<>"" then
	response.write checkPass(request("pass"))
end if
function checkPass(strPass)
	dim strReturn
	if len(strPass)<8 then
		strReturn="密码长度必须八位以上"
	elseif not regTest(strPass,"[a-zA-Z]") then
		strReturn="密码必须包含字母"
	elseif not regTest(strPass,"\d") then
		strReturn="密码必须包含数字"
	elseif not regTest(strPass,"[~!@#$%^&*`()_+=/<>,./?:"";'\-\\\{\}\[\]]") then
		strReturn="密码必须包含特殊字符"
	else
		strReturn="ok 提交过来的数据是:" & strPass
	end if
	checkPass=strReturn
end function

function regTest(str1,strPattern)
    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = strPattern
    regTest= reg.test(str1)
	set reg=nothing
End function
%>
</html>

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

无·法

别打赏了,这C币又不能买咖啡

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值