New_Password = request("New_Password")
Confirm_Password = request("Confirm_Password")
if not IsNot(New_Password,"s") then
response.write "您输入的密码为空,请重新输入。"
response.end
end if
if New_Password Confirm_Password then
response.write "两次输入的密码不相同,请重新输入。"
response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "update Employee set Password = '" & New_Password & "' where Employee_ID = " & Session("Employee_ID")
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing
response.write "新密码已经生效!"
Server.Transfer "password.asp"
%>