在Classic ASP中创建联系表单

时间:2013-05-29 17:07:33

标签: html asp-classic vbscript contact-form

我被迫在这个项目中使用经典ASP,并且在很大程度上它对我来说并不是一个问题,直到现在。我不熟悉ASP,我想要做的就是创建一个简单的联系表单。这是我的标记:

<form method="post" action="contactform_submit.asp">
    <ol class="formset" style="padding: 0px; margin: 0px;">
        <li><label for="mbr-y">Are you currently a Walser Rewards Member?</label> <input class="mbr-yn" style="height: 13px; width: 13px" type="radio" name="mbr-y" value="Yes" /> Yes <input class="mbr-yn" style="height: 13px; width: 13px" type="radio" name="mbr-n" value="No" /> No</li>
        <li><label for="fname">Full Name: </label><input id="fname" required="-1" name="fname" type="text" />
        <ol id="member" class="formset" style="padding:0px; margin: 0px;">
            <li><label for="mbrnum">Member Number: </label><input id="mbrnum" name="mbrnum" type="text" /></li>
        </ol>
        </li>
        <li><label for="lname2">Phone Number: </label><input id="phone" name="phone" type="text" /></li>
        <li><label for="email2">Email Address: </label><input id="email" name="email" type="text" /></li>
        <li><label for="message">Message: </label><textarea id="message" required="-1" value="" type="text" name="message"></textarea></li>
    </ol>
    <input style="height: 33px; padding: 0px; margin-top: 7px; width: 120px;" src="/image/walsergold/send-btn.jpg" type="image" />
</form>

我做了一些研究,但我很难解释ASP和HTML的交互方式。我希望如果人们谈论我的标记,我会更容易理解。有人能指出我对“contactform_submit.asp”看起来如何正确的方向吗?谢谢。

编辑:从我的研究中,我想出了“contactform_submit.asp”(它不起作用):

<%
Dim mail, body

body = "Current Member: " & Request.Form("mbr-yn") & vbcrlf & vbcrlf & "Member Name: " & Request.Form("fname") & vbcrlf & vbcrlf & "Member Number: " & Request.Form("mbrnum") & vbcrlf & vbcrlf & "Phone: " & Request.Form("phone") & vbcrlf & vbcrlf & "Email: " & Request.Form("email") & vbcrlf & vbcrlf & "Message: " & Request.Form("message")

Set mail = Server.CreateObject("CDO.Message")
mail.To = "email@address.com"
mail.From = "email@address.com"
mail.Subject = "Online Contact Form"
mail.TextBody = body
mail.Send()

Response.Write("Thanks for submitting the feedback. A Customer Service Specialist will be in contact with you shortly.")

Set mail = nothing
Set body = nothing
%>

2 个答案:

答案 0 :(得分:0)

您的代码可以在某些服务器上运行。在其他情况下,您可能需要使用CDO配置对象。

见这里的例子

http://www.powerasp.net/content/new/sending_email_cdosys.asp

答案 1 :(得分:-1)

它将查看该页面中的任何内容,即任何html标记和asp代码。但是您可以提取发布到它的数据。

如果您使用的是vb或

,则可以使用Dim name = Request.Form("fname")
string name = Request.Form["fname"] 

如果您使用的是c#。