If IsEmpty(strAttach)=False And IsNull(strAttach)=False Then
objMail.AttachFile strAttach
End If
response.write objMail.Send
set objMail = nothing
If strFrom <> "" then
%>
<script language=javascript>
<!--
alert("邮件已成功发送!");
window.location.href="Default.asp?channelMarkId=SY";
-->
</script>
<%
End If
End Sub
%>
<%
Sub SendMail(strFrom,strTo,strSubject,strBody,strAttach)
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
<%
Sub SendMail(strFrom,strTo,strSubject,strBody,strAttach)
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0