If e.Form.Controls("PassWord").Value = dr("Password") Then
改成
If dr("Password") = MD5Encrypt(e.Form.Controls("PassWord").Value) Then