主人呢絨-加入會員
<%
'----------------------------新增資料開始----------------------------
If Request.QueryString("movement")="add" then
ok=true
if request.form("a")<>"" then
a=request.form ("a")
else
%>
<%
ok=false
end if
'check username if it repeat
Set rs = Server.CreateObject("ADODB.Recordset")
Sql_username = "select * from member where m_mail='"& request("a") &"'"
rs.Open Sql_username,conn,3,3
if not rs.eof then
%>
<%
ok=false
end if
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 ", conn, 1, 3
rs.addnew
rs("m_mail")=a
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("m_identify")=0
rs.update
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "Select * From member2 ", conn, 1, 3
for qqq=1 to 8
rs2.addnew
rs2("m2_mid")=rs("m_id")
rs2("m2_qid")=qqq
if request.form("q"&qqq)="" then
%>
<%
else
rs2("m2_qan")=request.form("q"&qqq)
end if
rs2.update
next
'rs("g_ip")=request.ServerVariables("REMOTE_ADDR")
Session("user")= rs("m_mail")
session("idd")=rs("m_id")
session("aaa")= date()
%>
<%
end if
end if
'----------------------------新增資料結束----------------------------
%>