<% member_id=request.form("hid_id") 'usercode=request.form("txt_username") 'password=request.form("txt_userpass") XingMing=request.form("txt_xingming") txt_sex=request.form("rad_sex") txt_title=request.form("txt_title") txt_guojia=request.form("txt_guojia") txt_huzhao=request.form("txt_huzhao") txt_jigou=request.form("txt_jigou") txt_youbian=request.form("txt_post") txt_zhuce=date() txt_mail=request.form("txt_mail") 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_comment=request.form("txt_comment") txt_come=request.form("txt_come") txt_leave=request.form("txt_leave") rad_room=request.form("rad_room") txt_bed=request.form("txt_extra") 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") 'admin_user=session("USER_NAME") dim db Set db=new Connections set trs=server.CreateObject("ADODB.recordset") strsql="select * from Member_Info where M_MAIL='"& txt_mail &"'" set trs=db.Query (strsql,1) if not trs.eof or not trs.bof then response.write "" response.end end if add_sql="insert into Member_Info (M_NAME,M_SEX,M_TITLE,M_AGENCIES,M_COUNTRY,M_PASSPORT,M_MAIL,M_ZIP,M_ADDRESS,M_TEL,M_FAX,M_ACCOMPANYING,M_RESEARCH,M_COMMENT,CHECK_FOOD,CHECK_ROOM,EXTRA_BED,COME_TIME,LEAVE_TIME,MEET_ITEM,OTHER,TICKETS_TYPE,TICKETS_OTHER,M_SESSION,M_NEEDS,TOTAL_PAY,CARD_TYPE,CARD_NUMBER,EXPRI_DATE,CARD_HOLDER,SECURITY_CODE) values ('"& XingMing &"','"& txt_sex &"','"& txt_title &"','"& txt_jigou &"','"& txt_guojia &"','"& txt_huzhao &"','"& txt_mail &"','"& txt_youbian &"','"& txt_dizhi &"','"& txt_tel &"','"& txt_fax &"','"& txt_peitong &"','"& txt_research &"','"& txt_comment &"','"& txt_food &"','"& rad_room &"','"& txt_bed &"','"& txt_come &"','"& txt_leave &"','"& txt_item &"','"& txt_other &"','"& txt_ticket &"','"& ticket_other &"','"& txt_session &"','"& txt_need &"','"& txt_payment &"','"& payment_type &"','"& card_number &"','"& expiration_date &"','"& card_holder &"','"& security_cod &"')" db.Query add_sql,0 response.write "" Set db=Nothing %>