保存附件(saveatt.asp)
<%@ Language=VBScript %
<%
'*************************************
'这个文件用来下载附件
'作者:awayeah
'邮箱:awayeah@163.net
'*************************************
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")
Dim tfolder, tname, tfile
' Const TemporaryFolder = 2
' Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
set POP3=session("pop3")
' Set POP3 = CreateObject("EasyMail.POP3.5")
' POP3.LicenseKey = "awa/S19I500R1AX30C0R3100"
' POP3.MailServer =...[ 查看全文 ]