思瑞印刷包装有限责任公司-产品订单

<% username=request.form("username") if username<>"" then fromwhere =request.form("fromwhere") homepage =request.form("homepage") email =request.form("email") text =request.form("text") text =replace(text,"<","<") Posttime =now() strSourceFile = Server.MapPath("/") & "\pbuy.xml" '获取XML文件的路径这里根据你的虚拟目录不同而不同 Set objXML = Server.CreateObject("Microsoft.XMLDOM") '创建XML对像 objXML.load(strSourceFile) '把XML文件读入内存中 Set objRootlist = objXML.documentElement.selectSingleNode("NewList") '选取节点 if objRootlist.hasChildNodes then '判断是否有子节点（因为如果是每一次是没有子节点的， '如果不加判断在第一次运得时就会报错 id = objRootlist.lastchild.firstchild.text+1 '这里获得将要插入子节点的ＩＤ号，其ＩＤ号为的最后一个子节点(lastchild)的第一个子节点(firstchild)的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增） else '如是没有字子节点则是第一次留言ＩＤ号设为１ id=1 end if brstr=chr(13)&chr(10)&chr(9) '为了插入XML文件中的节点换行空格排列整齐 '当然你也可以不用这样只是为了XML数据好看而以） XMLnode=brstr&""&brstr & _ ""&id&""&brstr & _ ""&username&""&brstr & _ ""&fromwhere&""&brstr & _ ""&Posttime&""&brstr & _ ""&homepage&""&brstr & _ ""&email&""&brstr & _ ""&text&""&brstr & _ ""&chr(13) '根据得到的数据建立XML片段 set objXML2=Server.CreateObject("Microsoft.XMLDOM") '建立一个新XML对像 objXML2.loadXML(XMLnode) '把XML版片段读入内存中 set rootNewNode=objXML2.documentElement '获得objXML2的根节点 objRootlist.appendChild(rootNewNode) '把XML片段插入到List.xml中 objXML.save(strSourceFile) '存储lsit.xml文件（因为不存储List.xml只在内存中更新了） set objXML=nothing set objXML2=nothing response.write "订单提交成功." response.end end if %> 思瑞印刷包装有限责任公司-产品订单

	网站首页联系我们站点地图


访问思瑞相关站点

通过ISO9002国际质量体系认证

通过GMP药品包装质量检验体系

导入ERP(企业资源管理体系)

首页>>产品订单

思瑞包装有限责任公司在线订单提交

订购人姓名：

联系方式：

订购类型：

订购数量：

订购要求：

Copyright© 1999 - 2005 SIRUIGROUP Inc. All Rights Reserved
地址:四川省宜宾市江北大麦坝邮编:644007
电话：0831-3700581[行政部] 3701675[销售部] 3700818[人力部] 3700534[软包装部]
传真: 0831-3700690[行政部] 3701668[供应部] 3701123[软包装部]
电邮: srdesign@vip.163.com[公司] srrlb@163.com[人力部]webmaster@siruigroup.com[网络中心]
设计制作:网管中心备案序号: 蜀ICP备06005291号