首页 > 在线留言
    <% set rs=server.CreateObject("adodb.recordset") sql="select * from ProSeries1 order by porder " rs.open sql,conn,1,3 if rs.eof then %> <% else do while not rs.eof %>
  • "><%=rs("sname")%>
  • <% rs.movenext loop end if rs.close set rs=nothing %>
<%call content(9)%>
<%productname=request.QueryString("proname")%> <% '获取表单数据 dim fromperson,fromcompany,fromadd,fromtel,fromfax,fromcontent,frommail,fromdomain,mailtitle,mailbody,tomail dim check1 fromperson=trim(Request.Form("person")) fromcompany=trim(Request.Form("company")) fromadd=trim(Request.Form("add")) fromtel=trim(Request.Form("tel")) fromfax=trim(Request.Form("fax")) frommail=trim(Request.Form("email")) fromcontent=trim(Request.Form("content")) check1=trim(request.Form("check1")) 'mailtitle= Request.Form("mailtitle") if fromcompany="" then %>

欢迎光临宁波鄞州甬邦广告有限公司, 您只需要填写以下几个项目,就将得到我们的全力支持!

  在线留言
  发信人姓名    *
  发信人电话    *
  发信人传真   
  发信人信箱    *
 留言主题   
  联系地址   
  内容   
 
<% else dim msg if frommail="" then msg="youmail is error." else 'Dim g_K鞘ey 'Mode = 1 检测wer是否为空 2是否是数字 4是否整数' 'Mode = 1 检测蔲ds欠裎? 2是否是数字 4是否整数 'dim cjmail '=============== 发 信 ================ Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort=2 Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic=1 Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp.163.com" '改成可用的外部邮件服务器域名 .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 160 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "lvdunit@163.com" .Item(cdoSendPassword) = "nbldit8899" '密码 .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "spiderld@foxmail.com" '改成接收者的邮件地址 .From = "lvdunit@163.com" '改成发送人的邮件地址 .Subject = "" & fromperson & ",提交一份产品订购订单!" '标题 .HTMLBody ="详细信息:
1.姓名:"&fromperson&"
2.联系电话:"&fromtel&"
3.公司名称:"&fromcompany&"
4.联系地址:"&fromadd&"
5.联系邮箱: "&frommail&"
6.询价详情: "&fromcontent&"
"&check1&"." '正文 '.AddAttachment "http://www.risingstationery.com/fj/"&pic&""'邮件附件 .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing end if %>
<%=msg%>提交成功,我们会尽快与您取得联系!
[返回]
<%end if%>