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