do_send.asp

实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用

<%	
set obj = Server.CreateObject("LyfUpload.UploadFile")
'判断，如果收件人，发件人都不为空，则继续发信
If obj.Request("Receipt")<>"" and obj.Request("Sender")<>"" Then
	'上传附件
	'保存文件到ASP所在路径的Files目录下，file为Form表单中文件框的名字
	strFileName = obj.SaveFile("file1", Server.MapPath("Files"),true)
	'得到文件类型
	strFileType = obj.FileType("file1")

	Set Jmail = Server.CreateObject("Jmail.Message")    
	Jmail.AddRecipient obj.Request("Receipt")                
	Jmail.From = obj.Request("Sender")                     
	Jmail.Subject = obj.Request("Subject")                   
	Jmail.Body = obj.Request("body")    
	If strFileName <> "" Then
		Jmail.AddAttachment Server.MapPath("Files") & "\" & strFileName '附件
	End If
	Jmail.send("zhangsan109:[e-mail]")             '执行发送
	Jmail.Close()                             '关闭对象
	Response.Write("成功发送")
Else
	Response.Write ("必须填写收件人、发件人")
End If
%>