<% XingMing=request.form("txt_xingming") txt_sex=request.form("rad_sex") txt_title=request.form("txt_title") txt_research=request.form("txt_research") txt_researchtype=request.form("rad_searchtype") txt_guojia=request.form("txt_guojia") txt_prov=request.form("txt_prov") txt_city=request.form("txt_city") txt_jigou=request.form("txt_jigou") txt_youbian=request.form("txt_post") 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_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_tickettype=request.form("rad_ticket") txt_gg=request.form("rad_ggtype") txt_joinother=request.form("JoinOther") txt_payment=request.form("rad_payment") payment_other=request.form("payment_other") dim db Set db=new Connections select case request("Action") case "add" set trs=server.CreateObject("ADODB.recordset") strsql="select * from MEMBER_CN 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_CN (M_NAME,M_SEX,M_RESEARCH,M_FENLEI,M_AGENCIES,M_TITLE,M_COUNTRY,M_SHENG,M_SHI,M_ADDRESS,M_ZIP,M_TEL,M_FAX,M_MAIL,M_ITEM,M_GUANGGAO,M_TICKET,M_SESSION,M_OTHER,M_PAYTYPE,M_PAYOTHER) values ('"& XingMing &"','"& txt_sex &"','"& txt_research &"','"& txt_researchtype &"','"& txt_jigou &"','"& txt_title &"','"& txt_guojia &"','"& txt_prov &"','"& txt_city &"','"& txt_dizhi &"','"& txt_youbian &"','"& txt_tel &"','"& txt_fax &"','"& txt_mail &"','"& txt_item &"','"& txt_gg &"','"& txt_tickettype &"','"& txt_session &"','"& txt_joinother &"','"& txt_payment &"','"& payment_other &"')" db.Query add_sql,0 response.write "" end select Set db=Nothing %>