新的ASP code为Godaddy的服务器上的联系人电子邮件形式 [英] New ASP code for contact email form on Godaddy server
本文介绍了新的ASP code为Godaddy的服务器上的联系人电子邮件形式的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
我有两种形式，在ASP编码报价和联系不再从更新服务器的工作。
这两种形式有给我发电子邮件相同的ASP文件。我想我有一个解决方案，但并非如此。我想，我的文件是在连接ASP codeD，并且该服务器是ASP.net，这造成冲突。
我寻求一个解决方案再次接收电子邮件，通过更新ASP code现在我有。我是平面设计师，而不是一个$ C $铬。
我目前的服务器的规格是：
操作系统
WINDOWS
PHP版本
5.3
IIS版本
IIS 7.0
.NET版本
ASP.Net 2.0 / 3.0 / 3.5
要编码的第一个文件的联系方式contact.asp如下：
＆LT;％
response.expires = 60
将response.buffer =真
在错误恢复下一个
猫= 6
amiblock =真
标题=查询联系人Artipik
舍曼=*＆下; A HREF = contact.asp类= lienchemin＆gt;中＆安培;标题及放大器; ＆所述; / A＆gt;中
％GT;
＆LT;！ - ＃包括虚拟=/通信/ entete.asp - ＆GT;
＆LT;！ - ＃包括虚拟=/通信/ head.asp - ＆GT;
＆LT; SCRIPT LANGUAGE =JavaScript的类型=文/ JavaScript的＆GT;
＆LT;！ -
功能contactvalid（OBJ）
{ 如果（obj.nom.value ==）
{
警报（德的Merci saisir VOTRE NOM）;
obj.nom.focus（）;
返回false;
}
如果（OBJ。prenom.value ==）
{
警报（德的Merci saisir VOTRE prnom）;
。OBJ prenom.focus（）;
返回false;
}
如果（obj.message.value.length 6;）
{
警报（德的Merci联合国saisir科特迪瓦消息太子港MOINS quelques MOTS ......）;
obj.message.focus（）;
返回false;
}
如果（！mailok.test（obj.email.value）||！mailok2.test（obj.email.value））
{
警报（德的Merci UNE saisir电子邮件住址的Valide）;
obj.email.focus（）;
返回false;
}
如果（！mailok.test（obj.ami.value）||！mailok2.test（obj.ami.value））
{
警报（德的Merci UNE saisir电子邮件住址德的Valide AMI VOTRE）;
obj.ami.focus（）;
返回false;
}}
// - ＆GT;
＆LT; / SCRIPT＆GT;
＆LT;风格类型=文/ CSS＆GT;
＆LT;！ -
#tbcontact {宽度：340px;的margin-top：20px的;保证金底：40像素; FONT-SIZE：12px的}
#coord {宽度：340px;边界：1px的固体＃9a8199;文本对齐：左; FONT-SIZE：16px的;填充顶：0像素;填充底：0像素}
#coord的div {显示：块;保证金：10px的}
#carte {宽度：340px;高度：400像素;边界：2px的固体#CCCCCC;的margin-top：10px的}
表格{保证金：0;填充：0}
.saisie {宽度：240像素;边界：1px的固体＃9a8199; FONT-SIZE：12px的;颜色：＃8b6158; FONT-FAMILY：宋体，宋体，黑体，无衬线}
形式的textarea {宽度：240像素;边界：1px的固体＃9a8199; FONT-SIZE：12px的;颜色：＃8b6158; FONT-FAMILY：宋体，宋体，黑体，无衬线}
/ *输入[类型=无线电] {宽度：300像素;边界：1px的固体＃9a8199; FONT-SIZE：12px的;颜色：＃8b6158; FONT-FAMILY：宋体，宋体，黑体，无衬线} * /
- ＆GT;
＆LT; /风格＆GT;
＆LT;！ - ＃包括虚拟=/通信/ bandohaut.asp - ＆GT;
＆LT;！ - ＃包括虚拟=/上传/ coord.asp - ＆GT;
＆LT; DIV的风格=保证金：20px的＆GT;
＆LT; IMG SRC =/图像/ pucelosange.gifWIDTH =18高度=14边界=0＆GT;＆LT;跨度类=titrerub＆GT; CONTACTEZ-NOUS＆LT; / SPAN＆GT;＆LT; BR＆GT ;
＆LT; IMG SRC =/图像/ separebicolore2.gifWIDTH =688HEIGHT =6BORDER =0VSPACE = 3＆GT;＆LT; BR＆GT;
＆LT; DIV的风格=WIDTH：688px;文本对齐：右＆GT; *冠军obligatoires＆放大器; NBSP;＆LT; / DIV＆GT;
＆LT;％如果affich_map = 1那么％GT;
＆LT; DIV的风格=的位置是：绝对的;保证金顶：20像素;保证金左：348px＆GT;
＆LT; DIV ID =坐标＆GT;
＆LT;％如果coord_adresse＆LT;＆GT; vbnullstring然后％GT;＆LT; DIV＆GT;＆LT;跨度类= titrerose＆GT;＆LT; IMG SRC =/图像/ pucerose.gifWIDTH =8HEIGHT =8BORDER = 0＆GT;＆安培; NBSP;展示厅＆LT; / SPAN＆GT;＆安培; NBSP;＆LT;跨度风格=FONT-SIZE：11像素＆GT;＆LT; I＆GT;（河畔相约）LT; / I＆GT;＆LT; / SPAN＆GT;＆LT; BR＆GT;＆LT;％= coord_adresse％GT;＆LT; / DIV＆GT;＆LT;％结束如果％GT;
＆LT;％如果coord_metro＆LT;＆GT; vbnullstring然后％GT;＆LT; DIV＆GT;＆LT;跨度类= titrerose＆GT;＆LT; IMG SRC =/图像/ pucerose.gifWIDTH =8HEIGHT =8BORDER = 0＆GT;＆安培; NBSP; Mtro / RER＆LT; / SPAN＆GT;＆LT; BR＆GT;＆LT;％= coord_metro％GT;＆LT; / DIV＆GT;＆LT;％结束如果％GT;
＆LT;％如果coord_bus＆LT;＆GT; vbnullstring然后％GT;＆LT; DIV＆GT;＆LT;跨度类= titrerose＆GT;＆LT; IMG SRC =/图像/ pucerose.gifWIDTH =8HEIGHT =8BORDER = 0＆GT;＆安培; NBSP;巴士及LT; / SPAN＆GT;＆LT; BR＆GT;＆LT;％= coord_bus％GT;＆LT; / DIV＆GT;＆LT;％结束如果％GT;
＆LT;％如果feuvert然后％GT;
＆LT;跨度类= titrerose＆GT;＆LT; IMG SRC =/图像/ pucerose.gifWIDTH =8HEIGHT =8BORDER =0＆GT;＆安培; NBSP; Tlphone＆LT; / SPAN＆GT; ＆LT; BR＆GT;＆LT;％= coord_tel％GT;＆LT; BR＆GT;
＆LT;跨度风格=FONT-SIZE：10px的＆GT;（大奖赛德UN APPEL本地连接法国）LT; / SPAN＆GT;＆LT; BR＆GT;＆LT; BR＆GT;
＆LT;跨度类= titrerose＆GT;＆LT; IMG SRC =/图像/ pucerose.gifWIDTH =8HEIGHT =8BORDER =0＆GT;＆安培; NBSP;移动＆LT; / SPAN＆GT;＆LT; BR＆GT; ＆所述;％= coord_mobile％GT;
＆LT;％结束如果％GT;
＆LT; / DIV＆GT;
＆LT; DIV ID =点菜＆GT;
＆LT;脚本src=\"http://maps.google.com/maps?file=api&v=2&sensor=false&key=ABQIAAAAgKoL5za6CVbLQHrHSdRGPRQniikd0iliF4ChcQSNayNSO4Cr3hQBQSq4du-gpuF6FeDeS2ymuDlJAA\"类型=文/ JavaScript的＆GT;＆LT; / SCRIPT＆GT;
＆LT; SCRIPT LANGUAGE =JavaScript的类型=文/ JavaScript的＆GT;
函数初始化（）
{
如果（GBrowserIsCompatible（））
{
VAR gadresse =新的GLatLng（48.6774691,2.3551995）
VAR地图=新的GMap2（的document.getElementById（点）{尺寸：新的GSize（340400）}）;
map.setCenter（gadresse，15）;
map.addOverlay（新的GMarker（gadresse））;
map.addControl（新GSmallMapControl中（））;
}
}
初始化（）;
＆LT; / SCRIPT＆GT;
＆LT; / DIV＆GT;
＆LT; / DIV＆GT;
＆LT;％结束如果％GT;
＆LT;表格名称=联系行动=contactprocess.asp方法=邮报的目标=过程的onsubmit =返回contactvalid（本）＆GT;
＆LT;表格边框= 0的cellpadding = 0 CELLSPACING = 0 ID =tbcontact＆LT;％如果affich_map＆LT;＆GT; 1，则回复于（ALIGN =中心）％GT;＆GT;
＆所述; TR＆GT;
＆所述; TR高度= 25＆GT;
＆LT; TD宽度= 80 ALIGN =右GT; Civilit＆LT; / TD＆GT;
＆LT; TD WIDTH = 260 ALIGN =中心＆GT;
＆LT;输入类型=电台NAME =公民VALUE =先生检查＆GT;主席＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;
＆LT;输入类型=电台NAME =公民VALUE =夫人＆GT;女士＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;＆安培; NBSP;
＆LT;输入类型=电台NAME =公民VALUE =法国少女＆GT;法国少女
＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR高度= 30＆GT;
＆LT; TD ALIGN =右GT;＆LT;强＆GT; * LT; / STRONG＆GT;喃＆LT; / TD＆GT;＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=文本名称=NOM级=saisie＆GT;＆LT; / TD＆GT;
＆LT; / TR＆GT;
＆LT; TR高度= 30＆GT;
＆LT; TD ALIGN =右GT;＆LT;强＆GT; * LT; / STRONG＆GT; Prnom＆LT; / TD＆GT;＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=TEXTNAME =preNOM级=saisie＆GT;＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR高度= 30＆GT;
＆LT; TD ALIGN =右GT;住址＆LT; / TD＆GT;＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=文本名称=住址级=saisie＆GT;＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR高度= 30＆GT;
＆LT; TD ALIGN =右GT; code邮政＆LT; / TD＆GT;＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=文本名称=CP级=saisie＆GT;＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR高度= 30＆GT;
＆LT; TD ALIGN =右GT;威乐＆LT; / TD＆GT;＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=文本名称=威乐级=saisie＆GT;＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR高度= 30＆GT;
＆LT; TD ALIGN =右GT;自付LT; / TD＆GT;＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=文本名称=付费类=saisie＆GT;＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR高度= 30＆GT;
＆LT; TD ALIGN =右GT;＆LT;强＆GT; * LT; / STRONG＆GT;电子邮件＆LT; / TD＆GT;＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=文本名称=电子邮件值=＆LT;％= Request.Cookies时（电子邮件）％＆gt;中类=saisie＆GT;＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR高度= 30＆GT;
＆LT; TD ALIGN =右GT; Tlphone＆LT; / TD＆GT;＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=文本名称=电话级=saisie＆GT;＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR HEIGHT = 40＆GT;
＆LT; TD ALIGN =右GT; VOUS TES＆LT; / TD＆GT;
＆LT; TD ALIGN =中心＆GT;
＆LT;选择名称=文类=saisie＆GT;
＆LT;选项＆GT; Visiteur
＆LT;选项＆GT;客户
＆LT;选项＆GT;企业公司
＆LT;选项＆GT;艺人
＆LT;选项＆GT;代理
＆LT;选项＆GT; Journaliste
＆LT;选项＆GT; Partenaire
＆LT;期权价值=＆GT;其它物业
＆LT; /选择＆GT;
＆LT; / TD＆GT;＆LT; / TR＆GT;
＆LT; TR = VALIGN顶＆GT;
＆LT; TD ALIGN =正确＆gt;消息＆LT; / TD＆GT;
＆LT; TD ALIGN =中心＆GT;＆LT; textarea的名称=消息包=虚拟的风格=宽度：240像素，高度：225px;溢出-Y：汽车的onkeyup =如果（this.value.length＆GT; 600） {警报（'PAS加上去600 caractres，MERCI！'）; THIS.VALUE = this.value.substring（0600）}＆GT;＆LT; / textarea的＆GT;＆LT; / TD＆GT;＆LT; / TR＆GT;
＆所述; TR＆GT;
＆LT; TD ALIGN =右GT;＆LT; / TD＆GT;
＆LT; TD ALIGN =中心＆GT;＆LT;输入类型=形象SRC =/图像/ btn_envoyer.gifALT =Envoi杜消息称号=Envoyer VOTRE消息WIDTH =103HEIGHT =26VSPACE = 8是氢;＆下; / TD＆GT;＆下; / TR＆GT;
＆LT; /表＆gt;
＆LT; /表及GT;
＆LT; / DIV＆GT;
＆LT;！ - ＃包括虚拟=/通信/ bandobas.asp - ＆GT;
如果是，该文件contactprocess.asp编码的第二部分：
＆LT;％
Response.Expires = 0
Response.Expiresabsolute = NOW（） - 1
Response.AddHeader杂，无缓存
Response.AddHeader缓存控制，私
Response.CacheControl =无缓存
在错误恢复下一个
％GT;
＆LT;！ - ＃包括虚拟=/上传/ coord.asp - ＆GT;
＆LT;％
envoyeur =visiteur@artipik.com
receveur = coord_email
askeur =取代（的Request.Form（邮件），@，（arob））
askeur =替换（askeur，。，（点））
'COPIE =stefanium@hotmail.com
NOM =的Request.Form（NOM）
preNOM =的Request.Form（preNOM）
消息=的Request.Form（信息）
住址=的Request.Form（住址）
CP =的request.form（CP）
威乐=的Request.Form（威乐）
自付=的Request.Form（付费）
电话=的Request.Form（电话）
文=的Request.Form（KI）如果envoyeur = vbnullstring或消息= vbnullstring或NOM = vbnullstring或preNOM = vbnullstring然后到Response.Endsujet =ARTIPIK.com |联系人：与＆amp; UCASE（NOM）及与＆amp; preNOM
在编译勒消息...
entete =Expditeur：与＆amp;的request.form（公民）及与＆amp; UCASE（NOM）及与＆amp; preNOM＆安培; vbcrlf
entete = entete＆安培; 电子邮件德rponse：＆放大器; askeur＆安培; vbcrlf
如果住址＆LT;＆GT; vbnullstring然后entete = entete＆安培; 地址：＆放大器;住址和放大器; vbcrlf
如果CP＆LT;＆GT; vbnullstring然后entete = entete＆安培; code邮政：＆放大器; CP＆安培; vbcrlf
如果威乐＆LT;＆GT; vbnullstring然后entete = entete＆安培; 威乐：＆放大器;威乐和放大器; vbcrlf
如果自付LT;＆GT; vbnullstring然后entete = entete＆安培; 自付：＆放大器;自付; vbcrlf
如果电话＆LT;＆GT; vbnullstring然后entete = entete＆安培; TL：＆放大器;联系电话：放大器; vbcrlf
如果き＆LT;＆GT; vbnullstring然后entete = entete＆安培; Catgorie：与＆amp;き＆安培; vbcrlf
entete = entete＆安培; vbcrlf＆安培; ------------------------------------------------- ----------------与＆amp; vbcrlf＆安培; vbcrlf＆安培; 消息：＆放大器; vbcrlf＆安培; vbcrlf
消息=左（消息，600）
消息= entete＆安培;信息
％GT;
＆LT;！ - ＃包括虚拟=/通信/ envoimail.asp - ＆GT;
＆LT; HTML和GT;
＆LT; HEAD＆GT;
＆LT; META HTTP-EQUIV =过期CONTENT =0＆GT;
＆LT; META HTTP-EQUIV =缓存控制CONTENT =无缓存＆GT;
＆LT; META HTTP-EQUIV =杂注CONTENT =无缓存＆GT;
＆LT; /头＆GT;
＆LT;身体GT;
＆LT; SCRIPT LANGUAGE =JavaScript的＆GT;
＆LT;！ -
＆LT;％如果Err.Number的= 0，那么％GT;
parent.contact.message.value ='';警报（VOTRE消息的边牛逼特使\\ nVous recevrez UNE rponse苏PEU ... \\吨。）;
＆LT;％否则％GT;
警报（Problme德serveur：\\ n＆LT;％=替换（Err.Description它将，'，\\'。）％GT; \\ n \\ nMerci去R-essayer加TARD \\ t的）;
＆LT;％结束如果％GT;
location.href =有关：空白;
// - ＆GT;
＆LT; / SCRIPT＆GT;
＆LT; /身体GT;
＆LT; / HTML＆GT;
和最后的服务器上的当前code，在envoimail.asp文件的最后部分是如下：
＆LT;％
-----版本CDONTS -----
设置邮件=的Server.CreateObject（CDONTS.NewMail）
Mail.BodyFormat = 1'0：HTML / 1：纯文本
Mail.MailFormat = 1'0：MIME / 1：纯文本
Mail.From = envoyeur
Mail.To = receveur
如果COPIE＆LT;＆GT; vbnullstring然后Mail.Bcc = COPIE
如果sujet = vbnullstring然后sujet =Formulaire去接触Artipik.com
Mail.Subject = sujet
Mail.Body =消息
Mail.Send
设置邮件=什么
response.cookies（电子邮件）= envoyeur
％GT;
解决方案
CDONTS是真的老了，这是从Windows 2003在Windows 2000 pcated和完全删除德$ P $ CDO是在传统的ASP发送电子邮件的标准组件
相当于code到您的例子是这样的。
＆LT;％
设置邮件=的Server.CreateObject（CDO.Message）
Mail.From = envoyeur
Mail.To = receveur
如果COPIE＆LT;＆GT; vbnullstring然后Mail.Bcc = COPIE
如果sujet = vbnullstring然后sujet =Formulaire去接触Artipik.com
Mail.Subject = sujet
Mail.TextBody =消息
Mail.Send
设置邮件=什么
％GT;
Mail.Textbody 指定邮件是纯文本格式。对于HTML电子邮件，你会使用 Mail.HtmlBody 。
CDO，您可以使用远程SMTP服务器，CDONTS没有。根据您的SMTP服务器的设置，您可能需要添加服务器配置的详细信息。我建议本教程。
http://www.powerasp.net/content/new/sending_email_cdosys.asp
I have two forms, a quotation and contact in ASP coding that no longer work from the updated server.
Both forms have the same ASP file that send me email. I thought I had a solution but not. I think as my file is encoded in ASP, and that the server is ASP.net, this creates conflict.
I seek a solution to receive emails again, by updating the ASP code I have now. I'm graphic designer and not a coder.
The specifications of my current server are:
Operating System WINDOWS
PHP Version 5.3
IIS Version IIS 7.0
.NET Version ASP.Net 2.0 / 3.0 / 3.5
To the contact form contact.asp encoding the first file is the following:
<%
response.expires=60
response.buffer=true
on error resume next
cat=6
amiblock=true
title="Contacter Artipik"
chemin="*<a href=contact.asp class=lienchemin>" & title & "</a>"
%>
<!--#include virtual="/commun/entete.asp"-->
<!--#include virtual="/commun/head.asp"-->
<script language="JavaScript" type="text/javascript">
<!--
function contactvalid(obj)
{
if (obj.nom.value=="")
{
alert("Merci de saisir votre nom");
obj.nom.focus();
return false;
}
if (obj.prenom.value=="")
{
alert("Merci de saisir votre pr�nom");
obj.prenom.focus();
return false;
}
if (obj.message.value.length<6)
{
alert("Merci de saisir un message d'au moins quelques mots...");
obj.message.focus();
return false;
}
if (!mailok.test(obj.email.value) || !mailok2.test(obj.email.value))
{
alert("Merci de saisir une adresse email valide");
obj.email.focus();
return false;
}
if (!mailok.test(obj.ami.value) || !mailok2.test(obj.ami.value))
{
alert("Merci de saisir une adresse email valide de votre ami");
obj.ami.focus();
return false;
}
}
// -->
</script>
<style type="text/css">
<!--
#tbcontact {width:340px;margin-top:20px;margin-bottom:40px;font-size:12px}
#coord {width:340px;border:1px solid #9a8199;text-align:left;font-size:16px;padding-top:0px;padding-bottom:0px}
#coord div{display:block;margin:10px}
#carte {width:340px;height:400px;border:2px solid #CCCCCC;margin-top:10px}
form {margin:0;padding:0}
.saisie {width:240px;border:1px solid #9a8199;font-size:12px;color:#8b6158;font-family:Arial,Verdana,Helvetica,sans-serif}
form textarea{width:240px;border:1px solid #9a8199;font-size:12px;color:#8b6158;font-family:Arial,Verdana,Helvetica,sans-serif}
/*input[type=radio]{width:300px;border:1px solid #9a8199;font-size:12px;color:#8b6158;font-family:Arial,Verdana,Helvetica,sans-serif}*/
-->
</style>
<!--#include virtual="/commun/bandohaut.asp"-->
<!--#include virtual="/upload/coord.asp"-->
<div style="margin:20px">
<img src="/images/pucelosange.gif" width="18" height="14" border="0"><span class="titrerub">CONTACTEZ-NOUS</span><br>
<img src="/images/separebicolore2.gif" width="688" height="6" border="0" vspace=3><br>
<div style="width:688px;text-align:right">* champs obligatoires </div>
<% If affich_map=1 then %>
<div style="position:absolute;margin-top:20px;margin-left:348px">
<div id="coord">
<% If coord_adresse<>vbnullstring then %><div><span class=titrerose><img src="/images/pucerose.gif" width="8" height="8" border="0"> Show-room</span> <span style="font-size:11px"><i>(sur rendez-vous)</i></span><br><%= coord_adresse %></div><% End If %>
<% If coord_metro<>vbnullstring then %><div><span class=titrerose><img src="/images/pucerose.gif" width="8" height="8" border="0"> M�tro / RER</span><br><%= coord_metro %></div><% End If %>
<% If coord_bus<>vbnullstring then %><div><span class=titrerose><img src="/images/pucerose.gif" width="8" height="8" border="0"> Bus</span><br><%= coord_bus %></div><% End If %>
<% If feuvert then %>
<span class=titrerose><img src="/images/pucerose.gif" width="8" height="8" border="0"> T�l�phone</span><br><%= coord_tel %><br>
<span style="font-size:10px">(prix d'un appel local en France)</span><br><br>
<span class=titrerose><img src="/images/pucerose.gif" width="8" height="8" border="0"> Mobile</span><br><%= coord_mobile %>
<% End If %>
</div>
<div id="carte">
<script src="http://maps.google.com/maps?file=api&v=2&sensor=false&key=ABQIAAAAgKoL5za6CVbLQHrHSdRGPRQniikd0iliF4ChcQSNayNSO4Cr3hQBQSq4du-gpuF6FeDeS2ymuDlJAA" type="text/javascript"></script>
<script language="JavaScript" type="text/javascript">
function initialize()
{
if (GBrowserIsCompatible())
{
var gadresse=new GLatLng(48.6774691,2.3551995)
var map = new GMap2(document.getElementById("carte"),{size: new GSize(340,400)});
map.setCenter(gadresse, 15);
map.addOverlay(new GMarker(gadresse));
map.addControl(new GSmallMapControl());
}
}
initialize();
</script>
</div>
</div>
<% End If %>
<form name="contact" action="contactprocess.asp" method="post" target=process onSubmit="return contactvalid(this)">
<table border=0 cellpadding=0 cellspacing=0 id="tbcontact"<% If affich_map<>1 then response.write(" align=center") %>>
<tr>
<tr height=25>
<td width=80 align=right>Civilit�</td>
<td width=260 align=center>
<input type="radio" name="civil" value="Mr" checked>Mr
<input type="radio" name="civil" value="Mme">Mme
<input type="radio" name="civil" value="Mlle">Mlle
</td></tr>
<tr height=30>
<td align=right><strong>*</strong> Nom</td><td align=center><input type="text" name="nom" class="saisie"></td>
</tr>
<tr height=30>
<td align=right><strong>*</strong> Pr�nom</td><td align=center><input type="text" name="prenom" class="saisie"></td></tr>
<tr height=30>
<td align=right>Adresse</td><td align=center><input type="text" name="adresse" class="saisie"></td></tr>
<tr height=30>
<td align=right>Code Postal</td><td align=center><input type="text" name="cp" class="saisie"></td></tr>
<tr height=30>
<td align=right>Ville</td><td align=center><input type="text" name="ville" class="saisie"></td></tr>
<tr height=30>
<td align=right>Pays</td><td align=center><input type="text" name="pays" class="saisie"></td></tr>
<tr height=30>
<td align=right><strong>*</strong> Email</td><td align=center><input type="text" name="email" value="<%= request.cookies("email") %>" class="saisie"></td></tr>
<tr height=30>
<td align=right>T�l�phone</td><td align=center><input type="text" name="tel" class="saisie"></td></tr>
<tr height=40>
<td align=right>Vous �tes</td>
<td align=center>
<select name="ki" class="saisie">
<option>Visiteur
<option>Client
<option>Entreprise
<option>Artiste
<option>Agent
<option>Journaliste
<option>Partenaire
<option value="">Autre
</select>
</td></tr>
<tr valign=top>
<td align=right>Message</td>
<td align=center><textarea name="message" wrap="virtual" style="width:240px;height:225px;overflow-y:auto" onKeyUp="if(this.value.length>600){alert('Pas plus de 600 caract�res, merci !');this.value=this.value.substring(0,600)}"></textarea></td></tr>
<tr>
<td align=right></td>
<td align=center><input type="image" src="/images/btn_envoyer.gif" alt="Envoi du message" title="Envoyer votre message" width="103" height="26" vspace=8></td></tr>
</table>
</form>
</div>
<!--#include virtual="/commun/bandobas.asp"-->
Then the second part of the coding in the file contactprocess.asp:
<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
on error resume next
%>
<!--#include virtual="/upload/coord.asp"-->
<%
envoyeur="visiteur@artipik.com"
receveur=coord_email
askeur=replace(request.form("email"),"@"," (arob) ")
askeur=replace(askeur,"."," (point) ")
'copie="stefanium@hotmail.com"
nom=request.form("nom")
prenom=request.form("prenom")
message=request.form("message")
adresse=request.form("adresse")
cp=request.form("cp")
ville=request.form("ville")
pays=request.form("pays")
tel=request.form("tel")
ki=request.form("ki")
if envoyeur=vbnullstring or message=vbnullstring or nom=vbnullstring or prenom=vbnullstring then response.end
sujet="ARTIPIK.com | Contact : " & ucase(nom) & " " & prenom
'on compile le message...
entete="Exp�diteur : " & request.form("civil") & " " & ucase(nom) & " " & prenom & vbcrlf
entete=entete & "Email de r�ponse : " & askeur & vbcrlf
if adresse<>vbnullstring then entete=entete & "Adresse : " & adresse & vbcrlf
if cp<>vbnullstring then entete=entete & "Code postal : " & cp & vbcrlf
if ville<>vbnullstring then entete=entete & "Ville : " & ville & vbcrlf
if pays<>vbnullstring then entete=entete & "Pays : " & pays & vbcrlf
if tel<>vbnullstring then entete=entete & "T�l. : " & tel & vbcrlf
if ki<>vbnullstring then entete=entete & "Cat�gorie : " & ki & vbcrlf
entete=entete & vbcrlf & "-----------------------------------------------------------------" & vbcrlf & vbcrlf & "MESSAGE :" & vbcrlf & vbcrlf
message=left(message,600)
message=entete & message
%>
<!--#include virtual="/commun/envoimail.asp"-->
<html>
<head>
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
</head>
<body>
<SCRIPT LANGUAGE="JavaScript">
<!--
<% If err.number=0 then %>
parent.contact.message.value='';alert("Votre message a bien �t� envoy�.\nVous recevrez une r�ponse sous peu...\t");
<% Else %>
alert("Probl�me de serveur :\n<%= replace(err.description,"'","\'") %>\n\nMerci de r�-essayer plus tard.\t");
<% End If %>
location.href="about:blank";
// -->
</SCRIPT>
</body>
</html>
And finally the last part of the current code on the server, in the envoimail.asp file is as follows:
<%
'-----version CDONTS-----
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.BodyFormat = 1 '0:html/1:plain text
Mail.MailFormat = 1 '0:MIME/1:plain text
Mail.From = envoyeur
Mail.To = receveur
if copie<>vbnullstring then Mail.Bcc = copie
if sujet=vbnullstring then sujet="Formulaire de contact Artipik.com"
Mail.Subject = sujet
Mail.Body = message
Mail.Send
set Mail=Nothing
'response.cookies("email")=envoyeur
%>
解决方案
CDONTS is really old, it was deprecated in Windows 2000 and removed completely from Windows 2003. CDO is the standard component for sending emails in classic ASP.
The equivalent code to your example would be something like this.
<%
Set Mail = Server.CreateObject("CDO.Message")
Mail.From = envoyeur
Mail.To = receveur
if copie<>vbnullstring then Mail.Bcc = copie
if sujet=vbnullstring then sujet="Formulaire de contact Artipik.com"
Mail.Subject = sujet
Mail.TextBody = message
Mail.Send
set Mail=Nothing
%>
Mail.Textbody specifies that the message is in plaintext format. For an HTML email you would use Mail.HtmlBody.
CDO allows you to use a remote SMTP server, CDONTS did not. Depending on the setup of your SMTP server you may need to add server configuration details. I recommend this tutorial.
http://www.powerasp.net/content/new/sending_email_cdosys.asp
这篇关于新的ASP code为Godaddy的服务器上的联系人电子邮件形式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
