ASPWebPack代码提供下载
代码如下:dim pwd pwd=inputbox(“请输入新密码:”,”更改密码”,”yulv.net”) if pwd<>”” then pwd=PwdConv(pwd) inputbox “您的新密码编码是:” & vbcrlf & “请将新的编码替换到程序中的密码项！”,”密码编码”,pwd else msgbox “您没有输入新密码,系统无法帮您转换!” end if function PwdConv(byval spwd) dim i,ref,value,ltmp ltmp=0 for i = 1 to lenb(spwd)
文件大小：31.39KB
评论区