asp密码提交后在服务端检查弱口令的函数

最新推荐文章于 2021-02-12 07:30:57 发布

无·法

最新推荐文章于 2021-02-12 07:30:57 发布

阅读量751

点赞数

分类专栏：作品工作

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

版权

作品同时被 2 个专栏收录

70 篇文章 5 订阅

订阅专栏

工作

47 篇文章 1 订阅

订阅专栏

<!DOCTYPE html>
<html lang="en">
<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></style>
<body>
	<form action="" method="post">
<input type="text" name="pass"><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"
	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>

无·法

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
打赏
0
评论
asp密码提交后在服务端检查弱口令的函数

<!DOCTYPE html><html lang="en"><head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width,initial-scale=1,shrink-to-fit=no"> <link rel="styl...
复制链接

扫一扫