<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
无标题文档
<%
'member_id=request.form("hid_id")
'usercode=request.form("txt_username")
'password=request.form("txt_userpass")
XingMing=request.form("txt_xingming")
if xingming="" then
response.Write("")
response.End()
end if
txt_sex=request.form("rad_sex")
txt_title=request.form("txt_title")
if txt_title="" then
response.Write("")
response.End()
end if
txt_guojia=request.form("txt_guojia")
if txt_guojia="" then
response.Write("")
response.End()
end if
txt_huzhao=request.form("txt_huzhao")
txt_jigou=request.form("txt_jigou")
if txt_jigou="" then
response.Write("")
response.End()
end if
txt_youbian=request.form("txt_post")
'txt_zhuce=date()
txt_mail=request.form("txt_mail")
if txt_mail="" then
response.Write("")
response.End()
end if
txt_tel=request.form("txt_tel")
txt_fax=request.form("txt_fax")
txt_dizhi=request.form("txt_address")
txt_peitong=request.form("txt_peitong")
txt_research=request.form("txt_research")
txt_come=request.form("txt_come")
txt_leave=request.form("txt_leave")
'txt_room=request.form("txt_room")
'txt_day=request.form("txt_day")
txt_food=request.form("chk_food")
txt_session=request.form("sel_session")
txt_item=request.form("txt_item")
if instr(txt_item,"演讲")>0 then
if txt_session="" then
response.write ""
response.end
end if
end if
txt_other=request.form("txt_other")
txt_ticket=request.form("rad_ticket")
ticket_other=request.form("ticket_other")
'txt_session=request.form("sel_session")
txt_need=request.form("txt_bark")
txt_payment=request.form("txt_payment")
payment_type=request.form("Payment")
card_number=request.form("txt_cardnumber")
expiration_date=request.form("sel_year")& "-" & request.form("sel_month")
card_holder=request.form("card_holder")
security_cod=request.form("security_cod")
set rs=server.CreateObject("adodb.recordset")
sql="select M_MAIL from Member_Info where M_MAIL='"&txt_mail&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write("")
response.End()
end if
rs.close
set rs=nothing
set trs=server.CreateObject("adodb.recordset")
sqlstr="select * from Member_Info"
trs.open sqlstr,conn,1,3
trs.addnew
trs("M_NAME")=XingMing
trs("M_SEX")=txt_sex
trs("M_TITLE")=txt_title
trs("M_AGENCIES")=txt_jigou
trs("M_COUNTRY")=txt_guojia
trs("M_PASSPORT")=txt_huzhao
trs("M_MAIL")=txt_mail
trs("M_ZIP")=txt_youbian
trs("M_ADDRESS")=txt_dizhi
trs("M_TEL")=txt_tel
trs("M_FAX")=txt_fax
trs("M_ACCOMPANYING")=txt_peitong
trs("M_RESEARCH")=txt_research
trs("CHECK_FOOD")=txt_food
trs("COME_TIME")=txt_come
trs("LEAVE_TIME")=txt_leave
trs("MEET_ITEM")=txt_item
trs("OTHER")=txt_other
trs("TICKETS_TYPE")=txt_ticket
trs("TICKETS_OTHER")=ticket_other
trs("M_SESSION")=txt_session
trs("M_NEEDS")=txt_need
trs("TOTAL_PAY")=txt_payment
trs("CARD_TYPE")=payment_type
trs("CARD_NUMBER")=card_number
trs("EXPRI_DATE")=expiration_date
trs("CARD_HOLDER")=card_holder
trs.update
response.Write("")
trs.close
set trs=nothing
conn.close
set conn=nothing
%>