代码如下:
<% if Request.ServerVariables("REQUEST_METHOD")="POST" then
set fs=server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("dl1.htm")
set mFile=fs.OpentextFile(filename)
html=mFile.ReadAll()
mFile.Close
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "mast@wanshifa-lighter.com"
objMail.To = "zhaozipeng@sohu.com"
objMail.Subject = "TEST1"
objMail.BodyFormat=0 'set body to html format
objMail.Body=html
objMail.Send
Set objMail = Nothing