SQL="SELECT UID,PWD FROM TABLE WHERE UID= UID AND PWD=PWD" '检查用户和原始密码
RS.OPEN ,SQL,CONN,3,1 '打开记录集
IF NOT RS.BOF AND NO RS.EOF THEN 如果有记录(用户和原始密码正确)
RS("PWD")=NewPwd 修改密码
rs.update 保存更新到数据库
End if
结束
先检查原始密码,然后修改密码可以使用ADO
SELECT UID,PWD FROM TABLE WHERE UID= UID AND PWD=PWD
RS.OPEN ,SQL,CONN,3,1
IF NOT RS.BOF AND NO RS.EOF THEN
RS("PWD")=NewPwd
rs.update
End if