ASP用简单方法发邮件

xiexiaobo

浏览: 4724 次
性别:

最近访客更多访客>>

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

ASP IIS Windows QQ Yahoo

首先，要安装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>