<%
If Session("KepuLogOn_OK") < 1 then Response.Redirect "error.asp?id=2"
If Session("User_ID")="" then Response.Redirect "error.asp?id=3"
send = Request("send")
If send = "ok" Then
password1 = Request("password1")
password2 = Request("password2")
If Len(password1)<3 then message="错误提示：您输入的密码有误，要求三位以上，请重新输入"
If password1 <> password2 then message="错误提示：您两次输入的密码不一致，请重新输入"
If message="" then
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("database/member_info.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="select username, password from User where ID=" & Session("User_ID")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql , conn, adOpenDynamic, 3
If Not rs.Eof then
If password1 <> "" then rs("password")=password1
rs.Update
message="提示：密码修改成功！"
End If
End If
Else
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("database/member_info.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="select username, password from User where ID=" & Session("User_ID")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
End If
%>
::苏州科普之窗::--会员登录
