Html 经典asp联系方式_Html_Forms_Asp Classic

Html 经典asp联系方式

html forms asp-classic

Html 经典asp联系方式,html,forms,asp-classic,Html,Forms,Asp Classic,您好，我正在尝试创建一个自定义html和asp的联系表单，唯一的问题是，我知道很少编程，特别是asp，您能帮我吗我试图创造一些例子，但我了解得很少我的代码HTML <body> <form id="contactform" action="contact.asp" method="POST"> <div class="formcolumn"> <label for="nome">Nome e Cognome</label> <

您好，我正在尝试创建一个自定义html和asp的联系表单，唯一的问题是，我知道很少编程，特别是asp，您能帮我吗

我试图创造一些例子，但我了解得很少

我的代码HTML

<body>
<form id="contactform" action="contact.asp" method="POST">
<div class="formcolumn">
<label for="nome">Nome e Cognome</label>
<input type="text" id="nome" name="nome" />
<label for="indirizzo">Indirizzo - cap - località - provincia</label>
<input type="text" id="indirizzo" name="indirizzo" />
<ul>
<li>Consegna a Domicilio<input type="radio" id="domicilio" name="luogo" value="consegna a domicilio" /></li>
</ul>
</div>
<div class="formcolumn">
<label for="telefono">Telefono</label>
<input type="text" id="telefono" name="telefono" />
<label for="email">E-mail</label>
<input type="email" id="email" name="email" />
<ul>
<li>Ritiro presso la macelleria<input type="radio" id="macelleria" name="luogo" value="ritiro presso la macelleria" /></li>
</ul>
</div>
<div class="formcolumn_2">
<label for="consegna">Indirizzo di consegna (compilare solo nel caso di consegna a domicilio)</label>
<input type="text" id="consegna" name="consegna" />
<label for="ordine">Ordine</label>
<textarea id="ordine" name="ordine" ></textarea>
<ul class="campo_dati">
<p>Info dati</p>
<li>Campo_1<input type="radio" id="Campo_1" name="dati" value="campo_1" /></li>
<li>Campo_2<input type="radio" id="Campo_2" name="dati" value="campo_2" /></li>
<li>Campo_3<input type="radio" id="Campo_3" name="dati" value="campo_3" /></li>
<li>Campo_4<input type="radio" id="Campo_4" name="dati" value="campo_4" /></li>
<li>Campo_5<input type="radio" id="Campo_5" name="dati" value="campo_5" /></li>
<li>Campo_6<input type="radio" id="Campo_6" name="dati" value="campo_6" /></li>
<li>Campo_7<input type="radio" id="Campo_7" name="dati" value="campo_7" /></li>
<li>Campo_8<input type="radio" id="Campo_8" name="dati" value="campo_8" /></li>
</ul>
<label for="specifiche">Altre informazioni</label>
<input type="text" id="specifiche" name="specifiche" />
<ul class="campo_dati">
<p>Accettazione condizioni</p>
<li>Ho letto e accettato il regolamento e le condizioni sulla privacy<input type="radio" id="accettazione" name="accettazione" value="accettazione" /></li>
</ul>
</div>
<div class="buttons">
<input class="button" value="invia" type="submit" name="invia" />
</div>
</form>
</body>

这是我创建的经典asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

    <% 
    nome = request.Form("nome")
    indirizzo = request.Form("indirizzo")
    telefono = request.Form("telefono")
    email = request.Form("email")

    ordine = request.Form("ordine")


    ' istanza di CDO.Message
    set CDOmail = CreateObject("CDO.Message")

CDOmail.To = "tariccopaolo@alice.it"
CDOmail.From = "smtp.tuodominio.it"
CDOmail.Subject = "Nuovo ordine"


这是一个非常基本的经典ASP电子邮件表单，您可以在其中添加自己的html和css，使其看起来更漂亮。根据SMTP服务器的位置和配置，可能需要添加一些其他参数
如果您愿意，您可以将asp和html放在单独的文件中，正如您所做的那样，但我发现将它们全部放在一个文件中会使事情变得更容易，特别是当您开始添加服务器端验证，并且如果用户遗漏字段、输入无效电子邮件地址等，您希望将其发送回表单时
<%
If request("submit") <> "" Then
Set objEMail = Server.CreateObject("CDO.Message")
objEMail.To = "you@yourdomain.com"
objEMail.From = Request("name")& "<" & Request("from") & ">"
objEMail.ReplyTo = Request("from")
objEMail.Subject = Request("subject")
objEMail.TextBody = Request("message")  
objEMail.Send()
Set objEMail = Nothing
%>
<html>
<body>
<h3>Thank you for your message</h3>
</body>
</html>
<% Else %>
<html>
<body>
<form method="post">
<label>Name:</label><input type="text" name="name" /><br />
<label>Email address:</label><input type="text" name="from" /><br />
<label>Subject:</label><input type="text" name="subject" /><br />
<label>Message:</label><textarea name="message"></textarea><br />
<input class="button" type="submit" name="submit" value="Send" />
</form> 
</body>
</html>
<% End If %>

你应该吃点类似的东西
 objEMail.TextBody = "Indirizzo:" & Request("indirizzo") & vbcrlf & "Telephono:" & Request("telefono")  & vbcrlf & "Email:" & Request("email") & vbcrlf & Request("consegna") & vbcrlf & Request("specifiche")

vbcrlf用于在文本消息中添加换行符
要从单选按钮列表中检索所选值，可以使用Request（“dati”）

我推荐这一页
编辑2
Re您在paulindustry.altervista.org/contact_form_2.html上提供的链接-有几点
显然，您需要给它一个.asp扩展名，它才能作为asp页面运行
您需要在objEmail to value（我的错误）之后关闭报价
objEMail.To=”you@yourdomain.com“

您需要在页面的最后添加

如果您的表单中没有填充主题字段的内容，那么最好使用类似于objEMail.Subject=“form Submission”
的内容，这将导致您收到的电子邮件标题为“form Submission”。没有标题的电子邮件通常会被垃圾邮件过滤器捕获
只需将单选按钮字段添加到objEmail.Textbody，例如
objEMail.TextBody=“Indirizzo：”&Request（“Indirizzo”）&vbcrlf&Telephono:&Request（“telefono”）&vbcrlf&Email:&Request（“Email”）&vbcrlf&Consegna:&Request（“Consegna”）&vbcrlf&Specifiche:&Request（“Specifiche”）&vbcrlf&Dati:&Request（“Dati”）

对于同意条款和条件，复选框字段可能比包含一个按钮的单选按钮字段更有用
欢迎使用Stack Overflow。我们在这里不为您编写代码，而是帮助您解决编程中的特定问题。如果您在连接单选按钮时遇到特定问题，请更新问题。如果您没有太多问题，请向我展示一些单选按钮底部的示例。我继续说，我发现了一个类似的ple，但我不理解com当我连接时它会发送电子邮件吗？我更正了代码，但问题仍然存在。此外，由于我没有该字段，我可以将其删除？？？您将链接放置到我加载表单的页面，以查看它是否工作。您提供的示例不发送电子邮件，它只在下一页显示表单提交值
objEMail.Indirizzo = Request("indirizzo")
objEMail.Telefono = Request("telefono")
objEMail.Email = Request("email")
objEMail.Consegna = Request("consegna")
objEMail.Specifiche = Request("specifiche")

 objEMail.TextBody = "Indirizzo:" & Request("indirizzo") & vbcrlf & "Telephono:" & Request("telefono")  & vbcrlf & "Email:" & Request("email") & vbcrlf & Request("consegna") & vbcrlf & Request("specifiche")