individual.asp

1。超强文件读写锁定

<%'创建时间:2004/07/04
'创建人:
'功能:用于会员修改其个人密码
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<%Me_pass=request.form("Me_pass")
 set Pass_rs=server.createobject("adodb.recordset")
 Pass_sql="Select Agent_password, Agent_name from  Agent where Agent_name='"&session("A_name")&"'"
 Pass_rs.open Pass_sql,conn,1,3
 Pass_rs("Agent_password")=Me_pass
 Pass_rs.update
 Pass_rs.close
  set Pass_rs=nothing
  response.redirect "Information.asp"
%>