首先,要安装IIS,以及IIS里面得STMP服务组件,然后打开IIS,把STMP启动,下面就开始写代码了,很简单:
这个是主要代码:
- SUB sendmail(fromwho,towho,subject,body)
- dim mymail
- set mymail=server.createobject("cdonts.newmail")
- mymail.from =fromwho
- mymail.to=towho
- mymail.subject =subject
- mymail.body=body
- mymail.send
- set mymail=nothing
- end sub
- fromwho=trim(request.form("fromwho"))
- towho=trim(request.form("towho"))
- subject=trim(request.form("subject"))
- body=trim(request.form("body"))
- if towho<>"" then
- sendmail fromwho,towho,subject,body
- end if
下面看整个.asp叶面代码:
- <%
- SUB sendmail(fromwho,towho,subject,body)
- dim mymail
- set mymail=server.createobject("cdonts.newmail")
- mymail.from =fromwho
- mymail.to=towho
- mymail.subject =subject
- mymail.body=body
- mymail.send
- set mymail=nothing
- end sub
- fromwho=trim(request.form("fromwho"))
- towho=trim(request.form("towho"))
- subject=trim(request.form("subject"))
- body=trim(request.form("body"))
- if towho<>"" then
- sendmail fromwho,towho,subject,body
- end if
-
- %>
- <!---->>
- <HTML>
- <HEAD>
- <TITLE> New Document TITLE>
- <META NAME="Generator" CONTENT="EditPlus">
- <META NAME="Author" CONTENT="">
- <META NAME="Keywords" CONTENT="">
- <META NAME="Description" CONTENT="">
- HEAD>
-
- <BODY bgcolor="#eeeeee">
- <FORM METHOD=POST ACTION="<%=request.servervariables("script_name")%>">
- <BR>发送给:<INPUT TYPE="text" NAME="towho" size=40>
- <BR>从:<INPUT TYPE="text" NAME="fromwho" size=40>
- <BR>主题:<INPUT TYPE="text" NAME="subject" size=40>
- <BR><TEXTAREA NAME="body" ROWS="5" COLS="40">TEXTAREA>
- <BR><INPUT TYPE="submit" value="send mail">
- FORM>
-
- BODY>
- HTML>
据说这样就可以了,但我还没尝试过,总之先记下来吧
--------------------------------------------
更完整的,加上操作系统判断的:
- <%SUB sendmail()
-
- dim mymail
- dim fromwho
- dim subject
- dim body
- fromwho="gao@yahoo.com.cn"
- subject=""
- body=""
- Set mymail = CreateObject("CDO.Message")
- 'set mymail=Server.CreateObject("CDO.Message")
- thesoft=Request.ServerVariables("HTTP_USER_AGENT")
- if instr(thesoft,"Windows NT 5.0") then
- Set mymail = Server.CreateObject("CDONTS.NewMail")
- end if
- if instr(thesoft,"Windows NT") then
- Set mymail = Server.CreateObject("CDO.Message")
- end if
- 'response.write ("操作系统:"&vOs)
-
-
-
- if trim(request.form("fromwho")) <> null then
-
- fromwho=trim(request.form("fromwho"))
- end if
-
-
- towho="563787750@qq.com"
- subject=trim(request.form("subject"))
- body=trim(request.form("body"))
- mymail.from =fromwho
- mymail.To = towho
- mymail.subject =subject
- mymail.TextBody=body
- mymail.send
- set mymail=nothing
-
- end sub
- ' fromwho=trim(request.form("fromwho"))
- ' towho="gaodongtian@yahoo.com.cn"
- 'subject=trim(request.form("subject"))
- ' body=trim(request.form("body"))
-
- 'thesoft = Request.ServerVariables("HTTP_USER_AGENT")
- 'if instr(thesoft,"Windows NT 5.0") then
- ' vOS="Win 2000"
- 'end if
- ' if instr(thesoft,"Windows NT") then
- ' vOS="Win 2003"
- 'Set mymail = CreateObject("CDO.Message")
- ' end if
-
- 'response.write ("操作系统:"&vOs)
-
-
-
-
-
-
- %>
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
- <HTML>
- <HEAD>
- <TITLE>欢迎使用邮件发送系统</TITLE>
- <META NAME="Generator" CONTENT="EditPlus">
- <META NAME="Author" CONTENT="">
- <META NAME="Keywords" CONTENT="">
- <META NAME="Description" CONTENT="">
- </HEAD>
-
- <BODY bgcolor="#eeeeee">
- <FORM METHOD=POST ACTION="<%sendmail()%>">
- <table align="center"><tr><td><div align="center" style="font-size:30px; font-weight:600">欢迎使用邮件发送系统</div></td></tr><tr><td>
- <INPUT TYPE="hidden" NAME="towho" size=40>
- 您的email地址:<INPUT TYPE="text" NAME="fromwho" size=45>
- <BR>主 题:<INPUT TYPE="text" NAME="subject" size=45> </td></tr>
- <tr><td align="center"> <div align="left" >内 容:</div>
- <TEXTAREA NAME="body" ROWS="10" COLS="62"></TEXTAREA></td></tr>
- <tr><td align="center">
- <BR><INPUT TYPE="submit" value="发 送" onClick="javascript:alert('发送成功!谢谢!')">
- </td></tr></table>
- </FORM>
-
-
- </BODY>
- </HTML>
分享到:
相关推荐
asp发邮件源码,asp有Jmail发邮件,smtp发邮件。
ASP.NET 发邮件 JMail实例 利用Jmail控件进行发送电子邮件的简单设计
asp在线发送邮件(jmail组件+asp案例程序)!简单易懂!
一个简单的ASP发送邮件源码 需要的人可以拿去
不见不散邮件包含电脑版(电脑上网)、手机高级版(手机上网)、手机简单版(手机上网)。 不见不散邮件 1.0 功能: ◆访客可以直接在线写邮件到您设定的电子邮箱地址。 ◆支持电脑访问、手机访问(wap1.1和wap2.0),这样...
ASP邮件发送表单程序是一个很简单的小程序,将客户端在线提交的表单发送至指定邮箱。 注意事项: 1.你的服务器必须安装了Jmail组件,切记,否则无法实现发送邮件;本站有下载! 2.下载本程序后,首先必须打开save....
本文基于ASP技术完成一款简单方便,适合大众用户的电子邮件系统,该电子邮件系统的主要功能模块包括登陆模块,发送模块和管理邮件模块等。 本文首先概括性的介绍电子邮件系统软件的发展趋势及其电子邮件收发系统应用...
这是一个简单的邮件系统,可支持用户写邮件,查看邮件,管理邮件等功能,界面设计简单,功能上易操作!!
asp.net 邮件系统 源代码 asp.net 邮件系统 源代码 asp.net 邮件系统 源代码
发邮件程序asp.net的,很简单适合初学者交流使用。利用JMAIL组件。
一个简单的 发邮件系统,还在完善中 现在 只能 用smtp.163.com
可实现简单的收发邮件、删除邮件、个人资料、修改密码、添加联系人等功能。
1,在配合asp邮件群发系统 v3.3个性群发使用 添加图片可自定义图片大小 2,{mail} 是需要替换成你用统计的邮箱地址 例如 tj.asp?t=xxx@163.com 以图片方式调用当xxx@163.com查看邮件的时候你就可以看见他的IP地址打开...
功能非常简单,自己研究研究。
(邮件里面不支持javascript,所以用图片方式调用) 实现功能 1,在配合asp邮件群发系统 v3.3个性群发使用 添加图片可自定义图片大小 2,{mail} 是需要替换成你用统计的邮箱地址 例如 tj.asp?t=xxx@163.c
SMTP全称是简单邮件传输协议,它专门用来发送邮件用的。Pop全称是邮局协议,是专门用于接收邮件的。我主要是负责如何实现发送邮件功能的。MailSend命名空间是我整个程序的核心。它包括两个类。在SmtpMail的类中包含...
用ASP实现在线发信需要服务器提供Email组件 即NTS Collaboration Data Objects的支持, 遗憾的是不是所有的ASP服务商都对用户开放这一组件, 在线发现也就成了泡影。 不过我们可以采用一种变通的方式来...
这是用Visual studio2005+sqlserver2000开发的一个功能简单的邮件发送系统,欢迎大家使用,如有不足请指出。
计算机毕业设计_ASP.NET基于cs的电子邮件简单收发系统设计与实现(源代码+)__毕设源码实例计算机毕业设计_ASP.NET基于cs的电子邮件简单收发系统设计与实现(源代码+)__毕设源码实例计算机毕业设计_ASP.NET基于cs的电子...
基于asp.net三层开发的一个小型的公司内部邮件发送系统 很简单 希望能给新手们一些帮助