刚才贴的代码被执行了,再来一次
<pre>
<%Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby
Dim objCDOMail 'The CDO object'First we'll read in the values entered
strTo = Request.Form("to")
'These would read the message subject and body if we let you enter it
'strSubject = Request.Form("subject")'strBody = Request.Form("body")
strSubject = "Sample E-mail sent from ASP 101!"
' This is multi-lined simply for readability
strBody = "This message was sent from a sample at http://www.asp101.com. "
strBody = strBody &
"It is used to show people how to send e-mail from an "
strBody = strBody &
"Active Server Page. If you did not request this "
strBody = strBody &
"e-mail yourself, your address was entered by one of "
strBody = strBody &
"our visitors. Wedo
not store these e-mail addresses."
strBody = strBody &
" Please address all concerns to webmaster@asp101.com."
'Ok we've got the values now on to the point of the script.
'We just check to see if someone has entered anything into the to field.
'If it's equal to nothing we show the form, otherwise we send the message.
'If you weredo
ing this for real you might want to check other fields too
'anddo
a little entry validation like checking for valid syntax etc.
If strTo = "" then
%> <FORM ACTION="./email_cdo.asp" METHOD="post">
Enter your e-mail address:<BR>
<INPUT TYPE="text" NAME="to" SIZE="30"></INPUT>
<!-- These would be used if we decided to let you edit them
Subject:&nbsp;
<INPUT TYPE="text" NAME="subject" SIZE="30"></INPUT><BR>
Message:&nbsp;
<TEXTAREA NAME="body" ROWS="10" COLS="40" WRAP="virtual"></TEXTAREA><BR> -->
<INPUT TYPE="submit" VALUE="Send Mail!"></INPUT>
</FORM>
<%
else
' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' Set the properties of the object
objCDOMail.From = "webmaster@asp101.com"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
' There are lots of other properties you can use.
' You can send HTML e-mail, attachments, etc...
' You can also modify most aspects of the message
' like importance, custom headers, ...
' Check thedo
cumentation for a full list as well
' as the correct syntax.
' Some of the more useful ones I've included samples of here:
'objCDOMail.Cc = "john@asp101.com;gary@asp101.com"
'objCDOMail.Bcc = "john@asp101.com;gary@asp101.com"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High)
'objCDOMail.AttachFile "c:/path/filename.txt", "filename.txt"
' Send the message!
objCDOMail.Send
' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
Set objCDOMail = Nothing
Response.Write "Message sent to " &
strTo &
"!"
End If
%>
</pre>
