最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
附件readmail.asp
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
<%@ LANGUAGE = "VBScript" %>
<%
If (Request.ServerVariables ("REQUEST_METHOD") = "POST") then
Name = Request.Form("name")
Email = Request.Form("ename")
else
' Assume it is GET
Name = Request.QueryString("name")
Email = Request.QueryString("email")
end if
If (Email = "") OR (Name = "") then
Response.Write "You have to supply name and email
"
Response.End
End If
Set objSession = Server.CreateObject ("CDONTS.Session")
objSession.LogonSMTP Name, Email
Set objInbox = objSession.GetDefaultFolder(1)
If objInbox Is Nothing Then
Set collMessages = Nothing
Response.Write "Can't get folder.
"
objSession.Logoff
Response.End
End If
Set collMessages = objInbox.Messages
If (collMessages.Count = 0) Then
Response.Write "
" (email: " & Email & ") does not have messages"
Response.End
objSession.Logoff
end if
Response.Write "
-
上一个: aspemail的安装及简单示例的说明
-
下一个: 列出指定目录下的所有文件和目录
相关文章
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- asp中获取日期为星期几的技巧 09-14
- Asp编码优化参考 09-14
- .Net Core认证系统源码解析 12-26
- SharePoint Server 2019新特性介绍 01-15