cbec.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<!--#include file="../manager/function/conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="../safe_mem.asp"-->
<%

mem_name=session("mem_name")

action=request("action")
pwd = request.Form("pwd")
'response.write pwd

'response.write session("mem_name")

set rs=server.CreateObject("adodb.recordset")
sql="select * from tmember where mem_loginname = '"&mem_name&"'"
rs.open sql,conn,1,3
 if not rs.eof then
  password=rs("mem_loginpasd")
  if trim(password) = trim(pwd) then
  
	mem_sex=trim(request("mem_sex"))
	mem_email=trim(request("mem_email"))
	mem_name=trim(request("mem_name"))
	mem_province=trim(request("mem_province"))
	mem_city=trim(request("mem_city"))
	mem_zip=trim(request("mem_zip"))
	mem_addr=trim(request("mem_addr"))
	mem_tel=trim(request("mem_tel"))
	mem_mobile=trim(request("mem_mobile"))
	mem_fax=trim(request("mem_fax"))
	mem_both=trim(request("mem_both"))
	mem_cid=trim(request("mem_cid"))
	mem_company=trim(request("mem_company"))
	mem_CardID=trim(request("Mem_CardID"))
	mem_IDCARD=trim(request("mem_IDCARD"))
	mem_remark=trim(request("mem_remark"))
	
	rs("mem_email")=testdb(mem_email)
	rs("mem_sex")=testdb(mem_sex)
	rs("mem_city")=testdb(mem_city)
	rs("mem_name")=testdb(mem_name)
	rs("mem_addr")=testdb(mem_addr)
	rs("mem_tel")=testdb(mem_tel)
	rs("mem_mobile")=testdb(mem_mobile)
	rs("mem_CardID")=testdb(mem_CardID)
	rs("mem_IDCARD")=testdb(mem_IDCARD)
	rs("mem_province")=testdb(mem_province)
	rs("mem_zip")=testdb(mem_zip)
	rs("mem_both")=testdb(mem_both)
	rs("mem_cid")=testdb(mem_cid)
	rs("mem_company")=testdb(mem_company)
	rs("mem_fax")=testdb(mem_fax)
	rs("mem_remark")=testdb(mem_remark)
	rs.update
rs.close
set rs=nothing
  
  response.Write "<script language='javascript'>alert('核对密码有效！资料修改成功！');window.location.href='amend.asp';</script>"
 
else

 response.Write "<script language='javascript'>alert('密码错误,您不能更改资料.');window.location.href='amend.asp';</script>"
  
end if
end if
%>
<%

'rs.close
'set rs=nothing
call conn_close()
%>