如何在html网页中提交表单直接发送到邮箱

 

如何在html网页中提交表单直接发送到邮箱?此问题一直困扰了我很久很久,后来了解到jmail组件可以解决此问题,而且现在的付费空间基本都会有此组件。分别建立表单页和asp页面,提交表单后通过asp页面调用jmail组件,实现将表单内容发送到指定邮箱的效果。

具体实现方法:

1.制作一个表单页面form.html(或修改自己网站上的表单页面,因为接下来与*.asp文件进行数据传递,所以对应的参数一定要写对),name="form" method="post" action="s.asp

如何在html网页中提交表单直接发送到邮箱

2.制作一个s.asp页面

3.让这两个文件上传到空间的形同路径下就可以实现提交表单后,表单内容自动发送到指定的邮箱,相应的会出现下面的页面

如何在html网页中提交表单直接发送到邮箱

4.form.html对应的代码如下(将下面的代码复制后粘贴到记事本中,保存为form.html):

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>form</title>
</head>

<body>
<form id="form" name="form" method="post" action="s.asp">
  <table width="550" border="1" align="center">
    <tr>
      <td width="183" align="right" valign="top">Company:</td>
      <td width="401"><label>
        <input name="company" type="text" id="company" maxlength="25" />
      </label></td>
    </tr>
    <tr>
      <td align="right" valign="top">Website:</td>
      <td><label>
        <input name="website" type="text" id="website" value="http://" />
      </label></td>
    </tr>
    <tr>
      <td align="right" valign="top"><span class="STYLE39 STYLE42">First name:</span></td>
      <td><label>
        <input name="fname" type="text" id="fname" maxlength="15" />
      </label></td>
    </tr>
    <tr>
      <td align="right" valign="top"><span class="STYLE39 STYLE42">Last name:</span></td>
      <td><label>
        <input name="lname" type="text" id="lname" maxlength="15" />
      </label></td>
    </tr>
    <tr>
      <td align="right" valign="top"><span class="STYLE39 STYLE42">Email address:</span></td>
      <td><label>
        <input name="email" type="text" id="email" maxlength="20" />
      </label></td>
    </tr>
    <tr>
      <td align="right" valign="top"><span class="STYLE39 STYLE42">Phone:</span></td>
      <td><label>
        <input name="phone" type="text" id="phone" maxlength="20" />
      </label></td>
    </tr>
    <tr>
      <td align="right" valign="top"><span class="STYLE39 STYLE42">Country:</span></td>
      <td><label>
        <input name="country" type="text" id="country" maxlength="15" />
      </label></td>
    </tr>
    <tr>
      <td align="right" valign="top"><span class="STYLE39 STYLE42">City / Locality:</span></td>
      <td><label>
        <input name="city" type="text" id="city" maxlength="15" />
      </label></td>
    </tr>
    <tr>
      <td align="right" valign="top"><span class="STYLE39 STYLE42">Message:</span></td>
      <td><label>
        <textarea name="message" cols="55" rows="10" id="message"></textarea>
      </label></td>
    </tr>
    <tr>
      <td colspan="2" align="center" valign="top"><label>
        <input name="submit" type="submit" id="submit" value="submit" />
      </label>
        <label>
        <input name="reset" type="reset" id="reset" value="reset" />
      </label></td>
    </tr>
  </table>
</form>
</body>
</html>

5.s.asp对应的代码如下(将下面的代码复制后粘贴到记事本中,保存为s.asp):

 

<html>
<head>
<title>send to your email</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Jmail" content="use jmail send to your email">
<meta name="send to your email" content="use jmail send to your email">
<title>send to your email</title>
</head>

<body>
<%
'下面是定义一些变量,是这些变量从表单页面获取信息
company=Request.Form ("company")
website=Request.Form ("website")
fname=Request.Form ("fname")
lname=Request.Form ("lname")
email=Request.Form ("email")
phone=Request.Form ("phone")
country=Request.Form ("country")
city=Request.Form ("city")
message=Request.Form ("message")

' 下面就是调用从表单页获取的信息,赋值到mess,&是连接符,vbcrlf表示换行回车:

mess = mess & "---------------Webmail表单开始-------------------" & vbcrlf
mess = mess & "Company:" & company & vbcrlf
mess = mess & "Website:" & website & vbcrlf
mess = mess & "First name:" & fname & vbcrlf
mess = mess & "Last name:" & lname & vbcrlf
mess = mess & "Email address:" & email & vbcrlf
mess = mess & "Phone:" & phone & vbcrlf
mess = mess & "Country:" & country & vbcrlf 
mess = mess & "City / Locality:" & city & vbcrlf
mess = mess & "Message:" & message & vbcrlf

mess = mess & "---------------Webmail表单结束-------------------" & vbcrlf
' 下面是调用Jmail组件的部分,其中邮箱,密码填写正确的,否则发送不成功
Set JMail=Server.CreateObject("JMail.Message")
JMail.silent = true                 '则errorcode包含的是错误代码
JMail.Logging=True                '是否使用日志
JMail.Charset="gb2312"
JMail.ContentType = "text/plain"       'text/html是超文本格式text/plain是文本格式
JMail.MailServerUserName = "gewell@163.com" '您的邮件服务器登录名
JMail.MailServerPassword = "123654"         '登录密码
JMail.From = "gewell@163.com                 '发件人(要填合法正确邮箱才能发出去信件)
JMail.FromName = "gewell"                 '发件人姓名,引号内的内容可以修改为符合自己的信息
JMail.AddRecipient "gewell@163.com     '收件人
JMail.Subject = "WebMail"      '主题,引号内的内容可以修改为自己认为合适的主题
JMail.Body = mess     '正文,通过使用前面的mess调用获取到得表单信息

JMail.Send "smtp.163.com"                        'smtp服务器地址
JMail.Priority=3                               '1: 最高优先级.2:高 3:普通 4:低 5:最低
Set JMail=nothing
%>
<CENTER>
Success ,Congratulation
</CENTER>
<p align="center">--- &lt; <a href="index.htm">Go back to your website </a>&gt; ---</p> 
</body>

</html>

6.将两个文件上传到空间中的相同路径,就可以了

可能此代码对于很多大虾来说太小儿科了,希望能对刚入门的朋友有些帮助

评论 9
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值