论坛: 网站建设 标题: 如何制作EMAIL提交表单,在FRONTPAGE中? 复制本贴地址    
作者: yct168 [yct168]    论坛用户   登录
如何制作EMAIL提交表单,在FRONTPAGE中?

地主 发表时间: 12/09 03:40

回复: Runwin.Y [runwin]   论坛用户   登录
下面是用jmail发邮件的两个文件,看一下就会懂了!

1、JMail 发邮件,由 jmail.htm 和 send.asp 两个文件组成;

2、您可以根据您的需要来增加 jmail.htm 里表单的内容,但同时必须在 send.asp 文件的源代码里增加对应的参数;

3、以下是对 send.asp 文件的源代码中两段asp代码( 以 <% 开头,以 %> 结尾 )进行简单说明:

(1) 第一段asp代码如下:

<%
name = Request.Form ("name")
email= Request.Form ("email")
address= Request.Form ("address")
mailsubject= Request.Form ("mailsubject")
text1 = Request.Form ("text1")
text2 = Request.Form ("text2")
text3 = Request.Form ("text3")
%>

说明:
这是用Request方法取得 jmail.htm 中表单数据的代码,取得的数据放在等号左侧的变量中(该变量名要和 jmail.htm 里表单内容的参数对应) ;若您在 jmail.htm 里增加了表单的内容,则必须在此增加相应的语句。

(2) 第二段asp代码如下:

<%
' 创建jmail对象:
Set JMail = Server.CreateObject("JMail.SMTPMail")

' 设置发送邮件服务器(SMTP):
JMail.ServerAddress = "mail.abc.com:25"

' 发件人的信箱:
JMail.Sender = email

' 邮件标题:
JMail.Subject = mailsubject

' 设置邮件的收件人信箱
JMail.AddRecipient "abc@abc.com"

' 下面就是填表在内容区填写的内容,&是连接符,vbcrlf表示换行回车:

mess = mess & "---------------Webmail表单开始-------------------" & vbcrlf
mess = mess & "留言人姓名:" & name & vbcrlf
mess = mess & "留言人邮件:" & email & vbcrlf
mess = mess & "留言人地址:" & address & vbcrlf
mess = mess & "留言内容一:" & text1 & vbcrlf
mess = mess & "留言内容二:" & text2 & vbcrlf
mess = mess & "留言内容三:" & text3 & vbcrlf
mess = mess & "---------------Webmail表单结束-------------------"
JMail.Body = mess

' 设置邮件的优先级(1-5,1为最高):
JMail.Priority = 1

' 执行发送任务:
JMail.Execute
%>

说明:在这段代码中您需要作以下修改

a)

' 设置发送邮件服务器(SMTP):
JMail.ServerAddress = "mail.abc.com:25"

请将以上的abc.com更改为您的域名;

b)

' 设置邮件的收件人信箱
JMail.AddRecipient "abc@abc.com"

请将以上的 abc@abc.com 更改为您的邮箱。

注意:发送邮件邮件服务器和收件人信箱相匹配,建议您不要使用免费信箱及免费信箱的发送邮箱服务器,因为目前有一些免费信箱提供商都不开放SMTP功能或者在发送之前需要SMTP认证。

c)

' 下面就是填表在内容区填写的内容,&是连接符,vbcrlf表示换行回车:

mess = mess & "---------------Webmail表单开始-------------------" & vbcrlf
mess = mess & "留言人姓名:" & name & vbcrlf
mess = mess & "留言人邮件:" & email & vbcrlf
mess = mess & "留言人地址:" & address & vbcrlf
mess = mess & "留言内容一:" & text1 & vbcrlf
mess = mess & "留言内容二:" & text2 & vbcrlf
mess = mess & "留言内容三:" & text3 & vbcrlf
mess = mess & "---------------Webmail表单结束-------------------"
JMail.Body = mess

和第一段asp代码提到的一样,若您在 jmail.htm 里增加了表单的内容,则必须在以上这段代码上增加相应的语句。


3、在做完以上修后,将jmail.htm及send.asp两个文件上传至您支持jmail发邮件的asp空间即可,注意:这两上文件必须放在同级目录。


[此贴被 Runwin.Y(runwin) 在 12月09日05时52分 编辑过]

B1层 发表时间: 12/09 05:43

论坛: 网站建设

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号