<% 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 "mail_up" set mail=CreateObject("jmail.Message") mail.Charset ="gb2312" mail.From ="yys@bitlifesciences.com" mail.AddRecipient request.form("hid_mail") mail.MailDomain="mail.bitlifesciences.com" mail.MailServerUserName = "yys@bitlifesciences.com" mail.MailServerPassWord = "123456" mail.subject="2010首届国际油井激活及提高采收率大会注册确认信" mail.HTMLBody= "这是一封自动回复邮件。请不要回复!

感谢您对2010首届国际油井激活及提高采收率大会的关注,我们已经收到您的注册信息。组委会的工作人员会在3个工作日内与您取得联系,谢谢!

如果您在3个工作日内没有收到我们任何答复或是您还有其他问题,请及时联系我们。 E-mail: chunlei@biteomics.com 电话: 0086-411-84799609-818 传真: 0086-411-84799609-809." On Error Resume Next mail.Send("mail.bitlifesciences.com") mail.close() set mail=nothing response.write "" 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 %>
   提交确认

我们已经接受您的注册信息,请点击按钮确定。系统将发送自动回复电子邮件至您的注册邮箱,请您在登记表中填写正确的E-mail地址,以保证我们与您的电子邮件联系。

<% case "upd" 'add_sql="update Member_Info set M_PASS='"& password &"',M_NAME='"& XingMing &"',M_SEX='"& txt_sex &"',M_TITLE='"& txt_title &"',M_AGENCIES='"& txt_jigou &"',M_COUNTRY='"& txt_guojia &"',M_PASSPORT='"& txt_huzhao &"',M_MAIL='"& txt_mail &"',M_ZIP='"& txt_youbian &"',M_ADDRESS='"& txt_dizhi &"',M_TEL='"& txt_tel &"',M_FAX='"& txt_fax &"',M_ACCOMPANYING='"& txt_peitong &"',M_RESEARCH='"& txt_research &"',CHECK_FOOD='"& txt_food &"',COME_TIME='"& txt_come &"',LEAVE_TIME='"& txt_leave &"',MEET_ITEM='"& txt_item &"',OTHER='"& txt_other &"',TICKETS_TYPE='"& txt_ticket &"',TICKETS_OTHER='"& ticket_other &"',M_SESSION='"& txt_session &"',M_NEEDS='"& txt_need &"',TOTAL_PAY='"& txt_payment &"',UPD_DATE=#"& now() &"# where MEMBER_ID=" & member_id 'db.Query add_sql,0 'response.write "" end select Set db=Nothing %>