<% XingMing=DelHtml(request.form("txt_xingming")) txt_sex=request.form("rad_sex") txt_title=DelHtml(request.form("txt_title")) txt_research=DelHtml(request.form("txt_research")) txt_researchtype=DelHtml(request.form("rad_searchtype")) txt_guojia=DelHtml(request.form("txt_guojia")) txt_prov=DelHtml(request.form("txt_prov")) txt_city=DelHtml(request.form("txt_city")) txt_jigou=DelHtml(request.form("txt_jigou") ) txt_youbian=DelHtml(request.form("txt_post")) txt_mail=DelHtml(request.form("txt_mail")) txt_tel=DelHtml(request.form("txt_tel")) txt_fax=DelHtml(request.form("txt_fax")) txt_dizhi=DelHtml(request.form("txt_address")) txt_item=request.form("txt_item") txt_session=request.form("sel_session") txt_tickettype2=request.form("rad_ticket2") txt_tickettype=request.form("rad_ticket") txt_gg=request.form("rad_ggtype") txt_joinother=DelHtml(request.form("JoinOther")) txt_payment=request.form("rad_payment") payment_other=DelHtml(request.form("payment_other")) if request.form("txt_shifu")="" then txt_shifu=0 else txt_shifu=request.form("txt_shifu") end if admin_user=DelHtml(request.form("txt_admin")) txt_cwbark=DelHtml(request.form("txt_cwbark")) dim db Set db=new Connections 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,ADD_DATE) 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 &"', #"& now() &"# )" db.Query add_sql,0 response.write "" %>