<%@ Language="VBScript" codepage=65001%>
主人呢絨-修改會員
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from member where m_mail='"& request("user") &"' and m_id="&request("idd")
rs.Open Sql,conn,3,3
Set rsq = Server.CreateObject("ADODB.Recordset")
sqlq = "select * from member2 where m2_mid= " & request("idd")
rsq.Open Sqlq,conn,3,3
'----------------------------新增資料開始----------------------------
If Request.QueryString("movement")="edit" then
ok=true
if request.form("b")<>"" then
b=request.form ("b")
else
%>
<%
ok=false
end if
if request.form("c")=b then
c=request.form ("c")
else
%>
<%
ok=false
end if
if request.form("i")<>"" then
i=request.form ("i")
else
%>
<%
ok=false
end if
if request.form("e1")<>"" then
iyear=request.form ("e1")
else
%>
<%
ok=false
end if
if request.form("e2")<>"" then
imonth=request.form ("e2")
else
%>
<%
ok=false
end if
if request.form("e3")<>"" then
iday=request.form ("e3")
else
%>
<%
ok=false
end if
if request.form("f")<>"" then
f=request.form ("f")
else
%>
<%
ok=false
end if
'if request.form("g1")<>"" then
' g=request.form ("g1")
'else
%>
<%
'ok=false
'end if
if request.form("h")<>"" then
h=request.form ("h")
else
%>
<%
ok=false
end if
if ok=true then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From member where m_id="&session("idd") , conn, 1, 3
rs("m_password")=b
rs("m_name")=i
rs("m_sex")=d
rs("m_birthday")=iyear&"/"&imonth&"/"&iday
rs("m_address")=f
rs("m_phone")=g
rs("m_job")=h
rs("m_date")=date()
rs.update
'rs("g_ip")=request.ServerVariables("REMOTE_ADDR")
Session("user")= rs("m_mail")
session("idd")=rs("m_id")
session("aaa")= date()
session("identify")=rs("m_identify")
%>
<%
end if
end if
'----------------------------新增資料結束----------------------------
%>
