<%@CODEPAGE="65001"%> <% tmpDate = date tmpY = year(tmpDate) tmpM = month(tmpDate) tmpD = day(tmpDate) %> <% Function fixSql(text) if text <> "" then fixSql = replace(text,"'","''") else fixSql = text end if end Function if request("strAction") <> "" then area = request("area") if trim(replace(area,",","")) = "" then area = "" else area = trim(replace(area,","," ")) end if Randomize onlydate = Cint(Rnd*10000) & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) & Cint(Rnd*10000) strSql = "insert into member(fromweb,type,company,name,sex,email,area,phone_country,phone_area," &_ "phone_number,phone_ext,mobile,code,address,title,work,category,other,onlydate) values(1,0,'" &_ fixSql(trim(request("company"))) & "','" &_ fixSql(trim(request("name"))) & "','" &_ fixSql(trim(request("sex"))) & "','" &_ fixSql(trim(request("email"))) & "','" &_ area & "','" &_ fixSql(trim(request("phone_country"))) & "','" &_ fixSql(trim(request("phone_area"))) & "','" &_ fixSql(trim(request("phone_number"))) & "','" &_ fixSql(trim(request("phone_ext"))) & "','" &_ fixSql(trim(request("mobile"))) & "','" &_ fixSql(trim(request("code"))) & "','" &_ fixSql(trim(request("address"))) & "','" &_ fixSql(trim(request("title"))) & "','" &_ fixSql(trim(request("work"))) & "','" &_ fixSql(trim(request("category"))) & "','" &_ fixSql(trim(request("other"))) & "','" & onlydate & "')" conn.execute strSQL strMessage = "您已经成功订购广登电子报，谢谢。" end if %>

<%if strMessage = "" then%> 您好,欢迎订阅广登电子报. 每星期一次的电子报内容除包括公司代理产品线信息及新闻外,还囊括精辟的产业分析单元. 为确保电子报顺利寄达您的信箱,请务必确实填写以下内容. 谢谢您的合作. (注意: 含*字号内容为必填项目,顷提供我们这些信息以让我们提供更贴心适恰的服务.) 个人资料 *真实姓名 先生 女士 *E-mail 请务必填写正确的Email,以便系统成功寄发电子报给您! 主要工作地区 大陆地区 请选择 华北 华中 华南   台湾地区 请选择 北部 中部 南部 东部   其他国家 请选择 亚洲 欧洲 美洲 其他地区 联络电话 国码 *区码 *电话 EXT 手机号码 *联络地址 邮编区号   详细地址 *公司名称   *业务范围 工作职务 公司负责人 高级主管 中级主管 基层主管 一般职员 幕僚/负责人助理 专业人士/顾问 学生 工作性质(可复选) 研发/设计 产品管理 技术支持 产品行销/业务 生产制造 维修/品管/测试 采购相关 零件代购 教育训练 经营管理 学术研究 其它   *感兴趣的产业(可复选)   消费性电子及家电 产业服务 计算机/系统及接口设备 仪器设备 IC 组件/应用 无线通讯 电信 / 网络通讯 工业控制 光电/显示器 安全防护 系统整合 AV 影音 汽车电子 其它 医疗     再次感谢您订购广登电子报,如有任何疑问,请联络我们. 广登很高兴有您的参与,也期待能有进一步跟您互动的机会. 谢谢.       <%else%> <%=strMessage%> <%end if%>

<%call endConnection()%>