如何使用表单发送电子邮件？_编程10000问

如何使用表单发送电子邮件？

formToEmail.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />


' 表单.
<FORM METHOD="POST" ACTION="formToEmail.asp">
<P>
收件人: <INPUT SIZE=30 NAME="recipient" MAXLENGTH=200>
<P>
发件人: <INPUT SIZE=30 NAME="sender" MAXLENGTH=200>
<P>
主题: <INPUT SIZE=30 NAME="subject" MAXLENGTH=512>
<P>
内容一: <TEXTAREA ROWS=2 COLS=60 NAME="messageline1"> </TEXTAREA>
<P>
内容二: <TEXTAREA ROWS=2 COLS=60 NAME="messageline2"> </TEXTAREA>
</PRE>
<INPUT TYPE=submit VALUE="发送">

formToEmail.asp


' 处理接收和发送邮件.
<%
Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient = Request.Form("recipient")
sender = Request.Form("sender")
subject = Request.Form("subject")
message = Request.Form("messageline1")
message = message & vbCRLF
message = message & vbCRLF
message = message & Request.Form("messageline2")
mailserver = "www.intels.net"

' 写上邮件服务器.

result = mailer.SendMail(mailserver, recipient, sender, subject, message)
%>
<% If "" = result Then %>
恭喜,邮件发送成功!
<% Else %>
抱歉,邮件发送失败!

<H2>
<%= result %>
</H2>
<% End If %>
[1]

时间： 2024-09-20 05:10:49

如何使用表单发送电子邮件？_编程10000问的相关文章

如何实现电子邮件的自动发送？_编程10000问

如何实现电子邮件的自动发送? <%@import namespace="system.web.uit"%>dim mail as new mailmessage    ' 建立一个mailmessage对象.mail.to=收件人mail.form=送件人mail.subject=主题mail.bodyformat=格式mail.body=内容 smtpmail.send(mail)     具体代码如下: <%@ Import Namespace="Sys

如何用POP3接收电子邮件？_编程10000问

<%  Set pop3 = Server.CreateObject( "JMail.POP3" )   pop3.Connect "username", "password", "pop3mail.intels.net"  ' POP3的连接用户名,密码,POP3地址.   Response.Write( "你现在有" & pop3.count & " 封邮件.<br

如何用表单的方式推送请求的信息？_编程10000问

<html><head><title>撼雪喷云之答复用户信息</title></head><body> <form action="getdada.asp" method="get"> <p>姓名:<input name="name" size="20"><br>电子邮件:<input name=&qu

如何用组件实现自动发送电子邮件？_编程10000问

如何用组件实现自动发送电子邮件? JMailUploadAutoForm.asp<html><body><font face="verdana, arial" size="2"><b><form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data&qu

如何向前端推送用户请求的信息？_编程10000问

postinfo.htm<head><title>星河影动之回应用户请求信息</title></head><body> <form action="postdata.asp" method="post"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 使用

ASP问答集_编程10000问

问:为什么我的记录集的RecordCount值总是返回-1? 答:你应当使用这种模式来打开存取数据库的记录集:   rec.open strSQL,conn,1,1   其中的strSQL是操作数据库的SQL语句;conn是联接数据库的Connection 变量. 问:我在ASP脚本中写了很多的注释,这会不会影响服务器处理ASP文件的速度? 答:经国外技术人员测试,带有过多注释的ASP文件整体性能仅仅会下降0.1%,也就是说基本上不会影响到服务器的性能下降的. 问:我需不需要在每个ASP文件的开

如何把URL和邮件地址转换为超级链接？_编程10000问

Function InsertHyperlinks(inText)Dim objRegExp, strBufDim objMatches, objMatchDim Value, ReplaceValue, iStart, iEnd   strBuf = ""  iStart = 1  iEnd = 1  Set objRegExp = New RegExp   objRegExp.Pattern = "\b(www|http|\S+@)\S+\b"  <?xm

网上考试设计思路是怎样的？_编程10000问

global.asa < script LANGUAGE=VBScript RUNAT=Server > Sub Application_OnStart    dbPath = "DBQ=" & Server.Mappath("onlinetest.mdb")    dbConnectionString =  "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath  

如何创建Word文件？_编程10000问

creatdoc.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影动之创建Word文件</title><META HTTP-EQUIV="Re