%
flag = 0
if request("uploadflag")=1 then
'workid = request("workid")
set rs=server.createobject("adodb.recordset")
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save(server.mappath("uploadfile/"))
For Each File in Upload.Files
'Response.Write File.Name & "=" & File.Path & " (" & File.Size & ")
"
intCount = ubound(split(File.Path,"\"))
'response.write intCount
txtList = split(File.Path,"\")
'response.write txtList(intCount)
if txtList(intCount)<>"" then
filename = txtList(intCount)
end if
Next
mailbody = "Invoice Number:"&Upload.form("code")&"email:"&Upload.form("email")&"Comments"&Upload.form("memo")&"FileName:"&filename
email="info@printedinchina.com" '//to
'email="wujunxiong@sina.com"
smtpserver = "mail.printedinchina.com" '//server of receiver
smtpuser = "michael@printedinchina.com" '//username
smtpemail = "michael@printedinchina.com" '//mail box
smtppwd = "123456" '//your pin
'send mail
Set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jMail.ContentType = "text/html"
jmail.priority = 5
jmail.From = "michael@printedinchina.com" '//this is the sender's mail add
'jmail.From = request("Address2")
jmail.FromName = "Uploading Alerts" '//sender's name
jmail.Subject = "You got new uploading now" '//title
jmail.AddRecipient email '//Add
'jmail.AddRecipientCC "michael@printedinchina.com"
jmail.Body = mailbody '//Content
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
if err then
errflag=1
err.clear
else
errflag=0
end if
jmail.Close
set jmail = nothing
end if
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||