给注册用户填写和修改密码增加“密码强度”的方法(2)_动易Cms教程

.cssWeak{background-color:#FF4545;border-right:solid 1px #BB2B2B;border-bottom:solid 1px #BB2B2B;}
.cssMedium{background-color:#FFD35E;border-right:solid 1px #E9AE10;border-bottom:solid 1px #E9AE10;}
.cssStrong{background-color:#3ABB1C;border-right:solid 1px #267A12;border-bottom:solid 1px #267A12;}
.cssPWT{width:132px;}
</STYLE>
<table class=cssPWT style="HEIGHT: 16px" cellSpacing=0 cellPadding=0>
<tr vAlign=bottom>
<td class=cssPWD id=idSM1 align=middle style="FONT-SIZE: 1px">&nbsp;</SPAN><SPAN id=idSMT1 style="DISPLAY: none">弱</SPAN></td>
<td class=cssPWD id=idSM2 style="BORDER-LEFT: #fff 1px solid" align=middle style="FONT-SIZE: 1px">&nbsp;</SPAN><SPAN id=idSMT0 style="DISPLAY: inline; FONT-WEIGHT: normal; COLOR: #666">无</SPAN><SPAN id=idSMT2 style="DISPLAY: none">中</SPAN></td>
<td class=cssPWD id=idSM3 style="BORDER-LEFT: #fff 1px solid" align=middle style="FONT-SIZE: 1px">&nbsp;</SPAN><SPAN id=idSMT3 style="DISPLAY: none">强</SPAN></td>
</tr>
</table>
</td>
</tr>
<tr>
<tr class=left_tdbgall>

2、给会员中心的修改密码也加入“密码强度”：在User\User_Info.asp文件中查找以下代码：

Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td align='right' class='tdbg5'>新 密 码：</td>" & vbCrLf
Response.Write " <td> <input name='Password' type='password' maxLength='16' size='30'> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf

改为：

Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td align='right' class='tdbg5'>新 密 码：</td>" & vbCrLf
Response.Write " <td> <input name='Password' type='password' onkeyup='javascript:EvalPwdStrength(document.forms[0],this.value);' onmouseout='javascript:EvalPwdStrength(document.forms[0],this.value);' onblur='javascript:EvalPwdStrength(document.forms[0],this.value);' maxLength='16' size='30'> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf

并在其下面添加以下代码：

Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td align='right' class='tdbg5'>密码强度：</td>" & vbCrLf
Response.Write " <td> <script language='JavaScript' src='../admin/PwdStrength.js'></script>" & vbCrLf
Response.Write " <script language='JavaScript'>" & vbCrLf
<!--
Response.Write " window.onerror = ignoreError;" & vbCrLf

查看更多 动易Cms教程  动易Cms模板