在线提交网站建设意向—江西南昌网站建设|网站制作-江西世纪网络

您现在的位置：首页 → 关于我们 → 留言反馈

给世纪网络留言

<% strName=TRIM(Request.Form("txtName")) strCom=TRIM(Request.Form("txtCom")) strTel=TRIM(Request.Form("txtTel")) strMail =TRIM(Request.Form("txtmob")) strSub =TRIM(Request.Form("txtadress")) strNotes =TRIM(Request.Form("txtNotes")) if strName<>"" and strTel<>"" then dim CLStr,msg,mailserver,username,password,receive CLStr=Chr(13) & Chr(10) mailserver="mail.21it.com" username="www@21it.com" password="6559382ice" receive="www@21it.com" Set msg = Server.CreateObject("JMail.Message") msg.silent = true msg.Logging = true msg.Charset = "gb2312" msg.MailServerUserName = username msg.MailServerPassword = password msg.From = username msg.FromName = username msg.AddRecipient (receive) msg.Subject = "留言反馈，来自www.21it.com【"&strName&"】：" msg.Body = "以下是来自www.21it.com的留言反馈："&CLStr&CLStr msg.Body = msg.Body& "================================================================="&CLStr msg.Body = msg.Body& "【发送时间】："&now()&CLStr&CLStr msg.Body = msg.Body& "【姓 名】："&strName&CLStr&CLStr msg.Body = msg.Body& "【单 位】："&strCom&CLStr&CLStr msg.Body = msg.Body& "【电 话】:"&strTel&CLStr&CLStr msg.Body = msg.Body& "【地 址】："&strsub&CLStr&CLStr msg.Body = msg.Body& "【留言内容】:"&strNotes&CLStr&CLStr msg.Body = msg.Body& "================================================================="&CLStr msg.Body = msg.Body& "本邮件是通过世纪网络企业邮局mail.21it.com在线发送的,请勿直接回复!"&CLStr msg.Send (mailserver) msg.close set msg = nothing response.write"尊敬的"&strName&"先生（小姐）：
您的留言已发送成功!
感谢您对世纪网络的关注！谢谢！
【返回江西世纪网络首页】" else response.write"对不起，您的联系人、联系电话、地址没有填完整！
请您【返回】填写完毕再提交，谢谢您的支持！" end if %>