<% member_id=request.form("hid_id") usercode=request.form("txt_username") password=request.form("txt_userpass") XingMing=HTMLEncode(request.form("txt_xingming")) txt_sex=request.form("rad_sex") txt_title=HTMLEncode(request.form("txt_title")) txt_guojia=request.form("txt_guojia") txt_huzhao=HTMLEncode(request.form("txt_huzhao")) txt_jigou=HTMLEncode(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=HTMLEncode(request.form("txt_address")) txt_peitong=HTMLEncode(request.form("txt_peitong")) txt_research=HTMLEncode(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 select case request("Action") case "add" 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 then response.write "" response.end() end if add_sql="insert into Member_Info (M_USER,M_PASS,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 ('"& usercode &"','"& password &"','"& 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 &"')" 'response.Write add_sql 'response.End db.Query add_sql,0 response.write "" end select Set db=Nothing %>