<% if Request("action")="add" then UserName=replace(Trim(request("UserName")),"'","") Subject=replace(Trim(request("Subject")),"'","") Receiver=replace(Trim(request("Receiver")),"'","") Sex=replace(Trim(request("Sex")),"'","") Phone=replace(Trim(request("Phone")),"'","") Add=replace(Trim(request("Add")),"'","") Email=replace(Trim(request("Email")),"'","") Notes=replace(Trim(request("Notes")),"'","") CompanyName=replace(Trim(request("CompanyName")),"'","") Fax=replace(Trim(request("Fax")),"'","") '操作之一开始写入订单列表信息 Set rsadd=server.createobject("adodb.recordset") sql="select * from okuoo_OrderList" rsadd.open sql,conn,1,3 rsadd.AddNew rsadd("UserName")=UserName rsadd("Receiver")=Receiver rsadd("Sex")=Sex rsadd("Phone")=Phone rsadd("Add")=Add rsadd("Subject")=Subject rsadd("Email")=Email rsadd("CompanyName")=CompanyName rsadd("Fax")=Fax rsadd("Notes")=Notes rsadd("Flag")="No" rsadd.Update rsadd.close set rsadd=nothing response.write"" else %> <% HeadTitle="在线加盟" if HeadTitle<>"" then SiteTitleAll= HeadTitle & "-" & SiteTitle else SiteTitleAll=SiteTitle end if %>

在线加盟 <% Set rsadd = Server.CreateObject("ADODB.Recordset") sql="select ID,Title from okuoo_agent order by Aboutusorder" rsadd.open sql,conn,1,3 do while not rsadd.eof %> " class="left_link"><%= rsadd("Title") %> <%rsadd.movenext loop%> 加盟商展示   在线加盟 当前位置：首页 >> 代理加盟 > 在线加盟 加盟申请单填写   ( 注：*为必填项 ) * 联系人： 请填写您的真实姓名 * 手机 ： 请输入您的常用手机号 * 电话： 格式如:86-21-33711311 所在省市： 详细地址： 邮编： 常用QQ： E-mail： 加盟级别： 经 济 型 基 本 型 标 准 型 旗 舰 店 * 说明: (20-4000字符)

<% end if %>