mailonline.asp

来自「Flash+XML+ASP作品展示源码程序」· ASP 代码 · 共 20 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="config.asp" -->
<%
Dim mail
Dim mailfrom
Dim subject
Dim message
mailto=myemail
mailfrom=Request.Form("mailfrom")
subject=Request.Form("subject")
message=Request.Form("message")
Set mail=Server.CreateObject("CDONTS.Newmail")
mail.from=mailfrom
mail.to=mailto
mail.subject=subject
mail.body=message&"                                                                              -------------------The mail is from "&mydmain&" FlashProjects list's Mailonline"
mail.Send
Response.Write"&back=mailsend"
%>