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,