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

最新推荐文章于 2023-10-25 17:37:16 发布

无·法

最新推荐文章于 2023-10-25 17:37:16 发布

阅读量1.8k

点赞数

分类专栏：作品学习

本文链接：https://blog.csdn.net/sysdzw/article/details/90650370

版权

学习同时被 2 个专栏收录

115 篇文章 6 订阅

订阅专栏

作品

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>