Untitled Document
<%if request.QueryString("action")="save" then%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_admin where admin=';"&session("admin")&"';",conn,1,3
if md5(trim(request("password")))<>rs("password") then
response.Write ""
response.End
else
rs("password")=md5(trim(request("password2")))
rs.Update
rs.Close
set rs=nothing
session("admin")=""
session("flag")=""
response.Write ""
end if
response.End
end if
%>
