钢构,网架结构,彩钢
    产品快速导航   购物车
主    页   公司简介 产品介绍 新闻动态 客户服务 人力资源 联系我们 EnglishVersion
<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") sqltext="select * from syswork where code='101'" rs.Open sqltext,cn,1,1 if not rs.EOF then co_address=trim(rs("address")) co_phone=trim(rs("phone")) co_email=trim(rs("email")) co_fax=trim(rs("fax")) co_linkman=trim(rs("linkman")) co_zip=trim(rs("zip")) end if rs.close mymenu="contact" flag=Request.QueryString("flag") if Request.ServerVariables("REQUEST_METHOD")="POST" then topic=Request.Form("topic") email=Request.Form("email") myname=Request.Form("myname") corpname=Request.Form("corpname") address=Request.Form("address") phone=Request.Form("phone") fax=Request.Form("fax") content=Request.Form("content") mailstr="姓名：" + myname + chr(10) + chr(13) mailstr=mailstr + "单位：" + corpname + chr(10) + chr(13) mailstr=mailstr + "电话：" + phone + chr(10) + chr(13) mailstr=mailstr + "地址：" + address + chr(10) + chr(13) mailstr=mailstr + "传真：" + fax + chr(10) + chr(13) mailstr=mailstr + "内容：" + content + chr(10) + chr(13) Set msg = Server.CreateObject("JMail.Message") msg.silent = true msg.Logging = true msg.Charset = "gb2312" msg.MailServerUserName = "online-email@163.com" '输入smtp服务器验证登陆名 msg.MailServerPassword = "email123" '输入smtp服务器验证密码 （用户Email帐号对应的密码） msg.From = "online-email@163.com" msg.FromName = myname '发件人姓名 msg.AddRecipient co_email '收件人Email msg.AddRecipientBCC "napoleon@ibw.com.cn" '密件传送' msg.Subject = "萌山钢构网站留言" '信件主题 msg.Body = "主题："+topic++chr(10)+chr(13)+mailstr '正文 msg.Send ("smtp.163.com") 'smtp服务器地址（企业邮局地址） set msg = nothing rs.Open "contact",cn,3,3 rs.AddNew rs("title")=topic rs("email")=email rs("myname")=myname rs("corpname")=corpname rs("phone")=phone rs("fax")=fax rs("content")=content rs("address")=address rs("creadate")=now() rs("sysemail")=co_email rs.Update rs.Close Response.Redirect("contact.asp?flag=1") end if %>
　
　
　

<%if flag="1" then%>

<%else%>
<%end if%>

网站地图

■　钢结构首 页 　
■　公司简介 ■　产品介绍 ■　新闻动态 ■　客户服务
■　人力资源 ■　联系我们 ■　英文版 　
■　公司简介 　
●　董事长致辞 ●　公司简介 ●　组织架构
●　企业文化 ●　业务范围 ●　公司荣誉
■　产品介绍 　
●　门式钢架结构 ●　塔架钢结构 ●　钢屋架结构
●　平板网架结构 ●　弧型网架结构 ●　曲面网架结构
●　网壳钢结构 ●　复合彩钢板 ●　单层彩钢板
●　钢结构生产设备 ●　钢结构设计软件 ●　钢结构案例
■　新闻动态 　
■　客户服务 　
●　服务理念 ●　真情服务 　
■　人力资源 　
●　人才理念 ●　应聘向导 ●　招聘岗位
■　联系我们 　
■　其 他 　
●　企业邮局 ●　业务信箱 ●　经理信箱 ●　英文版
●　网站地图 12 ●　友情链接23 ●　了解钢结构 ●　钢结构制度
●　H型钢 ●　C型钢 ●　Z型钢 　

E-mail:msgg@msgg.com.cn Tel:0537-6869988 013355146988 Fax:0537-6868687

版权所有 山东萌山钢构工程有限公司