Asp classic 需要使用ASP Vbscript代码发送电子邮件附件

我正试图用下面的代码在一个经典的ASP应用程序中发送AttacherNet。这个应用程序从数据库获取邮件到、邮件从地址等。现在，当用户浏览文档而不将documnet存储在任何位置（即数据库或服务器）时，我需要将文档作为附件附加到下面的邮件代码中。请建议

sql = "insert INTO RSP_SSR_ENTRY(SR_ID_NBR, SA_ID_NBR, IMO_NBR ,INSPECTION_SEQ_NBR, INSPECTION_DTM, PO_ID_NBR, OPERATIONAL_STATUS_TXT, REPORT_Q2_IND, REPORT_Q3_IND, REPORT_Q4_IND, REPORT_Q5_IND, REPORT_Q6_IND,   REPORT_Q7_IND, REPORT_Q8_IND, REPORT_Q9_IND, REPORT_Q10_IND, REPORT_Q11_IND, REPORT_Q12_IND, REPORT_Q13_IND, REPORT_QA_IND, REPORT_QB_IND, SUBMITTED_DTM) VALUES(0, " & said & ", " & ssr_imo & ", " & ssr_ins_nr & ", " & ssr_ins_date & ", " & ssr_port_id & ", '" & opStat & "', '" & ssr_q2 & "', '" & ssr_q3 & "', '" & ssr_q4 & "', '" & ssr_q5 & "', '" & ssr_q6 & "', '" & ssr_q7 & "', '" & ssr_q8 & "', '" & ssr_q9 & "', '" & ssr_q10 & "', '" & ssr_q11 & "', '" & ssr_q12 & "', '" & ssr_q13 & "','" & ssr_qa & "', '" & ssr_qb & "', "&right_now&")"

        debugNote sql
        session("sqlInsertText") = sql
        Set db1 = Server.CreateObject("ADODB.Connection")
        db1.Open GV_VIEW_DB_String 

        Set rsInsert = db1.Execute(sql)

            session("duplicateInsert_ssr") = false
            set rsInsert = nothing
            Set dbl = nothing 

        'lookup the name of the Ship
        shipName = ssr_ship_name & " ("&ssr_imo&")"

        'send an email for SSR
        mailbody = GV_EMAIL_TOP 
        'mailbody = mailbody & "For processing on " & FormatDateTime(dateadd("d", 1, now()), 1) & "<br />"
        mailbody = mailbody & "Date time of SSR Upload : " & Day(date()) & " " & MonthName(Month(date()), true) & " " & Year(date()) & " " & Hour(time()) & ":" & Minute(time()) &  "<br />"
        mailbody = mailbody & "Name and IMO number of Ship : " & shipName & "<br />"
        mailbody = mailbody & "Inspection number : " & ssr_ins_nr & "<br />"
        mailbody = mailbody & "Submitted by : " & subName  & " (" & subEmail & ")<br />"

        'mailsubject = "S.H.I.P - SSR report has been submitted "
        mailsubject = "SSR report for " & shipName &  "has been submitted "

        ShipEmail mailbody, "SHIP Admin user", GV_SSR_MAIL_TO, "", "", mailsubject

sql=“插入RSP\U SSR\U条目（SR（SR（SR（SR（U）ID（U）ID（U）ID（U）NBR，SA（S）ID（U）ID（R）B R R，S（S（S R）ID（R）ID（R）B B R R R R R R，S（S）ID（S）ID（S）B R）B B B B R（R）B（R）B（R）B（R）B（R）ID（R）B（R）ID（R）B（R）ID（R）B）B）B（R）B（R）B（R）ID（R）B）B）B（R）B（R）B（R）B（R）B（R）ID（R）B）B（R）B（R）B（R）B（R）B（R）B）B（R）B（R）B（R）B（R）B）B（R）B（R）B（R）B（R）ID（R）B(0),“和ssr项目的日期和“，，”和ssr项目的日期和“，，”和ssr项目的日期和“，，，，，，，以及以及ssr项目的港口项目的id和，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，“，”&ssr_q12&“，”&ssr_q13&“，”&ssr_qa&“，”&ssr_qb&“，”&right_now&“）
调试注释sql
会话（“sqlInsertText”）=sql
Set db1=Server.CreateObject（“ADODB.Connection”）
db1.打开GV_视图_DB_字符串
设置rsInsert=db1.Execute（sql）
会话（“重复插入\u ssr”）=错误
设置rsInsert=nothing
设置dbl=nothing
'查找船名
shipName=ssr\U ship\U name&“（&ssr\U imo&”）
'为SSR发送电子邮件
mailbody=GV\u EMAIL\u TOP
'mailbody=mailbody&“用于在”&FormatDateTime（dateadd（“d”，1，now（）），1）和“
”上处理
mailbody=mailbody&“SSR上载的日期时间：”&Day（Date（））&“&MonthName（Month（Date（））”，true）&“&Year（Date（））&”&Hour（time（））&“&Minute（time（））&“
”
mailbody=mailbody&“船舶名称和IMO编号：”&shipName&“
”
邮件正文=邮件正文和“检验编号：&ssr\U ins\U nr&”

mailbody=mailbody&“提交人：”&subName&“（“&subEmail&”）
”
'mailsubject=“S.H.I.P-SSR报告已提交”
mailsubject=“已提交“&shipName&”的SSR报告”
ShipEmail邮件正文，“SHIP Admin user”，GV\u SSR\u邮件收件人，“，”，邮件主题

要发送文件，它必须始终（临时）存储在发送邮件的服务器上

不知道您的ShipEmail功能是什么样子，并且假设您使用的是CDO.Message，它可能是这样的：

Set cdoMessage = CreateObject("CDO.Message") 
cdoMessage.Subject = "Some Message" 
cdoMessage.From = "testfrom@test.com" 
cdoMessage.To = "testto@test.com" 
'cdoMessage.TextBody = "This is some sample message text." 
cdoMessage.HTMLBody = "This is some sample html message text." 
'File on Server!
cdoMessage.AddAttachment "c:\emailpickup\test.txt"
cdoMessage.Send

---

如果要嵌入图像，请查看

AddRelatedBodyPart

这是asp.net、asp classic还是vbscript？请相应地更新标记。