[英]Jmail Classic ASP upload file and send
我想知道如何使用Classic ASP和Jmail上传文件并通过邮件发送,我想使用HTML type = file选择文件。
在这里,您有两件事要解决,即文件的上传以及将其附加到出站电子邮件中。
您可能需要一个第三方上载组件-许多Windows托管公司都准备好了与工作演示一起使用的“ Persits” ASP组件套件。 这是您自己的服务器还是共享主机等? 由于共享托管可能会影响您的实际操作,例如,最大文件大小,文件类型等。
示例代码应该可以为您提供帮助,但请注意,“ somecomponent”位显然需要与所使用的内容内联。
上传-发送带有附件的电子邮件
<%'示例文件Form-Email.asp'让您向一封电子邮件发送一个或多个附件。
'Create upload form
Dim Form: Set Form = Server.CreateObject("SomeComponent.ASPForm")
'Do not upload data greater than 1MB.
Form.SizeLimit = 100*1024
Const fscompleted = 0
If Form.State = fscompleted Then 'completed
ProcessForm
End If
Sub ProcessForm
Dim eFrom, eTo, Subject, Message
'get source form fields - From, To, Subject and Message
eFrom = Form("From")
eTo = Form("To")
Subject = Form("Subject")
Message = Form("Message")
Dim objNewMail, File, FileName, FS, TempFolder
Set FS = CreateObject("Scripting.FileSystemObject")
'Get temporary folder
TempFolder = FS.GetSpecialFolder(2) & "\emailtemp"
'Create a new email message
Set objNewMail = CreateObject("CDONTS.NewMail")
Const CdoMailFormatMime = 0
objNewMail.MailFormat = CdoMailFormatMime
'Save source files to temporary folder
'Add these files to the new e-mail
For Each File In Form.Files
'If source file is specified.
If Len(File.FileName) > 0 Then
FileName = TempFolder & "\" & File.FileName
File.SaveAs FileName
objNewMail.AttachFile FileName
End If
Next
'Send the new email
objNewMail.Send eFrom, eTo, Subject, Message
'delete temporary files
For Each File In Form.Files
If Len(File.FileName) > 0 Then
FileName = TempFolder & "\" & File.FileName
FS.DeleteFile FileName
End If
Next
End Sub
%>
<br>Sample For <A Href=http://www.motobit.com>HugeASP upload</A>
<br> Let's you send one an email with one or more attachments.
<br> File size limit Is <%=Form.SizeLimit%> B (<%=Form.SizeLimit \ 1024 %>kB).
<Table Border=0>
<form method="POST" ENCTYPE="multipart/form-data">
<tr><td> From : </td><td><input Name=From Size=50></td></tr>
<tr><td> To : </td><td><input Name=To Size=50></td></tr>
<tr><td> Subject : </td><td><input Name=Subject Size=80></td></tr>
<tr><td ColSpan=2> Message:
<br><TextArea Name=Message Cols=76 Rows=10></TextArea>
</td></tr>
<tr><td ColSpan=2>E-Mail Attachments:
<Div ID=files>
Attachment 1 : <input type="file" name="File1">
</Div>
<Input Type=Button Value="Add a file" OnClick=return(Expand())
Style="border=0;background=yellow;cursor:hand">
</td></tr>
<tr><td ColSpan=2 Align=Right>
<input Name=SubmitButton Value="Send email >>" Type=Submit></td></tr>
</Form>
</Table>
<Script>
//Script To add a attachment file field
var nfiles = 1;
Function Expand(){
nfiles++
var adh = '<BR> Attachment '+nfiles+' : <input type="file"
name="File'+nfiles+'">';
files.insertAdjacentHTML('BeforeEnd',adh);
return false;
}
</Script>
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.