📄 changepwd.asp
字号:
<%
Function changePWD(OldPassword)
Dim I,NewPassword,tempStr,tempNum
NewPassword=""
'从第1位字符开始依次处理后,放到新密码中
For I=1 To Len(OldPassword)
tempStr=Mid(OldPassword,I,1) '读取第I位字符
tempNum=Asc(tempStr)+10 '返回第I位字符的ASCII码,并加1
tempStr=Chr(tempNum) '返回变化后的第I位字符
NewPassword=NewPassword & tempStr '加到新密码后面
Next
changePWD=NewPassword '返回函数值
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -